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

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

@@ -196 +196 @@
       
       CALL dom_uniq( zprw, 'T' )
+!$OMP PARALLEL DO schedule(static) private(jj, ji, jk)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -204 +205 @@
       CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 )  
       CALL dom_uniq( zprw, 'U' )
+!$OMP PARALLEL DO schedule(static) private(jj, ji, jk)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -212 +214 @@
       CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )  
       CALL dom_uniq( zprw, 'V' )
+!$OMP PARALLEL DO schedule(static) private(jj, ji, jk)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -220 +223 @@
       CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )  
       CALL dom_uniq( zprw, 'F' )
+!$OMP PARALLEL DO schedule(static) private(jj, ji, jk)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -303 +307 @@
          IF( nmsh <= 3 ) THEN                                   !    ! 3D depth
             CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r4 )     
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
             DO jk = 1,jpk   
                DO jj = 1, jpjm1   
@@ -316 +321 @@
             CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 )
          ELSE                                                   !    ! 2D bottom depth
+!$OMP PARALLEL DO schedule(static) private(jj, ji)
             DO jj = 1,jpj   
                DO ji = 1,jpi