Changeset 5288 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zbio.F90

Timestamp:

2015-05-22T18:22:18+02:00 (9 years ago)

Author:

aumont

Message:

various bug fixes and updates of PISCES quota

File:

• branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zbio.F90 (modified) (2 diffs)

branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zbio.F90

@@ -6 +6 @@
    !! History :   1.0  !  2004     (O. Aumont) Original code
    !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
-   !!             3.0  !  2015-05  (O. Aumont) PISCES QUOTA
+   !!             3.6  !  2015-05  (O. Aumont) PISCES quota
    !!----------------------------------------------------------------------
 #if defined key_pisces_quota
@@ -82 +82 @@
       CALL p4z_opt  ( kt, jnt )     ! Optic: PAR in the water column
       CALL p5z_sink ( kt, jnt )     ! vertical flux of particulate organic matter
-      DO jk = 1, jpk
-        DO jj = 1, jpj
-          DO ji = 1, jpi
-            IF (mig(ji) == 72 .and. mjg(jj) == 74 .and. jk == 5) THEN
-            DO jn = 1, jptra
-            write(0,*) 'plante ',trn(ji,jj,jk,jn)*1E6
-            END DO
-            ENDIF
-          END DO
-        END DO
-      END DO
       CALL p4z_fechem(kt, jnt )     ! Iron chemistry/scavenging
       CALL p5z_lim  ( kt, jnt )     ! co-limitations by the various nutrients