From 6261ac1949d7580e474364f2889289dea39e02f3 Mon Sep 17 00:00:00 2001
From: Guillaume Samson <guillaume.samson@mercator-ocean.fr>
Date: Fri, 13 Jan 2023 18:21:06 +0000
Subject: [PATCH] Resolve "small bug in array size for zdfgls in main branch"
---
src/OCE/ZDF/zdfgls.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/OCE/ZDF/zdfgls.F90 b/src/OCE/ZDF/zdfgls.F90
index 4c2f6665..b0b4d7f1 100644
--- a/src/OCE/ZDF/zdfgls.F90
+++ b/src/OCE/ZDF/zdfgls.F90
@@ -836,8 +836,8 @@ CONTAINS
DO_2D( 0, 0, 0, 0 ) ! update bottom with good values
zstm(ji,jj,mbkt(ji,jj)+1) = zstm(ji,jj,mbkt(ji,jj))
END_2D
- zstt(:,:, 1) = wmask(A2D(0), 1) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
- zstt(:,:,jpk) = wmask(A2D(0),jpk) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
+ zstt(:,:, 1) = wmask(T2D(0), 1) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
+ zstt(:,:,jpk) = wmask(T2D(0),jpk) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
!!gm should be done for ISF (top boundary cond.)
!!gm so, totally new staff needed!!gm
--
GitLab