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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r3446 r3475 32 32 REAL(wp), PUBLIC :: mprat = 0.01_wp !: 33 33 REAL(wp), PUBLIC :: mprat2 = 0.01_wp !: 34 REAL(wp), PUBLIC :: mpratm = 0.01_wp !:35 34 36 35 … … 239 238 !!---------------------------------------------------------------------- 240 239 241 NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2 , mpratm240 NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2 242 241 243 242 REWIND( numnatp ) ! read numnatp … … 250 249 WRITE(numout,*) ' quadratic mortality of phytoplankton wchl =', wchl 251 250 WRITE(numout,*) ' maximum quadratic mortality of diatoms wchld =', wchld 252 WRITE(numout,*) ' maximum quadratic mortality of diatoms wchld 251 WRITE(numout,*) ' maximum quadratic mortality of diatoms wchldm =', wchldm 253 252 WRITE(numout,*) ' phytoplankton mortality rate mprat =', mprat 254 253 WRITE(numout,*) ' Diatoms mortality rate mprat2 =', mprat2 255 WRITE(numout,*) ' Phytoplankton minimum mortality rate mpratm =', mpratm256 254 ENDIF 257 255
Note: See TracChangeset
for help on using the changeset viewer.