Forked from
NEMO Workspace / Nemo
968 commits behind, 38 commits ahead of the upstream repository.
-
Christian Ethe authoredaa622c73
Code owners
Assign users and groups as approvers for specific file changes. Learn more.
p2zbio.F90 22.73 KiB
MODULE p2zbio
!!======================================================================
!! *** MODULE p2zbio ***
!! TOP : LOBSTER
!!======================================================================
!! History : - ! 1999-07 (M. Levy) Original code
!! - ! 2000-12 (E. Kestenare) assign a parameter to name individual tracers
!! - ! 2001-03 (M. Levy) LNO3 + dia2d
!! 2.0 ! 2007-12 (C. Deltel, G. Madec) F90
!!----------------------------------------------------------------------
!! p2z_bio :
!!----------------------------------------------------------------------
USE oce_trc !
USE trc !
USE sms_pisces !
USE p2zopt !
USE trd_oce !
USE trdtrc !
!
USE lbclnk !
USE prtctl ! Print control for debbuging
USE iom !
IMPLICIT NONE
PRIVATE
PUBLIC p2z_bio ! called in ???
PUBLIC p2z_bio_init ! called in ???
REAL(wp) :: tmumax ! maximal phytoplankton growth rate [s-1]
REAL(wp) :: rgamma ! phytoplankton exudation fraction [%]
REAL(wp) :: fphylab ! NH4 fraction of phytoplankton exsudation
REAL(wp) :: tmminp ! minimal phytoplancton mortality rate [0.05/86400 s-1=20 days]
REAL(wp) :: aki ! light photosynthesis half saturation constant[W/m2]
!
REAL(wp) :: akno3 ! nitrate limitation half-saturation value [mmol/m3]
REAL(wp) :: aknh4 ! ammonium limitation half-saturation value [mmol/m3]
REAL(wp) :: taunn ! nitrification rate [s-1]
REAL(wp) :: psinut ! inhibition of nitrate uptake by ammonium
!
REAL(wp) :: taudn ! detritus breakdown rate [0.1/86400 s-1=10 days]
REAL(wp) :: fdetlab ! NH4 fraction of detritus dissolution
!
REAL(wp) :: taudomn ! DOM breakdown rate [s-1]
! ! slow remineralization rate of semi-labile dom to nh4 (1 month)
!
REAL(wp) :: rppz ! ivlev coeff for zoo mortality
REAL(wp) :: taus ! specific zooplankton maximal grazing rate [s-1]
! ! 0.75/86400 s-1=8.680555E-6 1/86400 = 1.15e-5
REAL(wp) :: aks ! half-saturation constant for total zooplankton grazing [mmolN.m-3]
REAL(wp) :: rpnaz ! non-assimilated phytoplankton by zooplancton [%]
REAL(wp) :: rdnaz ! non-assimilated detritus by zooplankton [%]
REAL(wp) :: tauzn ! zooplancton specific excretion rate [0.1/86400 s-1=10 days]
REAL(wp) :: tmminz ! minimal zooplankton mortality rate [(mmolN/m3)-1 d-1]
REAL(wp) :: fzoolab ! NH4 fraction of zooplankton excretion
REAL(wp) :: fdbod ! zooplankton mortality fraction that goes to detritus
!! * Substitutions
# include "do_loop_substitute.h90"
# include "domzgr_substitute.h90"
!!----------------------------------------------------------------------
!! NEMO/TOP 4.0 , NEMO Consortium (2018)
!! $Id: p2zbio.F90 14433 2021-02-11 08:06:49Z smasson $
!! Software governed by the CeCILL license (see ./LICENSE)
!!----------------------------------------------------------------------
CONTAINS
SUBROUTINE p2z_bio( kt, Kmm, Krhs )
!!---------------------------------------------------------------------
!! *** ROUTINE p2z_bio ***