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)

Author:

aumont

Message:

update of the PISCES comments

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90

@@ -74 +74 @@
       USE p4zpoc          !  Remineralization of organic particles
       USE p4zligand       !  Remineralization of organic ligands
-      USE p5zlim          !  Co-limitations of differents nutrients
-      USE p5zprod         !  Growth rate of the 2 phyto groups
-      USE p5zmicro        !  Sources and sinks of microzooplankton
-      USE p5zmeso         !  Sources and sinks of mesozooplankton
-      USE p5zmort         !  Mortality terms for phytoplankton
+      USE p5zlim          !  Co-limitations of differents nutrients (QUOTA)
+      USE p5zprod         !  Growth rate of the 3 phyto groups (QUOTA)
+      USE p5zmicro        !  Sources and sinks of microzooplankton (QUOTA)
+      USE p5zmeso         !  Sources and sinks of mesozooplankton (QUOTA)
+      USE p5zmort         !  Mortality terms for phytoplankton (QUOTA)
       !
       REAL(wp), SAVE ::   sco2   =  2.312e-3_wp
@@ -253 +253 @@
 
 
+      ! Initialization of the different PISCES modules
+      ! Mainly corresponds to the namelist use
+      ! ----------------------------------------------
       CALL p4z_sink_init         !  vertical flux of particulate organic matter
       CALL p4z_opt_init          !  Optic: PAR in the water column
@@ -271 +274 @@
          & CALL p4z_ligand_init  !  remineralisation of organic ligands
 
-      IF( ln_p4z ) THEN
+      IF( ln_p4z ) THEN ! PISCES-std
          CALL p4z_mort_init      !  phytoplankton mortality 
          CALL p4z_micro_init     !  microzooplankton
          CALL p4z_meso_init      !  mesozooplankton
-      ELSE
+      ELSE ! PISCES-QUOTA
          CALL p5z_mort_init      !  phytoplankton mortality 
          CALL p5z_micro_init     !  microzooplankton