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

src/EDK_driver.f90

@@ -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