Changeset 7698 for trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2017-02-18T10:02:03+01:00 (7 years ago)

Author:

mocavero

Message:

update trunk with OpenMP parallelization

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -268 +268 @@
       !! ** purpose  :   Compute tracers statistics
       !!----------------------------------------------------------------------
-      INTEGER  :: jk, jn
+      INTEGER  :: jk, jj, ji, jn
       REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift
       REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol
@@ -279 +279 @@
       ENDIF
       !
+!$OMP PARALLEL DO schedule(static) private(jk,jj,ji)
       DO jk = 1, jpk
-         zvol(:,:,jk) = e1e2t(:,:) * e3t_a(:,:,jk) * tmask(:,:,jk)
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               zvol(ji,jj,jk) = e1e2t(ji,jj) * e3t_a(ji,jj,jk) * tmask(ji,jj,jk)
+            END DO
+         END DO
       END DO
       !