Commit 4e3703cc9b1c403c4a43f1c7f0ee0411be762fcb

Authored by Dany Dumont
1 parent 6d7adc84
Exists in snow

Ajout de la remineralisation de ammonium vers nitrate a un taux lineaire proportionnel a mu5

Showing 1 changed file with 5 additions and 2 deletions   Show diff stats
src/extras/bio/bio_nocera.F90
... ... @@ -149,6 +149,7 @@
149 149 REALTYPE :: bertha = 0.05
150 150 REALTYPE :: parcrit = 0.02
151 151 REALTYPE :: pmin = 0.05
  152 + REALTYPE :: mu5 = 0.00
152 153 REALTYPE, public :: kc = 0.03
153 154 integer :: out_unit
154 155 integer, parameter :: p=1,z=2,b=3,d=4,n=5,a=6,l=7,f=8
... ... @@ -190,7 +191,7 @@
190 191 vb,k4,mu3,eta,mu4,w_d,kc, &
191 192 I_opt,inib, &
192 193 theta,w_pmax,w_pmin, &
193   - bertha,parcrit,w_zmax,pmin
  194 + bertha,parcrit,w_zmax,pmin,mu5
194 195 !EOP
195 196 !-----------------------------------------------------------------------
196 197 !BOC
... ... @@ -230,6 +231,7 @@
230 231 mu2 = mu2 /secs_pr_day
231 232 mu3 = mu3 /secs_pr_day
232 233 mu4 = mu4 /secs_pr_day
  234 + mu5 = mu5 /secs_pr_day
233 235 gmax = gmax /secs_pr_day
234 236 w_p = w_p /secs_pr_day
235 237 w_pmin = w_pmin /secs_pr_day !DD
... ... @@ -595,6 +597,7 @@
595 597 dd(d,z,ci)=beta*gmax*r3*cc(d,ci)**2*fac
596 598 dd(b,a,ci)=mu3*cc(b,ci)
597 599 dd(d,l,ci)=mu4*cc(d,ci)
  600 + dd(a,n,ci)=mu5*cc(a,ci)
598 601 dd(z,d,ci)=(1.-epsi-delta)*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
599 602 dd(z,a,ci)=epsi*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
600 603 dd(z,l,ci)=delta*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
... ... @@ -609,7 +612,7 @@
609 612 !(food) concentration
610 613 !ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
611 614 if ((par(ci).lt.parcrit).and.(cc(p,ci) .gt. pmin)) then
612   - ws(z,ci) = 0.0
  615 + ws(z,ci) = 0.0
613 616 else
614 617 ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
615 618 end if
... ...