From 457f7392349fdedfad33e5b8ffc031f05010840b Mon Sep 17 00:00:00 2001
From: sibylle <sibylle.techene@locean.ipsl.fr>
Date: Wed, 8 Dec 2021 14:17:10 +0100
Subject: [PATCH] fix restartability bug for AGRIF
---
src/OCE/DOM/istate.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OCE/DOM/istate.F90 b/src/OCE/DOM/istate.F90
index 213b7997..5c9b2b78 100644
--- a/src/OCE/DOM/istate.F90
+++ b/src/OCE/DOM/istate.F90
@@ -162,7 +162,7 @@ CONTAINS
! "before" values may have been read from a restart to ensure restartability.
! In the non-restart or non-RK3 cases they need to be initialised here:
uu_b(:,:,Kbb) = 0._wp ; vv_b(:,:,Kbb) = 0._wp
- DO_3D( 1, 1, 1, 1, 1, jpkm1 )
+ DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 )
uu_b(ji,jj,Kbb) = uu_b(ji,jj,Kbb) + e3u(ji,jj,jk,Kbb) * uu(ji,jj,jk,Kbb) * umask(ji,jj,jk)
vv_b(ji,jj,Kbb) = vv_b(ji,jj,Kbb) + e3v(ji,jj,jk,Kbb) * vv(ji,jj,jk,Kbb) * vmask(ji,jj,jk)
END_3D
--
GitLab