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

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

@@ -66 +66 @@
       !     OF PHYTOPLANKTON AND DETRITUS
 
-!$OMP PARALLEL
-!$OMP DO schedule(static) private(jk,jj,ji)
-      DO jk = 1, jpk
-         DO jj = 1, jpj
-            DO ji = 1, jpi
-               xdiss(ji,jj,jk) = 1.
-            END DO
-         END DO
-      END DO
+      xdiss(:,:,:) = 1.
 !!gm the use of nmld should be better here?
-!$OMP DO schedule(static) private(jk,jj,ji)
       DO jk = 2, jpkm1
          DO jj = 1, jpj
@@ -85 +76 @@
          END DO
       END DO
-!$OMP END PARALLEL
 
       CALL p4z_opt     ( kt, knt )     ! Optic: PAR in the water column