Merge pull request #2997 from E3SM-Project/bogensch/dp_gsize_fix

Bug fix when defining gsize in DP mode
E3SM-Project · Sep 24, 2024 · 42d4c02 · 42d4c02
2 parents 7bbdcb8 + 9eb7a7f
commit 42d4c02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/share/streams/shr_dmodel_mod.F90 b/share/streams/shr_dmodel_mod.F90
@@ -383,7 +383,7 @@ subroutine shr_dmodel_readgrid( gGrid, gsMap, nxgo, nygo, nzgo, filename, compid
          nxgo = scm_nx
          nygo = scm_ny
          nzgo = -1
-         gsize = abs(scm_nx*scm_nx*nzgo)
+         gsize = abs(scm_nx*scm_ny*nzgo)
        else
          nxgo = nxg
          nygo = nyg