Changeset 7508 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

Timestamp:

2016-12-19T13:15:59+01:00 (8 years ago)

Author:

mocavero

Message:

changes on code duplication and workshare construct

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90 (modified) (2 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

@@ -99 +99 @@
       ! w-level of the mixing and mixed layers
 !$OMP PARALLEL
-!$OMP WORKSHARE
-      nmln(:,:)  = nlb10               ! Initialization to the number of w ocean point
-      hmlp(:,:)  = 0._wp               ! here hmlp used as a dummy variable, integrating vertically N^2
-!$OMP END WORKSHARE
+!$OMP DO schedule(static) private(jj, ji)
+      DO jj = 1, jpj
+         DO ji = 1, jpi
+            nmln(ji,jj)  = nlb10               ! Initialization to the number of w ocean point
+            hmlp(ji,jj)  = 0._wp               ! here hmlp used as a dummy variable, integrating vertically N^2
+         END DO
+      END DO
       DO jk = nlb10, jpkm1
 !$OMP DO schedule(static) private(jj, ji, ikt)
@@ -115 +118 @@
       !
       ! w-level of the turbocline and mixing layer (iom_use)
-!$OMP WORKSHARE
-      imld(:,:) = mbkt(:,:) + 1        ! Initialization to the number of w ocean point
-!$OMP END WORKSHARE
+!$OMP DO schedule(static) private(jj, ji)
+      DO jj = 1, jpj
+         DO ji = 1, jpi
+            imld(ji,jj) = mbkt(ji,jj) + 1        ! Initialization to the number of w ocean point
+         END DO
+      END DO
 
       DO jk = jpkm1, nlb10, -1         ! from the bottom to nlb10