Changeset 6712 for branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2016-06-14T16:23:21+02:00 (8 years ago)

Author:

mocavero

Message:

update some OMP directives

File:

• branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (5 diffs)

branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -171 +171 @@
       !!              Bruchard OM 2002
       !!----------------------------------------------------------------------
+      INTEGER ::   ji, jj, jk   ! dummy loop indices
       INTEGER, INTENT(in) ::   kt   ! ocean time step
       !!----------------------------------------------------------------------
@@ -318 +319 @@
          zcof = 0.5 * 0.016 * 0.016 / ( zrhoa * zcdrag )
          imlc(:,:) = mbkt(:,:) + 1       ! Initialization to the number of w ocean point (=2 over land)
-!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zus)
        DO jk = jpkm1, 2, -1
             DO jj = 1, jpj               ! Last w-level at which zpelc>=0.5*us*us 
@@ -576 +576 @@
      !
       IF( ln_mxl0 ) THEN            ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rau0*g)
-!$OMP PARALLEL DO schedule(static) private(jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jj, ji, zraug)
        DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1
@@ -650 +650 @@
          END DO
          DO jk = jpkm1, 2, -1     ! from the bottom to the surface :
-!$OMP PARALLEL DO schedule(static) private(jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jj, ji, zemxl)
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -678 +678 @@
          END DO
 !CDIR NOVERRCHK
-!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zemxl, zemlp)
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zemlm, zemlp)
          DO jk = 2, jpkm1
 !CDIR NOVERRCHK