Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

Timestamp:

2017-01-04T17:47:47+01:00 (7 years ago)

Author:

mocavero

Message:

changes after review

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90 (modified) (2 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

@@ -90 +90 @@
 !$OMP PARALLEL
 !$OMP DO schedule(static) private(jk,jj,ji)
-            DO jk = 1, jpk
-               DO jj = 1, jpj
-                  DO ji = 1, jpi
-                     ze1(ji,jj,jk) = 0._wp
-                     ze2(ji,jj,jk) = 0._wp
-                     ze3(ji,jj,jk) = 0._wp
-                  END DO
-               END DO
-            END DO
+      DO jk = 1, jpk
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               ze1(ji,jj,jk) = 0._wp
+               ze2(ji,jj,jk) = 0._wp
+               ze3(ji,jj,jk) = 0._wp
+            END DO
+         END DO
+      END DO
 !$OMP END DO NOWAIT
       !                                        !* attenuation coef. function of Chlorophyll and wavelength (Red-Green-Blue)
@@ -249 +249 @@
       !
 !$OMP DO schedule(static) private(jk,jj,ji)
-            DO jk = 1, jpk
-               DO jj = 1, jpj
-                  DO ji = 1, jpi
-      emoy(ji,jj,jk) = etot(ji,jj,jk)       ! remineralisation
-      zpar(ji,jj,jk) = etot_ndcy(ji,jj,jk)  ! diagnostic : PAR with no diurnal cycle 
+      DO jk = 1, jpk
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               emoy(ji,jj,jk) = etot(ji,jj,jk)       ! remineralisation
+               zpar(ji,jj,jk) = etot_ndcy(ji,jj,jk)  ! diagnostic : PAR with no diurnal cycle 
             END DO
          END DO