Changeset 3475 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

Timestamp:

2012-09-13T19:00:23+02:00 (12 years ago)

Author:

cetlod

Message:

branch:2012/dev_r3438_LOCEAN15_PISLOB last updates from PISCES, hopefully... see ticket #972

File:

• branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90 (modified) (3 diffs)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

@@ -32 +32 @@
    REAL(wp), PUBLIC :: mprat  = 0.01_wp   !:
    REAL(wp), PUBLIC :: mprat2 = 0.01_wp   !:
-   REAL(wp), PUBLIC :: mpratm = 0.01_wp   !:
 
 
@@ -239 +238 @@
       !!----------------------------------------------------------------------
 
-      NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2, mpratm
+      NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2
 
       REWIND( numnatp )                     ! read numnatp
@@ -250 +249 @@
          WRITE(numout,*) '    quadratic mortality of phytoplankton      wchl      =', wchl
          WRITE(numout,*) '    maximum quadratic mortality of diatoms    wchld     =', wchld
-         WRITE(numout,*) '    maximum quadratic mortality of diatoms    wchld     =', wchldm
+         WRITE(numout,*) '    maximum quadratic mortality of diatoms    wchldm    =', wchldm
          WRITE(numout,*) '    phytoplankton mortality rate              mprat     =', mprat
          WRITE(numout,*) '    Diatoms mortality rate                    mprat2    =', mprat2
-         WRITE(numout,*) '    Phytoplankton minimum mortality rate      mpratm    =', mpratm
       ENDIF