Changeset 7508 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.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/TOP_SRC/TRP/trcnxt.F90 (modified) (1 diff)

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

@@ -108 +108 @@
       IF( l_trdtrc )  THEN             ! trends: store now fields before the Asselin filter application
          CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrdt )
-!$OMP PARALLEL WORKSHARE
-         ztrdt(:,:,:,:)  = trn(:,:,:,:)
-!$OMP END PARALLEL WORKSHARE
+         DO jn = 1, jptra
+!$OMP PARALLEL DO schedule(static) private(jk,jj,ji)
+            DO jk = 1, jpk
+               DO jj = 1, jpj
+                  DO ji = 1, jpi
+                     ztrdt(ji,jj,jk,jn)  = trn(ji,jj,jk,jn)
+                  END DO
+               END DO
+            END DO
+         END DO
       ENDIF
       !                                ! Leap-Frog + Asselin filter time stepping