add in test for do_cube_transform in fv_grid_tool::init_grid

NOAA-GFDL · Apr 2, 2021 · 0c3a1ba · 0c3a1ba
1 parent 0adbf6f
commit 0c3a1ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/fv_grid_tools.F90 b/tools/fv_grid_tools.F90
@@ -666,7 +666,7 @@ subroutine init_grid(Atm, grid_name, grid_file, npx, npy, npz, ndims, nregions,
                            Atm%flagstruct%target_lon, Atm%flagstruct%target_lat, &
                            n, grid_global(1:npx,1:npy,1,n), grid_global(1:npx,1:npy,2,n))
                    enddo
-                else
+                elseif ( Atm%flagstruct%do_cube_transform) then
                    do n=1,nregions
                       call cube_transform(Atm%flagstruct%stretch_fac, 1, npx, 1, npy, &
                            Atm%flagstruct%target_lon, Atm%flagstruct%target_lat, &