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

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

@@ -85 +85 @@
       first_width (:) = SQRT(  rn_initial_mass(:) / ( rn_LoW_ratio * rn_rho_bergs * rn_initial_thickness(:) )  )
       first_length(:) = rn_LoW_ratio * first_width(:)
-
+!$OMP PARALLEL WORKSHARE
       berg_grid%calving      (:,:)   = 0._wp
       berg_grid%calving_hflx (:,:)   = 0._wp
@@ -95 +95 @@
       src_calving            (:,:)   = 0._wp
       src_calving_hflx       (:,:)   = 0._wp
-
+!$OMP END PARALLEL WORKSHARE
       !                          ! domain for icebergs
       IF( lk_mpp .AND. jpni == 1 )   CALL ctl_stop( 'icbinit: having ONE processor in x currently does not work' )
@@ -108 +108 @@
       nicbfldproc(:) = -1
 
+!$OMP PARALLEL DO schedule(static) private(jj, ji)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -218 +219 @@
          CALL flush(numicb)
       ENDIF
-      
+!$OMP PARALLEL WORKSHARE      
       src_calving     (:,:) = 0._wp
       src_calving_hflx(:,:) = 0._wp
-
+!$OMP END PARALLEL WORKSHARE
       ! assign each new iceberg with a unique number constructed from the processor number
       ! and incremented by the total number of processors