Changeset 15145 for NEMO/trunk/src/OCE/DYN/sshwzv.F90

Timestamp:

2021-07-26T18:16:45+02:00 (3 years ago)

Author:

smasson

Message:

trunk: pass all sette tests in debug with nn_hls = 2

File:

• NEMO/trunk/src/OCE/DYN/sshwzv.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/DYN/sshwzv.F90

@@ -103 +103 @@
       !
       zhdiv(:,:) = 0._wp
-      DO_3D( 1, nn_hls, 1, nn_hls, 1, jpkm1 )                                 ! Horizontal divergence of barotropic transports
+      DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 )   ! Horizontal divergence of barotropic transports
         zhdiv(ji,jj) = zhdiv(ji,jj) + e3t(ji,jj,jk,Kmm) * hdiv(ji,jj,jk)
       END_3D
@@ -110 +110 @@
       ! compute the vertical velocity which can be used to compute the non-linear terms of the momentum equations.
       ! 
-      DO_2D_OVR( 1, nn_hls, 1, nn_hls )                ! Loop bounds limited by hdiv definition in div_hor
+      DO_2D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )         ! Loop bounds limited by hdiv definition in div_hor
          pssh(ji,jj,Kaa) = (  pssh(ji,jj,Kbb) - rDt * ( zcoef * ( emp_b(ji,jj) + emp(ji,jj) ) + zhdiv(ji,jj) )  ) * ssmask(ji,jj)
       END_2D