Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.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/SBC/sbcssr.F90 (modified) (3 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

@@ -93 +93 @@
             !
             IF( nn_sstr == 1 ) THEN                                   !* Temperature restoring term
+!$OMP PARALLEL DO schedule(static) private(jj, ji, zqrp)
                DO jj = 1, jpj
                   DO ji = 1, jpi
@@ -105 +106 @@
             IF( nn_sssr == 1 ) THEN                                   !* Salinity damping term (salt flux only (sfx))
                zsrp = rn_deds / rday                                  ! from [mm/day] to [kg/m2/s]
+!$OMP PARALLEL DO schedule(static) private(jj, ji, zerp)
                DO jj = 1, jpj
                   DO ji = 1, jpi
@@ -118 +120 @@
                zsrp = rn_deds / rday                                  ! from [mm/day] to [kg/m2/s]
                zerp_bnd = rn_sssr_bnd / rday                          !       -              -    
+!$OMP PARALLEL DO schedule(static) private(jj, ji, zerp)
                DO jj = 1, jpj
                   DO ji = 1, jpi