From 022c121f739ecc2fa906b77c739d9e8ae76c63f4 Mon Sep 17 00:00:00 2001 From: Oliver Fuhrer Date: Thu, 30 Apr 2020 08:31:18 -0700 Subject: [PATCH] Fix mesh generation in init_grid() Tile index to `grid_global` was not correct inside a loop over tiles. --- tools/fv_grid_tools.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/fv_grid_tools.F90 b/tools/fv_grid_tools.F90 index 3eae83358..f5cbfd449 100644 --- a/tools/fv_grid_tools.F90 +++ b/tools/fv_grid_tools.F90 @@ -617,8 +617,8 @@ subroutine init_grid(Atm, grid_name, grid_file, npx, npy, npz, ndims, nregions, !---------------------------------------------------------------------------------------------------- if ( grid_global(i,j,1,n) < 0. ) & grid_global(i,j,1,n) = grid_global(i,j,1,n) + 2.*pi - if (ABS(grid_global(i,j,1,1)) < 1.d-10) grid_global(i,j,1,1) = 0.0 - if (ABS(grid_global(i,j,2,1)) < 1.d-10) grid_global(i,j,2,1) = 0.0 + if (ABS(grid_global(i,j,1,n)) < 1.d-10) grid_global(i,j,1,n) = 0.0 + if (ABS(grid_global(i,j,2,n)) < 1.d-10) grid_global(i,j,2,n) = 0.0 enddo enddo enddo