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

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -94 +94 @@
       ENDIF
       !                                               !==  effective transport  ==!
+!$OMP PARALLEL DO schedule(static) private(jk)
       DO jk = 1, jpkm1
          zun(:,:,jk) = e2u  (:,:) * e3u_n(:,:,jk) * un(:,:,jk)                   ! eulerian transport
@@ -101 +102 @@
       !
       IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN                                 ! add z-tilde and/or vvl corrections
+!$OMP PARALLEL WORKSHARE
          zun(:,:,:) = zun(:,:,:) + un_td(:,:,:)
          zvn(:,:,:) = zvn(:,:,:) + vn_td(:,:,:)
+!$OMP END PARALLEL WORKSHARE
       ENDIF
       !
@@ -110 +113 @@
       IF( ln_mle    )   CALL tra_adv_mle( kt, nittrc000, zun, zvn, zwn, 'TRC' )  ! add the mle transport
       !
+!$OMP PARALLEL WORKSHARE
       zun(:,:,jpk) = 0._wp                                                       ! no transport trough the bottom
       zvn(:,:,jpk) = 0._wp
       zwn(:,:,jpk) = 0._wp
+!$OMP END PARALLEL WORKSHARE
       !
       !