Commit 5652bb2b02c1c2046bf4a577fdb3d826156355be

Authored by Dany Dumont
1 parent 74bf91b3
Exists in master and in 1 other branch snow

Switch logique pour rendre les hydrocarures toxique pour le zooplancton dans bio_gsj

Showing 2 changed files with 14 additions and 6 deletions   Show diff stats
nml/bio_gsj.nml
... ... @@ -111,6 +111,7 @@
111 111 g2max = 1.0
112 112 k3 = 1.0
113 113 beta = 0.625
  114 + txc4zoo = .true.
114 115 mu21 = 0.3
115 116 mu21max = 1.5
116 117 bhc = 11.1
... ...
src/extras/bio/bio_gsj.F90
... ... @@ -64,7 +64,8 @@
64 64 REALTYPE :: p0 = 0.0
65 65 REALTYPE :: z0 = 0.0
66 66 REALTYPE :: b0 = 0.0
67   - LOGICAL :: mte = .true.
  67 + LOGICAL :: mte = .false.
  68 + LOGICAL :: txc4zoo = .false.
68 69 REALTYPE :: ca1 = 3.61
69 70 REALTYPE :: ca2 = 14.58
70 71 REALTYPE :: ch1 = 3.265
... ... @@ -177,6 +178,7 @@
177 178 ! mu22 : Maximum large zooplankton loss rate
178 179 ! k6 : Half saturation constant of zooplankton loss (small and large)
179 180 !! k7 : Half saturation constant of zooplankton loss by hydrocarbon toxicity (small and large)
  181 +! txc4zoo : Logical to make hydrocarbon toxic for zooplankton
180 182 ! bhc : Slope factor of zooplankton mortality for sigmoïd exponential type curve
181 183 ! mhc : Factor of zooplankton mortality for Michaelis-Menten exponential type curve
182 184 ! hc0 : Hydrocarbon sill concentration for zooplankton mortality by hydrocarbons
... ... @@ -241,7 +243,7 @@
241 243 r11,r12,r13,r14,r21,r22,r23,r24, &
242 244 vb1,vb2,k4,k10,w_h,mu3,etaa,etah,mu4,w_d,kc,mu5, &
243 245 theta,w_p1max,w_p1min,w_p2min,w_p2max, &
244   - mte,ca1,ca2,ch1,ch2,amratio,hmratio
  246 + txc4zoo,mte,ca1,ca2,ch1,ch2,amratio,hmratio
245 247  
246 248 !EOP
247 249 !-----------------------------------------------------------------------
... ... @@ -766,10 +768,15 @@
766 768 nitlim2(ci) =qn2
767 769 ammlim2(ci) =qa2
768 770  
769   - ! Hydrocarbon inhibition factors
770   - !mu21hc = mu21+(mu21max-mu21)/(1d0 + exp(-1d0*(cc(hc,ci)-k6hc)/bhc))
771   - mu21hc = mu21+((mu21max-mu21)*(cc(hc,ci))**mhc)/((cc(hc,ci))**mhc + k6hc**mhc)
772   - mu22hc = mu21hc
  771 + ! Hydrocarbon inhibition factors
  772 + !mu21hc = mu21+(mu21max-mu21)/(1d0 + exp(-1d0*(cc(hc,ci)-k6hc)/bhc))
  773 + if (txc4zoo) then
  774 + mu21hc = mu21+((mu21max-mu21)*(cc(hc,ci))**mhc)/((cc(hc,ci))**mhc + k6hc**mhc)
  775 + mu22hc = mu21hc
  776 + else
  777 + mu21hc = mu21
  778 + mu22hc = mu22
  779 + endif
773 780  
774 781 ! Nutrient uptake by pico- and nano-phytoplankton
775 782 dd(n,p1,ci) =amr1*ff1*qn1*(cc(p1,ci)+p0)
... ...