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

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -132 +132 @@
       IF( lk_zdfgls  )   CALL zdf_gls( kstp )            ! GLS closure scheme for Kz
       IF( lk_zdfcst  ) THEN                              ! Constant Kz (reset avt, avm[uv] to the background value)
+!$OMP PARALLEL WORKSHARE
          avt (:,:,:) = rn_avt0 * wmask (:,:,:)
          avmu(:,:,:) = rn_avm0 * wumask(:,:,:)
          avmv(:,:,:) = rn_avm0 * wvmask(:,:,:)
+!$OMP END PARALLEL WORKSHARE
       ENDIF
 
       IF( ln_rnf_mouth ) THEN                         ! increase diffusivity at rivers mouths
+!$OMP PARALLEL DO schedule(static) private(jk)
          DO jk = 2, nkrnf   ;   avt(:,:,jk) = avt(:,:,jk) + 2._wp * rn_avt_rnf * rnfmsk(:,:) * tmask(:,:,jk)   ;   END DO
       ENDIF
@@ -194 +197 @@
                &                                          rhd, gru , grv , grui, grvi   )  ! of t, s, rd at the first ocean level
 !!jc: fs simplification
-                            
+!$OMP PARALLEL WORKSHARE                            
                          ua(:,:,:) = 0._wp            ! set dynamics trends to zero
                          va(:,:,:) = 0._wp
-
+!$OMP END PARALLEL WORKSHARE
       IF(  lk_asminc .AND. ln_asmiau .AND. ln_dyninc )   &
                &         CALL dyn_asm_inc   ( kstp )  ! apply dynamics assimilation increment
@@ -250 +253 @@
       ! Active tracers                              
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+!$OMP PARALLEL WORKSHARE
                          tsa(:,:,:,:) = 0._wp         ! set tracer trends to zero
-
+!$OMP END PARALLEL WORKSHARE
       IF(  lk_asminc .AND. ln_asmiau .AND. &
          & ln_trainc )   CALL tra_asm_inc   ( kstp )  ! apply tracer assimilation increment