From 0c3a1ba846a6bc0183127d73a7d12ed676d75db8 Mon Sep 17 00:00:00 2001 From: Rusty Benson Date: Fri, 2 Apr 2021 18:04:32 -0400 Subject: [PATCH] add in test for do_cube_transform in fv_grid_tool::init_grid --- tools/fv_grid_tools.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/fv_grid_tools.F90 b/tools/fv_grid_tools.F90 index aed1cc50f..36f5ef7ae 100644 --- 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, &