Changeset 7753 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.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/PISCES/P4Z/p4zlys.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90

@@ -69 +69 @@
       CALL wrk_alloc( jpi, jpj, jpk, zco3, zcaldiss, zhinit, zhi, zco3sat )
       !
-!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
-       DO jk = 1, jpk
-          DO jj = 1, jpj
-             DO ji = 1, jpi
-                zco3    (ji,jj,jk) = 0.
-                zcaldiss(ji,jj,jk) = 0.
-                zhinit(ji,jj,jk)   = hi(ji,jj,jk) * 1000. / ( rhop(ji,jj,jk) + rtrn )
-             END DO
-          END DO
-      END DO
+      zco3    (:,:,:) = 0.
+      zcaldiss(:,:,:) = 0.
+      zhinit(:,:,:)   = hi(:,:,:) * 1000. / ( rhop(:,:,:) + rtrn )
       !     -------------------------------------------
       !     COMPUTE [CO3--] and [H+] CONCENTRATIONS
@@ -85 +78 @@
       CALL solve_at_general(zhinit, zhi)
 
-!$OMP PARALLEL
-!$OMP DO schedule(static) private(jk, jj, ji)
       DO jk = 1, jpkm1
          DO jj = 1, jpj
@@ -103 +94 @@
       !     ---------------------------------------------------------
 
-!$OMP DO schedule(static) private(jk,jj,ji,zcalcon,zfact,zomegaca,zexcess0,zexcess,zdispot)
       DO jk = 1, jpkm1
          DO jj = 1, jpj
@@ -134 +124 @@
          END DO
       END DO
-!$OMP END PARALLEL
       !