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

Timestamp:

2017-03-03T12:46:59+01:00 (7 years ago)

Author:

mocavero

Message:

Reverting trunk to remove OpenMP

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, jj, ji, jn
+      INTEGER  :: jk, 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
-         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
+         zvol(:,:,jk) = e1e2t(:,:) * e3t_a(:,:,jk) * tmask(:,:,jk)
       END DO
       !