Changeset 15277 for NEMO

Timestamp:

2021-09-22T15:19:40+02:00 (3 years ago)

Author:

clem

Message:

trunk: debug an out of bound in Richardson zdf

File:

• NEMO/trunk/src/OCE/ZDF/zdfric.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ZDF/zdfric.F90

@@ -157 +157 @@
       !
       !                       !==  avm and avt = F(Richardson number)  ==!
-      DO_3D_OVR( nn_hls, nn_hls-1, nn_hls, nn_hls-1, 2, jpkm1 )       ! coefficient = F(richardson number) (avm-weighted Ri)
+      DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 )       ! coefficient = F(richardson number) (avm-weighted Ri)
          zcfRi = 1._wp / (  1._wp + rn_alp * MAX(  0._wp , avm(ji,jj,jk) * rn2(ji,jj,jk) / ( p_sh2(ji,jj,jk) + 1.e-20 ) )  )
          zav   = rn_avmri * zcfRi**nn_ric