bug fix when defining gsize in dp mode

E3SM-Project · Sep 16, 2024 · 9eb7a7f · 9eb7a7f
1 parent 25120ff
commit 9eb7a7f
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