Feel free to join the next Helmholtz Hacky Hour #26 on Wednesday, April 21, 2021 from 2PM to 3PM!

Commit 058aa0d2 authored by Friedrich Boeing's avatar Friedrich Boeing

resorted loop for array writing (when dem is asc file)

parent e3909c45
......@@ -236,6 +236,7 @@ program ED_Kriging
k = 0
do i = 1, gridMeteo%ncols
! do j = 1, gridMeteo%nrows
! k = k + 1
! tmp_array(i, gridMeteo%nrows - j + 1, :) = cell(k)%z
......@@ -243,20 +244,16 @@ program ED_Kriging
! end do
if (invert_y) then
do j = gridMeteo%nrows, 1, -1
do i = 1, gridMeteo%ncols
k = k + 1
tmp_array(i, gridMeteo%nrows - j + 1, :) = cell(k)%z
end do
end do
else
do j = 1, gridMeteo%nrows
do i = 1, gridMeteo%ncols
k = k + 1
tmp_array(i, gridMeteo%nrows - j + 1, :) = cell(k)%z
end do
end do
end if
! end do
end do
!t = 0
!do i = 1, jEnd - jStart + 1
! tmp_time(i) = t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment