Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LDF/ldfc1d_c2d.F90

Timestamp:

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

Author:

mocavero

Message:

ORCA2_LIM_PISCES hybrid version update

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LDF/ldfc1d_c2d.F90 (modified) (6 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LDF/ldfc1d_c2d.F90

@@ -141 +141 @@
             IF(lwp) WRITE(numout,*) '              momentum laplacian coeffcients = rn_aht0/e_equ * max(e1,e2)'
             za00 = pah0 / zd_max
+!$OMP PARALLEL DO schedule(static) private(jj,ji,zemax1,zemax2)
             DO jj = 1, jpj 
                DO ji = 1, jpi 
@@ -152 +153 @@
             IF(lwp) WRITE(numout,*) '              momentum bilaplacian coeffcients = rn_bht0/e_equ * max(e1,e2)**3'
             za00 = pah0 / ( zd_max * zd_max * zd_max )
+!$OMP PARALLEL DO schedule(static) private(jj,ji,zemax1,zemax2)
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -164 +166 @@
          ENDIF
          !                                !  deeper values  (LAP and BLP cases)
+!$OMP PARALLEL DO schedule(static) private(jk)
          DO jk = 2, jpk
             pah1(:,:,jk) = pah1(:,:,1) * tmask(:,:,jk) 
@@ -173 +176 @@
             IF(lwp) WRITE(numout,*) '              tracer laplacian coeffcients = rn_aht0/e_equ * max(e1,e2)'
             za00 = pah0 / zd_max
+!$OMP PARALLEL DO schedule(static) private(jj,ji,zemax1,zemax2)
             DO jj = 1, jpj 
                DO ji = 1, jpi 
@@ -184 +188 @@
             IF(lwp) WRITE(numout,*) '              tracer bilaplacian coeffcients = rn_bht0/e_equ * max(e1,e2)**3'
             za00 = pah0 / ( zd_max * zd_max * zd_max )
+!$OMP PARALLEL DO schedule(static) private(jj,ji,zemax1,zemax2)
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -196 +201 @@
          ENDIF
          !                                !  deeper values  (LAP and BLP cases)
+!$OMP PARALLEL DO schedule(static) private(jk)
          DO jk = 2, jpk
             pah1(:,:,jk) = pah1(:,:,1) * umask(:,:,jk)