Changeset 15145 for NEMO/trunk/tests/ISOMIP+/MY_SRC/eosbn2.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/tests/ISOMIP+/MY_SRC/eosbn2.F90 (modified) (4 diffs)

NEMO/trunk/tests/ISOMIP+/MY_SRC/eosbn2.F90

@@ -1185 +1185 @@
       z1_T0   = 1._wp/40._wp
       !
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          !
          zt  = ctmp   (ji,jj) * z1_T0
-         zs  = SQRT( ABS( psal(ji,jj) + zdeltaS ) * r1_S0 )
+         zs  = SQRT( ABS( psal(ji,jj) + zdeltaS ) * z1_S0 )
          ztm = tmask(ji,jj,1)
          !
@@ -1249 +1249 @@
          !
          z1_S0 = 1._wp / 35.16504_wp
-         DO_2D( 1, 1, 1, 1 )
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             zs= SQRT( ABS( psal(ji,jj) ) * z1_S0 )           ! square root salinity
             ptf(ji,jj) = ((((1.46873e-03_wp*zs-9.64972e-03_wp)*zs+2.28348e-02_wp)*zs &
@@ -1356 +1356 @@
       CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
-         DO_3D( 1, 1, 1, 1, 1, jpkm1 )
+         DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 )
             !
             zh  = gdept(ji,jj,jk,Kmm) * r1_Z0                                ! depth
@@ -1415 +1415 @@
       CASE( np_seos )                !==  Vallis (2006) simplified EOS  ==!
          !
-         DO_3D( 1, 1, 1, 1, 1, jpkm1 )
+         DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 )
             zt  = pts(ji,jj,jk,jp_tem) - 10._wp  ! temperature anomaly (t-T0)
             zs = pts (ji,jj,jk,jp_sal) - 35._wp  ! abs. salinity anomaly (s-S0)