Changeset 15581

Timestamp:

2021-12-07T14:08:22+01:00 (2 years ago)

Author:

techene

Message:

#2605 #2715 bug fix for AGRIF : sette OK without tiling (sette.sh -At)

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/istate.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/istate.F90

@@ -163 +163 @@
          ! 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)