Skip to content

GitLab

G
gotm_ismer
Commit b7e38dff authored by dumoda01's avatar dumoda01
Browse files
Options

Ajout d'un terme de broutage du p1 par le z1 avec sa preference r14... 

Ajout d'un terme de broutage du p1 par le z1 avec sa preference r14 correspondante. Ajout de amratio et hmratio comme parametres de la namelist bio_ismer.nml.
parent 4aaa729a
Hide whitespace changes
Inline Side-by-side
Showing with 41 additions and 30 deletions
nml/bio_ismer.nml
View file @ b7e38dff
......@@ -19,39 +19,42 @@
! ca2 = temp-dependence coeff for p2
! ch1 = temp-dependence coeff for z1
! ch2 = temp-dependence coeff for z2
! amratio = Mass ratio between p2 and p1
! hmratio = Mass ratio between z2 and z1
! 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)]
! inib2 = inhibition slope of the PI-curve (pos.) [m2/(W day)]
! 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]
! mu11 = pico-phytoplankton mortality rate [1/day]
! mu12 = nano-phytoplankton mortality rate [1/day]
! kn1 = half sat. constant nitrate uptake by p1 [mmol n/m3]
! ka1 = half sat. constant ammonium uptake by p1 [mmol n/m3]
! kn2 = half sat. constant nitrate uptake by p2 [mmol n/m3]
! ka2 = half sat. constant ammonium uptake by p2 [mmol n/m3]
! mu11 = mortality rate for p1 [1/day]
! mu12 = mortality rate for p2 [1/day]
! k5 = half sat. constant phy. mortality [mmol n/m3]
! gamma = exudation fraction [-]
! w_p1 = flagellate settling velocity [m/day]
! w_p2 = diatom settling velocity [m/day]
! w_p1 = settling velocity for p1 [m/day]
! w_p2 = settling velocity for p2 [m/day]
! theta = phytoplancton buoyancy parameter [m3 day/(mmol N)]
! g1max = maximum microzooplankton ingestion rate [1/day]
! g2max = maximum mesozooplankton ingestion rate [1/day]
! g1max = maximum ingestion rate for z1 [1/day]
! g2max = maximum ingestion rate for z2 [1/day]
! k3 = half saturation constant ingestion [mmol n/m3]
! beta = grazing efficiency [-]
! k6 = half saturation zooplankton loss (mcz & msz) [mmol n/m3]
! mu21 = maximum micro-zooplankton loss rate [1/day]
! mu22 = maximum meso-zooplankton loss rate [1/day]
! 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 [-]
! k6 = half saturation zooplankton loss (z1 & z2) [mmol n/m3]
! mu21 = maximum loss rate for z1 [1/day]
! mu22 = maximum loss rate for z2 [1/day]
! delta = fractional zooplankton loss to LDON (z1 & z2) [-]
! epsi = fractional zooplankton loss to ammonium (z1 & z2) [-]
! r11 = z1 grazing preference on p1 [-]
! r12 = z1 grazing preference on p2 [-]
! r13 = z1 grazing preference on bacteria [-]
! r14 = z1 grazing preference on detritus [-]
! r21 = z2 grazing preference on p1 [-]
! r22 = z2 grazing preference on p2 [-]
! r23 = z2 grazing preference on detritus [-]
! r24 = z2 grazing preference on z1 [-]
! vb = maximum bacterial uptake rate [1/day]
! k4 = half saturation bacterial uptake [mmol n/m3]
! mu3 = bacteria excretion rate [1/day]
......@@ -78,6 +81,8 @@
ca2 = 14.58
ch1 = 3.265
ch2 = 24.923
amratio = 200
hmratio = 1000
vp1 = 0.02
vp2 = 0.8
alpha1 = 0.02
......@@ -109,8 +114,9 @@
delta = 0.1
epsi = 0.70
r11 = 0.55
r12 = 0.40
r12 = 0.30
r13 = 0.05
r14 = 0.10
r21 = 0.50
r22 = 0.30
r23 = 0.05
......
src/extras/bio/bio_ismer.F90
View file @ b7e38dff
......@@ -69,6 +69,8 @@
REALTYPE :: ca2 = 14.58
REALTYPE :: ch1 = 3.265
REALTYPE :: ch2 = 24.923
REALTYPE :: amratio = 200
REALTYPE :: hmratio = 1000
REALTYPE :: vp1 = 1.5
REALTYPE :: alpha1 = 0.065
REALTYPE :: inib1 = 0.05
......@@ -100,8 +102,9 @@
REALTYPE :: delta = 0.1
REALTYPE :: epsi = 0.70
REALTYPE :: r11 = 0.55
REALTYPE :: r12 = 0.4
REALTYPE :: r12 = 0.30
REALTYPE :: r13 = 0.05
REALTYPE :: r14 = 0.10
REALTYPE :: r21 = 0.50
REALTYPE :: r22 = 0.30
REALTYPE :: r23 = 0.05
......@@ -153,10 +156,10 @@
p0,z0,b0,vp1,alpha1,inib1,vp2,alpha2,inib2, &
kn1,ka1,kn2,ka2,mu11,mu12,k5,gamma,w_p1,w_p2, &
g1max,g2max,k3,beta,mu21,mu22,k6,delta,epsi, &
r11,r12,r13,r21,r22,r23,r24, &
r11,r12,r13,r14,r21,r22,r23,r24, &
vb,k4,mu3,eta,mu4,w_d,kc,mu5, &
theta,w_p1max,w_p1min,w_p2min,w_p2max, &
mte,ca1,ca2,ch1,ch2
mte,ca1,ca2,ch1,ch2,amratio,hmratio
!EOP
!-----------------------------------------------------------------------
......@@ -202,6 +205,7 @@
write(10,901) r11
write(10,901) r12
write(10,901) r13
write(10,901) r14
write(10,901) r21
write(10,901) r22
write(10,901) r23
......@@ -219,6 +223,8 @@
write(10,901) ca2
write(10,901) ch1
write(10,901) ch2
write(10,901) amratio
write(10,901) hmratio
endif
......@@ -593,8 +599,6 @@
! their respective metabolic rates, according to the MTE.
! The same applies to micro-zooplankton (z1) versus
! meso-zooplankton (z2) through fac4=hmratio**0.25.
amratio = 200.0
hmratio = 1000.0
fac3 = amratio**0.25
fac4 = hmratio**0.25
......@@ -677,8 +681,9 @@
dd(b,d,ci) =(1.-beta)*g1max*r12*cc(b,ci)**2*fac1
dd(p1,z1,ci)=hmr1*beta*g1max*r11*cc(p1,ci)**2*fac1
dd(b,z1,ci) =hmr1*beta*g1max*r12*cc(b,ci)**2*fac1
dd(d,z1,ci) =hmr1*beta*g1max*r13*cc(d,ci)**2*fac1
dd(p2,z1,ci)=hmr1*beta*g1max*r12*cc(p2,ci)**2*fac1
dd(b,z1,ci) =hmr1*beta*g1max*r13*cc(b,ci)**2*fac1
dd(d,z1,ci) =hmr1*beta*g1max*r14*cc(d,ci)**2*fac1
dd(p1,z2,ci)=hmr2*beta*g2max*r21*cc(p1,ci)**2*fac2
dd(p2,z2,ci)=hmr2*beta*g2max*r22*cc(p2,ci)**2*fac2
......
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