Commit 08ee118e authored by dumoda01's avatar dumoda01

Prise de nitrate modifiée pour celle du modèle de Fasham

parent 098bc3aa
......@@ -99,6 +99,8 @@
REALTYPE :: gmax=5.787037e-06
REALTYPE :: iv=1.1
REALTYPE :: alpha=0.3
REALTYPE :: inib=0.03 !DD
REALTYPE :: k1=0.5 !DD
REALTYPE :: rpn=1.157407e-07
REALTYPE :: rzn=1.157407e-07
REALTYPE :: rdn=3.472222e-08
......@@ -143,7 +145,7 @@
namelist /bio_npzd_nml/ numc, &
n_initial,p_initial,z_initial,d_initial, &
p0,z0,w_p,w_d,kc,i_min,rmax,gmax,iv,alpha,rpn, &
rzn,rdn,rpdu,rpdl,rzd,aa,g2
rzn,rdn,rpdu,rpdl,rzd,aa,g2,inib,k1
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -273,19 +275,19 @@
!BOC
var_names(1) = 'nut'
var_units(1) = 'mmol/m**2'
var_long(1) = 'nutrients'
var_long(1) = 'nutrients'
var_names(2) = 'phy'
var_units(2) = 'mmol/m**2'
var_long(2) = 'phytoplankton'
var_long(2) = 'phytoplankton'
var_names(3) = 'zoo'
var_units(3) = 'mmol/m**2'
var_long(3) = 'zooplankton'
var_long(3) = 'zooplankton'
var_names(4) = 'det'
var_units(4) = 'mmol/m**2'
var_long(4) = 'detritus'
var_long(4) = 'detritus'
return
end subroutine var_info_npzd
......@@ -320,6 +322,41 @@
end function fnp
!EOC
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: Platt et al. (1980) and quota formulation for nutrient uptake
!
! !INTERFACE:
REALTYPE function fnp2(n,p,par)
!
! !DESCRIPTION:
! Here, the photoresponse of Platt et al. (1980) and quota for nutrient uptake
! is formulated.
!
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: n,p,par,iopt
REALTYPE :: Ps,ff,q1
!
! !REVISION HISTORY:
! Original author(s): Dany Dumont
!
!EOP
!-----------------------------------------------------------------------
!BOC
Ps=rmax/((alpha/(alpha+inib))*(alpha/(alpha+inib))**(inib/alpha))
ff=Ps*(1.-exp(-1.*alpha*par/Ps))*exp(-1.*inib*par/Ps)
q1=n/k1/(1.+n/k1)
fnp2=ff*q1*(p+p0)
return
end function fnp2
!EOC
!-----------------------------------------------------------------------
!BOP
!
......@@ -491,7 +528,8 @@
rpd=rpdl
end if
dd(n,p,ci)=fnp(cc(n,ci),cc(p,ci),par(ci),iopt) ! snp
!dd(n,p,ci)=fnp(cc(n,ci),cc(p,ci),par(ci),iopt) ! snp
dd(n,p,ci)=fnp2(cc(n,ci),cc(p,ci),par(ci)) ! snp
dd(p,z,ci)=fpz(cc(p,ci),cc(z,ci)) ! spz
dd(p,n,ci)=rpn*cc(p,ci) ! spn
dd(z,n,ci)=rzn*cc(z,ci) ! szn
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment