Commit ac88286b authored by dumoda01's avatar dumoda01

Ajout de broutage du mesozoo sur le microzoo (preference r24).

parent 8ea84af1
......@@ -4,109 +4,111 @@
!
! numc= number of compartments for geobiochemical model
!
! p1_initial= initial flagellate concentration [mmol n/m3]
! p2_initial= initial diatom concentration [mmol n/m3]
! z1_initial= initial micro-zooplakton concentration [mmol n/m3]
! z2_initial= initial meso-zooplakton concentration [mmol n/m3]
! b_initial= initial bacteria concentration [mmol n/m3]
! d_initial= initial detritus concentration [mmol n/m3]
! n_initial= *** see obs.nml *** [mmol n/m3]
! a_initial= *** see obs.nml *** [mmol n/m3]
! l_initial= initial LDON concentration [mmol n/m3]
! p0 = minimum phytoplankton concentration [mmol n/m3]
! z0 = minimum zooplakton concentration [mmol n/m3]
! b0 = minimum bacteria concentration [mmol n/m3]
! theta = phytoplancton buoyancy parameter [m3 day/(mmol N)] !CHG2
! vp1 = maximum flagellate uptake rate by flagellates [1/day]
! vp2 = maximum diatom uptake rate by diatoms [1/day]
! alpha1 = slope of the flagellate PI-curve [m2/(W day)]
! alpha2 = slope of the diatom PI-curve [m2/(W day)]
! inib1 = inhibition slope of the flagellate PI-curve (pos.) [m2/(W day)] !CHG1
! inib2 = inhibition slope of the PI-curve (pos.) [m2/(W day)] !CHG1
! kn1 = half sat. constant nitrate uptake by fla [mmol n/m3]
! ka1 = half sat. constant ammonium uptake by fla [mmol n/m3]
! kn2 = half sat. constant nitrate uptake by diatoms [mmol n/m3]
! ka2 = half sat. constant ammonium uptake by diatoms [mmol n/m3]
! mu1 = phytoplankton (fla & dia) mortality rate [1/day]
! k5 = half sat. constant phy. mortality (fla & dia) [mmol n/m3]
! gamma = exudation fraction [-]
! w_p1 = flagellate settling velocity [m/day]
! w_p2 = diatom settling velocity [m/day]
! g1max = maximum microzooplankton ingestion rate [1/day]
! g2max = maximum mesozooplankton ingestion rate [1/day]
! k3 = half saturation constant ingestion [mmol n/m3]
! beta = grazing efficiency [-]
! mu2 = maximum zooplankton loss rate (mcz & msz) [1/day]
! k6 = half saturation zooplankton loss (mcz & msz) [mmol n/m3]
! delta = fractional zooplankton loss to LDON (mcz & msz) [-]
! epsi = fractional zooplankton loss to ammonium (mcz & msz) [-]
! r11 = mcz grazing preference on flagellates [-]
! r12 = mcz grazing preference on bacteria [-]
! r13 = mcz grazing preference on detritus [-]
! r21 = msz grazing preference on flagellates [-]
! r22 = msz grazing preference on diatoms [-]
! r23 = msz grazing preference on detritus [-]
! vb = maximum bacterial uptake rate [1/day]
! k4 = half saturation bacterial uptake [mmol n/m3]
! mu3 = bacteria excretion rate [1/day]
! eta = uptake ratio ammonium:LDON [-]
! mu4 = detritus breakdown rate [1/day]
! mu5 = nitrification rate [1/day]
! w_d = detritus settling velocity [m/day]
! kc = attenuation constant for the self shading effect [m**2/mmol N]
! p1_init = initial flagellate concentration [mmol n/m3]
! p2_init = initial diatom concentration [mmol n/m3]
! z1_init = initial micro-zooplakton concentration [mmol n/m3]
! z2_init = initial meso-zooplakton concentration [mmol n/m3]
! b_init = initial bacteria concentration [mmol n/m3]
! d_init = initial detritus concentration [mmol n/m3]
! n_init = *** see obs.nml *** [mmol n/m3]
! a_init = *** see obs.nml *** [mmol n/m3]
! l_init = initial LDON concentration [mmol n/m3]
! p0 = minimum phytoplankton concentration [mmol n/m3]
! z0 = minimum zooplakton concentration [mmol n/m3]
! b0 = minimum bacteria concentration [mmol n/m3]
! theta = phytoplancton buoyancy parameter [m3 day/(mmol N)] !CHG2
! vp1 = maximum flagellate uptake rate by flagellates [1/day]
! vp2 = maximum diatom uptake rate by diatoms [1/day]
! alpha1 = slope of the flagellate PI-curve [m2/(W day)]
! alpha2 = slope of the diatom PI-curve [m2/(W day)]
! inib1 = inhibition slope of the flagellate PI-curve (pos.) [m2/(W day)] !CHG1
! inib2 = inhibition slope of the PI-curve (pos.) [m2/(W day)] !CHG1
! kn1 = half sat. constant nitrate uptake by fla [mmol n/m3]
! ka1 = half sat. constant ammonium uptake by fla [mmol n/m3]
! kn2 = half sat. constant nitrate uptake by diatoms [mmol n/m3]
! ka2 = half sat. constant ammonium uptake by diatoms [mmol n/m3]
! mu1 = phytoplankton (fla & dia) mortality rate [1/day]
! k5 = half sat. constant phy. mortality (fla & dia) [mmol n/m3]
! gamma = exudation fraction [-]
! w_p1 = flagellate settling velocity [m/day]
! w_p2 = diatom settling velocity [m/day]
! g1max = maximum microzooplankton ingestion rate [1/day]
! g2max = maximum mesozooplankton ingestion rate [1/day]
! k3 = half saturation constant ingestion [mmol n/m3]
! beta = grazing efficiency [-]
! mu2 = maximum zooplankton loss rate (mcz & msz) [1/day]
! k6 = half saturation zooplankton loss (mcz & msz) [mmol n/m3]
! delta = fractional zooplankton loss to LDON (mcz & msz) [-]
! epsi = fractional zooplankton loss to ammonium (mcz & msz) [-]
! r11 = mcz grazing preference on flagellates [-]
! r12 = mcz grazing preference on bacteria [-]
! r13 = mcz grazing preference on detritus [-]
! r21 = msz grazing preference on flagellates [-]
! r22 = msz grazing preference on diatoms [-]
! r23 = msz grazing preference on detritus [-]
! r24 = msz grazing preference on mcz [-]
! vb = maximum bacterial uptake rate [1/day]
! k4 = half saturation bacterial uptake [mmol n/m3]
! mu3 = bacteria excretion rate [1/day]
! eta = uptake ratio ammonium:LDON [-]
! mu4 = detritus breakdown rate [1/day]
! mu5 = nitrification rate [1/day]
! w_d = detritus settling velocity [m/day]
! kc = attenuation constant for the self shading effect [m**2/mmol N]
!-------------------------------------------------------------------------------
&bio_ismer_nml
numc= 9
p1_initial= 0.012
p2_initial= 0.012
z1_initial= 0.012
z2_initial= 0.012
b_initial= 0.001
d_initial= 0.01
l_initial= 0.1
p0= 0.0001
z0= 0.0001
b0= 0.0001
vp1= 0.3
vp2= 0.3
alpha1= 0.04
alpha2= 0.04
inib1= 0.06
inib2= 0.06
kn1= 1.0
ka1= 0.8
kn2= 1.0
ka2= 0.8
mu1= 0.05
k5= 0.2
gamma= 0.05
w_p1= -0.38
w_p2= -0.10
theta= 0.0
w_p1min= -0.06
w_p1max= -0.38
w_p2min= -0.06
w_p2max= -0.38
g1max= 1.0
g2max= 1.0
k3= 1.0
beta= 0.625
mu2= 0.3
k6= 0.2
delta= 0.1
epsi= 0.70
r11= 0.55
r12= 0.4
r13= 0.05
r21= 0.55
r22= 0.4
r23= 0.05
vb= 0.24
k4= 0.5
mu3= 0.03
eta= 0.0
mu4= 0.02
mu5= 0.00
w_d= -5.0
kc= 0.03
numc = 9
p1_init = 0.012
p2_init = 0.012
z1_init = 0.012
z2_init = 0.012
b_init = 0.001
d_init = 0.01
l_init = 0.1
p0 = 0.0001
z0 = 0.0001
b0 = 0.0001
vp1 = 1.0
vp2 = 0.8
alpha1 = 0.04
alpha2 = 0.04
inib1 = 0.006
inib2 = 0.006
kn1 = 1.0
ka1 = 0.8
kn2 = 1.0
ka2 = 0.8
mu1 = 0.05
k5 = 0.2
gamma = 0.05
w_p1 =-0.10
w_p2 =-0.38
theta = 0.0
w_p1min =-0.01
w_p1max =-0.10
w_p2min =-0.05
w_p2max =-0.38
g1max = 1.0
g2max = 1.0
k3 = 1.0
beta = 0.625
mu2 = 0.3
k6 = 0.2
delta = 0.1
epsi = 0.70
r11 = 0.55
r12 = 0.40
r13 = 0.05
r21 = 0.50
r22 = 0.30
r23 = 0.05
r24 = 0.15
vb = 0.24
k4 = 0.5
mu3 = 0.03
eta = 0.0
mu4 = 0.02
mu5 = 0.00
w_d = -5.0
kc = 0.03
/
......@@ -95,9 +95,10 @@
REALTYPE :: r11 = 0.55
REALTYPE :: r12 = 0.4
REALTYPE :: r13 = 0.05
REALTYPE :: r21 = 0.55
REALTYPE :: r22 = 0.4
REALTYPE :: r21 = 0.50
REALTYPE :: r22 = 0.30
REALTYPE :: r23 = 0.05
REALTYPE :: r24 = 0.15
REALTYPE :: vb = 1.2
REALTYPE :: k4 = 0.5
REALTYPE :: mu3 = 0.15
......@@ -145,7 +146,7 @@
p0,z0,b0,vp1,alpha1,inib1,vp2,alpha2,inib2, &
kn1,ka1,kn2,ka2,mu1,k5,gamma,w_p1,w_p2, &
g1max,g2max,k3,beta,mu2,k6,delta,epsi, &
r11,r12,r13,r21,r22,r23, &
r11,r12,r13,r21,r22,r23,r24, &
vb,k4,mu3,eta,mu4,w_d,kc,mu5, &
theta,w_p1max,w_p1min,w_p2min,w_p2max
!EOP
......@@ -547,8 +548,10 @@
fac1=(cc(z1,ci)+z0)/(k3*(r11*cc(p1,ci)+r12*cc(b,ci)+r13*cc(d,ci))+ &
r11*cc(p1,ci)**2+r12*cc(b,ci)**2+r13*cc(d,ci)**2)
fac2=(cc(z2,ci)+z0)/(k3*(r21*cc(p1,ci)+r22*cc(p2,ci)+r23*cc(d,ci))+ &
r21*cc(p1,ci)**2+r22*cc(p2,ci)**2+r23*cc(d,ci)**2)
fac2=(cc(z2,ci)+z0)/(k3*(r21*cc(p1,ci)+r22*cc(p2,ci) &
+r23*cc(d,ci)+r24*cc(z1,ci)) &
+r21*cc(p1,ci)**2+r22*cc(p2,ci)**2 &
+r23*cc(d,ci)**2+r24*cc(z1,ci)**2)
minal=min(cc(a,ci),eta*cc(l,ci))
......@@ -585,6 +588,7 @@
dd(p1,z2,ci)=fac3*beta*g2max*r21*cc(p1,ci)**2*fac2
dd(p2,z2,ci)=fac3*beta*g2max*r22*cc(p2,ci)**2*fac2
dd(d,z2,ci) =fac3*beta*g2max*r23*cc(d,ci)**2*fac2
dd(z1,z2,ci)=fac3*beta*g2max*r24*cc(z1,ci)**2*fac2
dd(b,a,ci) =mu3*cc(b,ci)
dd(d,l,ci) =mu4*cc(d,ci)
......
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