Changeset 8279 for branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

Timestamp:

2017-07-04T17:46:48+02:00 (7 years ago)

Author:

mocavero

Message:

Implementation of OMP coarse-grained parallelization on ZDF new package

File:

• branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90 (modified) (3 diffs)

branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

@@ -164 +164 @@
       !                       !==  avm and avt = F(Richardson number)  ==!
       DO jk = 2, jpkm1
-         DO jj = k_Jstr, k_Jend
-            DO ji = k_Jstr, k_Iend        ! coefficient = F(richardson number) (avm-weighted Ri)
+         DO jj = tnldj, tnlej
+            DO ji = tnldi, tnlei        ! coefficient = F(richardson number) (avm-weighted Ri)
                zcfRi = 1._wp / (  1._wp + rn_alp * MAX(  0._wp , p_avm(ji,jj,jk) * rn2(ji,jj,jk) / ( p_sh2(ji,jj,jk) + 1.e-20 ) )  )
                zav   = rn_avmri * zcfRi**nn_ric
@@ -180 +180 @@
       IF( ln_mldw ) THEN      !==  set a minimum value in the Ekman layer  ==!
          !
-         DO jj = k_Jstr, k_Jend     !* Ekman depth
-            DO ji = k_Jstr, k_Iend
+         DO jj = tnldj, tnlej     !* Ekman depth
+            DO ji = tnldi, tnlei
                zustar = SQRT( taum(ji,jj) * r1_rau0 )
                zed    = rn_ekmfc * zustar / ( ABS( ff_t(ji,jj) ) + rsmall )     ! Ekman depth
@@ -188 +188 @@
          END DO
          DO jk = 2, jpkm1           !* minimum mixing coeff. within the Ekman layer
-            DO jj = k_Jstr, k_Jend
-               DO ji = k_Jstr, k_Iend
+            DO jj = tnldj, tnlej
+               DO ji = tnldi, tnlei
                   IF( pdept(ji,jj,jk) < zh_ekm(ji,jj) ) THEN
                      p_avm(ji,jj,jk) = MAX(  p_avm(ji,jj,jk), rn_wvmix  ) * wmask(ji,jj,jk)