Changeset 13200 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmicro.F90

Timestamp:

2020-07-02T08:58:10+02:00 (4 years ago)

Author:

aumont

Message:

minor bug fixes for calcite production and diagnostics

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmicro.F90 (modified) (2 diffs)

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

@@ -92 +92 @@
                zfact   = xstep * tgfunc2(ji,jj,jk) * zcompaz
 
-               ! Proportion of nano and diatoms that are within the size range
+               ! Proportion of diatoms that are within the size range
                ! accessible to microzooplankton. 
                zproport  = min(1.0, exp(-1.1 * MAX(0., ( sized(ji,jj,jk) - 1.8 ))**0.8 ))
@@ -226 +226 @@
                !
                ! Calcite remineralization due to zooplankton activity
-               ! part of the ingested calcite is dissolving in the acidic gut
+               ! part of the ingested calcite is not dissolving in the acidic gut
+               ! ----------------------------------------------------------------
                zprcaca = xfracal(ji,jj,jk) * zgraznc
                prodcal(ji,jj,jk) = prodcal(ji,jj,jk) + zprcaca  ! prodcal=prodcal(nanophy)+prodcal(microzoo)+prodcal(mesozoo)