Changeset 13233 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90
- Timestamp:
- 2020-07-02T20:34:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90
r12537 r13233 74 74 USE p4zpoc ! Remineralization of organic particles 75 75 USE p4zligand ! Remineralization of organic ligands 76 USE p5zlim ! Co-limitations of differents nutrients 77 USE p5zprod ! Growth rate of the 2 phyto groups78 USE p5zmicro ! Sources and sinks of microzooplankton 79 USE p5zmeso ! Sources and sinks of mesozooplankton 80 USE p5zmort ! Mortality terms for phytoplankton 76 USE p5zlim ! Co-limitations of differents nutrients (QUOTA) 77 USE p5zprod ! Growth rate of the 3 phyto groups (QUOTA) 78 USE p5zmicro ! Sources and sinks of microzooplankton (QUOTA) 79 USE p5zmeso ! Sources and sinks of mesozooplankton (QUOTA) 80 USE p5zmort ! Mortality terms for phytoplankton (QUOTA) 81 81 ! 82 82 REAL(wp), SAVE :: sco2 = 2.312e-3_wp … … 253 253 254 254 255 ! Initialization of the different PISCES modules 256 ! Mainly corresponds to the namelist use 257 ! ---------------------------------------------- 255 258 CALL p4z_sink_init ! vertical flux of particulate organic matter 256 259 CALL p4z_opt_init ! Optic: PAR in the water column … … 271 274 & CALL p4z_ligand_init ! remineralisation of organic ligands 272 275 273 IF( ln_p4z ) THEN 276 IF( ln_p4z ) THEN ! PISCES-std 274 277 CALL p4z_mort_init ! phytoplankton mortality 275 278 CALL p4z_micro_init ! microzooplankton 276 279 CALL p4z_meso_init ! mesozooplankton 277 ELSE 280 ELSE ! PISCES-QUOTA 278 281 CALL p5z_mort_init ! phytoplankton mortality 279 282 CALL p5z_micro_init ! microzooplankton
Note: See TracChangeset
for help on using the changeset viewer.