From ddbbd51376e0f0677bf3f4b6d004ee9461c51211 Mon Sep 17 00:00:00 2001
From: "Christian.Ethe" <rgzi002@jean-zay-pp2.idris.fr>
Date: Fri, 29 Jul 2022 14:02:11 +0200
Subject: [PATCH] Minor bugfix
---
src/OCE/IOM/iom.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/OCE/IOM/iom.F90 b/src/OCE/IOM/iom.F90
index 52431da3c..39a8b05a2 100644
--- a/src/OCE/IOM/iom.F90
+++ b/src/OCE/IOM/iom.F90
@@ -1344,6 +1344,7 @@ CONTAINS
ELSE
CALL ctl_stop( 'iom_get_123d: should have been an impossible case...' )
ENDIF
+ ishape(1:2) = (/ Ni_0, Nj_0 /) ! update and force ishape to match the inner domain
IF( irankpv == 3 ) ctmp1 = TRIM(ctmp1)//',:'
ctmp1 = TRIM(ctmp1)//')'
ENDIF
--
GitLab