Changeset 13233 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zbio.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/P4Z/p4zbio.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zbio.F90

@@ -66 +66 @@
 
       ! ASSIGN THE SHEAR RATE THAT IS USED FOR AGGREGATION
-      ! OF PHYTOPLANKTON AND DETRITUS
+      ! OF PHYTOPLANKTON AND DETRITUS. Shear rate is supposed to equal 1
+      ! in the mixed layer and 0.1 below the mixed layer.
       xdiss(:,:,:) = 1.
       DO jk = 2, jpkm1
@@ -80 +81 @@
       CALL p4z_fechem  ( kt, knt )     ! Iron chemistry/scavenging
       !
-      IF( ln_p4z ) THEN
+      IF( ln_p4z ) THEN  ! PISCES standard
+         ! Phytoplankton only sources/sinks terms
          CALL p4z_lim  ( kt, knt )     ! co-limitations by the various nutrients
          CALL p4z_prod ( kt, knt )     ! phytoplankton growth rate over the global ocean. 
          !                             ! (for each element : C, Si, Fe, Chl )
          CALL p4z_mort ( kt      )     ! phytoplankton mortality
-         !                             ! zooplankton sources/sinks routines 
+         ! zooplankton sources/sinks routines 
          CALL p4z_micro( kt, knt )     ! microzooplankton
          CALL p4z_meso ( kt, knt )     ! mesozooplankton
-      ELSE
+      ELSE  ! PISCES-QUOTA
+         ! Phytoplankton only sources/sinks terms
          CALL p5z_lim  ( kt, knt )     ! co-limitations by the various nutrients
          CALL p5z_prod ( kt, knt )     ! phytoplankton growth rate over the global ocean. 
          !                             ! (for each element : C, N, P, Si, Fe, Chl )
          CALL p5z_mort ( kt      )     ! phytoplankton mortality
-         !                             ! zooplankton sources/sinks routines 
+         ! zooplankton sources/sinks routines 
          CALL p5z_micro( kt, knt )     ! microzooplankton
          CALL p5z_meso ( kt, knt )     ! mesozooplankton
@@ -99 +102 @@
       !
       CALL p4z_agg     ( kt, knt )     ! Aggregation of particles
-      CALL p4z_rem     ( kt, knt )     ! remineralization terms of organic matter+scavenging of Fe
+      CALL p4z_rem     ( kt, knt )     ! remineralization terms of organic matter
       CALL p4z_poc     ( kt, knt )     ! Remineralization of organic particles
       !