Changeset 6712 for branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.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/DYN/dynzdf_imp.F90 (modified) (3 diffs)

branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

@@ -222 +222 @@
       END DO
       !
-!$OMP PARALLEL DO schedule(static) private(jj, ji)      
+!$OMP PARALLEL DO schedule(static) private(jj, ji, ze3ua)      
       DO jj = 2, jpjm1        !==  second recurrence:    SOLk = RHSk - Lk / Dk-1  Lk-1  ==
          DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -388 +388 @@
       !! restore bottom layer avmu(v) 
       IF( ln_bfrimp ) THEN
-!$OMP PARALLEL DO schedule(static) private(jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv)
         DO jj = 2, jpjm1
            DO ji = 2, jpim1
@@ -398 +398 @@
         END DO
         IF (ln_isfcav) THEN
-!$OMP PARALLEL DO schedule(static) private(jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv)
            DO jj = 2, jpjm1
               DO ji = 2, jpim1