Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2016-10-18T15:32:04+02:00 (7 years ago)

Author:

mocavero

Message:

ORCA2_LIM_PISCES hybrid version update

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -92 +92 @@
       IF( ln_sco )   CALL dom_stiff             ! Maximum stiffness ratio/hydrostatic consistency
       !
-!$OMP PARALLEL WORKSHARE
+!$OMP PARALLEL
+!$OMP WORKSHARE
       ht_0(:,:) = e3t_0(:,:,1) * tmask(:,:,1)   ! Reference ocean thickness
       hu_0(:,:) = e3u_0(:,:,1) * umask(:,:,1)
       hv_0(:,:) = e3v_0(:,:,1) * vmask(:,:,1)
-!$OMP END PARALLEL WORKSHARE
+!$OMP END WORKSHARE
       DO jk = 2, jpk
-!$OMP PARALLEL DO schedule(static) private(jj,ji)
+!$OMP DO schedule(static) private(jj,ji)
          DO jj =1, jpj
             DO ji=1, jpi
@@ -107 +108 @@
          END DO
       END DO
+!$OMP END PARALLEL
       !
       !              !==  time varying part of coordinate system  ==!