Merge pull request #88 from GEOS-ESM/hotfix/local-schmidt

Update fv_grid_tools.F90
GEOS-ESM · Nov 28, 2023 · f1a5b25 · f1a5b25
2 parents 01276f2 + 3dcff25
commit f1a5b25
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/tools/fv_grid_tools.F90 b/tools/fv_grid_tools.F90
@@ -772,11 +772,9 @@ subroutine init_grid(Atm, grid_name, grid_file, npx, npy, npz, ndims, nregions,
                    grid_local(:,:,1) = grid_local(:,:,1) + 2*pi
                 end where
                 where (abs(grid_local(:,:,:)) < 1.d-10) grid_local = 0
-                do n=1,nregions
-                   call direct_transform(Atm%flagstruct%stretch_fac, is, ie+1, js, je+1, &
-                        Atm%flagstruct%target_lon, Atm%flagstruct%target_lat, &
-                        n, grid_local(:,:,1), grid_local(:,:,2))
-                enddo
+                call direct_transform(Atm%flagstruct%stretch_fac, is, ie+1, js, je+1, &
+                       Atm%flagstruct%target_lon, Atm%flagstruct%target_lat, &
+                       tile, grid_local(:,:,1), grid_local(:,:,2))
                 grid(is:ie+1,js:je+1,:) = grid_local(:,:,:)
                 deallocate(grid_local)
              endif