Changeset 7508 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2016-12-19T13:15:59+01:00 (8 years ago)

Author:

mocavero

Message:

changes on code duplication and workshare construct

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (1 diff)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -400 +400 @@
          !                                        !* Cyclic east-west
          IF( nbondi == 2 .AND. (nperio == 1 .OR. nperio == 4 .OR. nperio == 6) ) THEN
-!$OMP PARALLEL WORKSHARE
-            ptab( 1 ,:,:) = ptab(jpim1,:,:)
-            ptab(jpi,:,:) = ptab(  2  ,:,:)
-!$OMP END PARALLEL WORKSHARE
+!$OMP PARALLEL DO schedule(static) private(jk, jj)
+            DO jk = 1, jpk
+               DO jj = 1, jpj
+                  ptab( 1 ,jj,jk) = ptab(jpim1,jj,jk)
+                  ptab(jpi,jj,jk) = ptab(  2  ,jj,jk)
+               END DO
+            END DO
          ELSE                                     !* closed
             IF( .NOT. cd_type == 'F' ) THEN
-!$OMP PARALLEL WORKSHARE
-                ptab(     1       :jpreci,:,:) = zland    ! south except F-point
-!$OMP END PARALLEL WORKSHARE
+!$OMP PARALLEL DO schedule(static) private(jk, jj)
+               DO jk = 1, jpk
+                  DO jj = 1, jpj
+                     ptab(     1       :jpreci,jj,jk) = zland    ! south except F-point
+                  END DO
+               END DO
             END IF
-!$OMP PARALLEL WORKSHARE
-                                         ptab(nlci-jpreci+1:jpi   ,:,:) = zland    ! north
-!$OMP END PARALLEL WORKSHARE
+!$OMP PARALLEL DO schedule(static) private(jk, jj)
+            DO jk = 1, jpk
+               DO jj = 1, jpj
+                  ptab(nlci-jpreci+1:jpi   ,jj,jk) = zland    ! north
+               END DO
+            END DO
          ENDIF
          !                                   ! North-South boundaries (always closed)
          IF( .NOT. cd_type == 'F' ) THEN
-!$OMP PARALLEL WORKSHARE
-            ptab(:,     1       :jprecj,:) = zland       ! south except F-point
-!$OMP END PARALLEL WORKSHARE
+!$OMP PARALLEL DO schedule(static) private(jk, ji)
+            DO jk = 1, jpk
+               DO ji = 1, jpi
+                  ptab(ji,     1       :jprecj,jk) = zland       ! south except F-point
+               END DO
+            END DO
          END IF          
-!$OMP PARALLEL WORKSHARE
-                                      ptab(:,nlcj-jprecj+1:jpj   ,:) = zland       ! north
-!$OMP END PARALLEL WORKSHARE
+!$OMP PARALLEL DO schedule(static) private(jk, ji)
+            DO jk = 1, jpk
+               DO ji = 1, jpi
+                  ptab(ji,nlcj-jprecj+1:jpj   ,jk) = zland       ! north
+               END DO
+            END DO
          !
       ENDIF