Changeset 6748 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

Timestamp:

2016-06-28T11:53:56+02:00 (8 years ago)

Author:

mocavero

Message:

GYRE hybrid parallelization

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (4 diffs)

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

@@ -203 +203 @@
       ztrp= - 40.e0        ! retroaction term on heat fluxes (W/m2/K)
       zconv = 3.16e-5      ! convertion factor: 1 m/yr => 3.16e-5 mm/s
+!$OMP PARALLEL DO schedule(static) private(jj, ji, t_star)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -238 +239 @@
 
       ! freshwater (mass flux) and update of qns with heat content of emp
+!$OMP PARALLEL WORKSHARE
       emp (:,:) = emp(:,:) - zsumemp * tmask(:,:,1)        ! freshwater flux (=0 in domain average)
       sfx (:,:) = 0.0_wp                                   ! no salt flux
       qns (:,:) = qns(:,:) - emp(:,:) * sst_m(:,:) * rcp   ! evap and precip are at SST
-
+!$OMP END PARALLEL WORKSHARE
 
       ! ---------------------------- !
@@ -267 +269 @@
       ztau_sais = 0.015
       ztaun = ztau - ztau_sais * COS( (ztime - ztimemax) / (ztimemin - ztimemax) * rpi )
+!$OMP PARALLEL DO schedule(static) private(jj, ji)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -278 +281 @@
       ! module of wind stress and wind speed at T-point
       zcoef = 1. / ( zrhoa * zcdrag ) 
+!$OMP PARALLEL DO schedule(static) private(jj, ji, ztx, zty, zmod)
       DO jj = 2, jpjm1
          DO ji = fs_2, fs_jpim1   ! vect. opt.