Commit 5f398854 authored by dumoda01's avatar dumoda01

Le modele bio_ismer contient desormais une dependence explicite des flux...

Le modele bio_ismer contient desormais une dependence explicite des flux biologiques en fonction de la temperature, basee sur la Metabolic Theory of Ecology (MTE) exposee dans Gillooly et al. (2002). Certains parametres restent a ajuster et ce modele n'a pas encore ete teste. Utilisez avec precaution. Pour desactiver cette option, il faut le faire dans le code en fixant les variables amr1, amr2, hmr1 et hmr2 a 1.0.
parent 4f047255
......@@ -542,11 +542,11 @@
! Original author(s): Hans Burchard, Karsten Bolding
!
! !LOCAL VARIABLES:
REALTYPE :: amr(1:nlev)
REALTYPE :: hmr(1:nlev)
REALTYPE :: amr1(1:nlev),amr2(1:nlev)
REALTYPE :: hmr1(1:nlev),hmr2(1:nlev)
REALTYPE :: fac1,fac2,minal,qn1,qa1,qn2,qa2
REALTYPE :: ps1,ps2,ff1,ff2
REALTYPE :: Ea,Eh,kBeV,T0
REALTYPE :: Ea,Eh,kBeV,T0,ca,ch
integer :: i,j,ci
!EOP
!-----------------------------------------------------------------------
......@@ -603,6 +603,8 @@
Ea = 0.32 ! Activation energy for autotrophs (eV)
kBeV = 8.62e-5 ! Boltzmann constant (eV K-1)
T0 = 273.15-1.9 ! Temperature at which metabolism stops
ca = 1.0
ch = 1.0
! The mass ratio between pico-phytoplankton (p1, 1 um) and
! nano- and micro-phytoplankton (p2, 10 um) is approximately 1:1e3,
......@@ -612,9 +614,15 @@
! meso-zooplankton (1000 um).
! Autotrophs
!amr(ci) = max(0.0,0.25*exp(Ea/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))
!amr1(ci) = 1.0
!amr2(ci) = 1.0
amr1(ci) = max(0.0,ca*0.25*exp(Ea/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))
amr2(ci) = max(0.0,ca*0.25*exp(Ea/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))/5.62
! Heterotrophs
!hmr(ci) = max(0.0,0.25*exp(Eh/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))
!hmr1(ci) = 1.0
!hmr2(ci) = 1.0
hmr1(ci) = max(0.0,ch*0.25*exp(Eh/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))
hmr2(ci) = max(0.0,ch*0.25*exp(Eh/(kBeV*T0**2)*(T(ci)/(1+T(ci)/T0))))/5.62
! Light and nutrient limitation factors
lumlim(ci) =ff1
......@@ -622,41 +630,41 @@
ammlim(ci) =qa1
! Nutrient uptake by pico- and nano-phytoplankton
dd(n,p1,ci) =ff1*qn1*(cc(p1,ci)+p0)
dd(a,p1,ci) =ff1*qa1*(cc(p1,ci)+p0)
dd(n,p2,ci) =ff2*qn2*(cc(p2,ci)+p0)
dd(a,p2,ci) =ff2*qa2*(cc(p2,ci)+p0)
dd(n,p1,ci) =amr1(ci)*ff1*qn1*(cc(p1,ci)+p0)
dd(a,p1,ci) =amr1(ci)*ff1*qa1*(cc(p1,ci)+p0)
dd(n,p2,ci) =amr2(ci)*ff2*qn2*(cc(p2,ci)+p0)
dd(a,p2,ci) =amr2(ci)*ff2*qa2*(cc(p2,ci)+p0)
dd(p1,l,ci) =gamma*ff1*(qn1+qa1)*cc(p1,ci)
dd(p2,l,ci) =gamma*ff2*(qn2+qa2)*cc(p2,ci)
dd(p1,l,ci) =amr1(ci)*gamma*ff1*(qn1+qa1)*cc(p1,ci)
dd(p2,l,ci) =amr2(ci)*gamma*ff2*(qn2+qa2)*cc(p2,ci)
dd(p1,d,ci) =mu11*(cc(p1,ci)+p0)/(k5+cc(p1,ci)+p0)*cc(p1,ci) &
dd(p1,d,ci) =amr1(ci)*mu11*(cc(p1,ci)+p0)/(k5+cc(p1,ci)+p0)*cc(p1,ci) &
+(1.-beta)*cc(p1,ci)**2*(g1max*r11*fac1+g2max*r21*fac2)
dd(p2,d,ci) =mu12*(cc(p2,ci)+p0)/(k5+cc(p2,ci)+p0)*cc(p2,ci) &
dd(p2,d,ci) =amr2(ci)*mu12*(cc(p2,ci)+p0)/(k5+cc(p2,ci)+p0)*cc(p2,ci) &
+(1.-beta)*g2max*r21*cc(p2,ci)**2*fac2
dd(b,d,ci) =(1.-beta)*g1max*r12*cc(b,ci)**2*fac1
dd(p1,z1,ci)=beta*g1max*r11*cc(p1,ci)**2*fac1
dd(b,z1,ci) =beta*g1max*r12*cc(b,ci)**2*fac1
dd(d,z1,ci) =beta*g1max*r13*cc(d,ci)**2*fac1
dd(p1,z1,ci)=hmr1(ci)*beta*g1max*r11*cc(p1,ci)**2*fac1
dd(b,z1,ci) =hmr1(ci)*beta*g1max*r12*cc(b,ci)**2*fac1
dd(d,z1,ci) =hmr1(ci)*beta*g1max*r13*cc(d,ci)**2*fac1
dd(p1,z2,ci)=beta*g2max*r21*cc(p1,ci)**2*fac2
dd(p2,z2,ci)=beta*g2max*r22*cc(p2,ci)**2*fac2
dd(d,z2,ci) =beta*g2max*r23*cc(d,ci)**2*fac2
dd(z1,z2,ci)=beta*g2max*r24*cc(z1,ci)**2*fac2
dd(p1,z2,ci)=hmr2(ci)*beta*g2max*r21*cc(p1,ci)**2*fac2
dd(p2,z2,ci)=hmr2(ci)*beta*g2max*r22*cc(p2,ci)**2*fac2
dd(d,z2,ci) =hmr2(ci)*beta*g2max*r23*cc(d,ci)**2*fac2
dd(z1,z2,ci)=hmr2(ci)*beta*g2max*r24*cc(z1,ci)**2*fac2
dd(b,a,ci) =mu3*cc(b,ci)
dd(d,l,ci) =mu4*cc(d,ci)
dd(a,n,ci) =mu5*cc(a,ci)
dd(z1,d,ci) =(1.-epsi-delta)*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z1,a,ci) =epsi*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z1,l,ci) =delta*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z1,d,ci) =hmr1(ci)*(1.-epsi-delta)*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z1,a,ci) =hmr1(ci)*epsi*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z1,l,ci) =hmr1(ci)*delta*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
dd(z2,d,ci) =(1.-epsi-delta)*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(z2,a,ci) =epsi*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(z2,l,ci) =delta*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(z2,d,ci) =hmr2(ci)*(1.-epsi-delta)*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(z2,a,ci) =hmr2(ci)*epsi*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(z2,l,ci) =hmr2(ci)*delta*mu22*(cc(z2,ci)+z0)/(k6+cc(z2,ci)+z0)*cc(z2,ci)
dd(a,b,ci) =vb*minal/(k4+minal+cc(l,ci))*(cc(b,ci)+b0)
dd(l,b,ci) =vb*cc(l,ci)/(k4+minal+cc(l,ci))*(cc(b,ci)+b0)
......
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