From 9eb7a7fa562efc5b75bdb987d26792fbe3f8b698 Mon Sep 17 00:00:00 2001
From: Peter Bogenschutz <bogenschutz1@llnlg.ov>
Date: Mon, 16 Sep 2024 13:09:56 -0700
Subject: [PATCH] bug fix when defining gsize in dp mode

---
 share/streams/shr_dmodel_mod.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/streams/shr_dmodel_mod.F90 b/share/streams/shr_dmodel_mod.F90
index eea74a66cde..e1a7c39d783 100644
--- 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