Changeset 5288 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmort.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/p5zmort.F90 (modified) (2 diffs)

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

@@ -6 +6 @@
    !! History :   1.0  !  2002     (O. Aumont)  Original code
    !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
+   !!             3.6  !  2015-05  (O. Aumont) PISCES quota
    !!----------------------------------------------------------------------
 #if defined key_pisces_quota
@@ -338 +339 @@
          WRITE(numout,*) '    quadratic mortality of phytoplankton      wchl      =', wchl
          WRITE(numout,*) '    quadratic mortality of picophyto.         wchlp     =', wchlp
-         WRITE(numout,*) '    maximum quadratic mortality of diatoms    wchld     =', wchld
-         WRITE(numout,*) '    maximum quadratic mortality of diatoms    wchldm    =', wchldm
-         WRITE(numout,*) '    phytoplankton mortality rate              mprat     =', mprat
+         WRITE(numout,*) '    quadratic mortality of diatoms            wchld     =', wchld
+         WRITE(numout,*) '    Additional quadratic mortality of diatoms wchldm    =', wchldm
+         WRITE(numout,*) '    nanophyto. mortality rate                 mprat     =', mprat
          WRITE(numout,*) '    picophyto. mortality rate                 mpratp    =', mpratp
          WRITE(numout,*) '    Diatoms mortality rate                    mprat2    =', mprat2