diff --git a/src/OCE/IOM/iom.F90 b/src/OCE/IOM/iom.F90 index 52431da3c8bbecc53ffe4eada6d017d3dc83c53c..39a8b05a25ead6ce382cb5b95c8274d41862d57c 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