Changeset 8279 for branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.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/zdfddm.F90 (modified) (3 diffs)

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

@@ -95 +95 @@
 !!gm                            and many acces in memory
          
-         DO jj = k_Jstr, k_Jend        !==  R=zrau = (alpha / beta) (dk[t] / dk[s])  ==!
-            DO ji = k_Jstr, k_Iend
+         DO jj = tnldj, tnlej        !==  R=zrau = (alpha / beta) (dk[t] / dk[s])  ==!
+            DO ji = tnldi, tnlei
                zrw =   ( gdepw_n(ji,jj,jk  ) - gdept_n(ji,jj,jk) )   &
 !!gm please, use e3w_n below 
@@ -113 +113 @@
          END DO
 
-         DO jj = k_Jstr, k_Jend          !==  indicators  ==!
-            DO ji = k_Jstr, k_Iend
+         DO jj = tnldj, tnlej          !==  indicators  ==!
+            DO ji = tnldi, tnlei
                ! stability indicator: msks=1 if rn2>0; 0 elsewhere
                IF( rn2(ji,jj,jk) + 1.e-12  <= 0. ) THEN   ;   zmsks(ji,jj) = 0._wp
@@ -145 +145 @@
          ! ------------------
          ! Constant eddy coefficient: reset to the background value
-         DO jj = k_Jstr, k_Jend
-            DO ji = k_Jstr, k_Iend
+         DO jj = tnldj, tnlej
+            DO ji = tnldi, tnlei
                zinr = 1._wp / zrau(ji,jj)
                ! salt fingering