Commit 3e5d6e6b3791f8b766fabf11e90746d9118a35cb

Authored by dumoda01
1 parent 8aec5348
Exists in master and in 1 other branch snow

Ajout de la variable sigma = gross growth rate

Showing 1 changed file with 17 additions and 12 deletions   Show diff stats
src/extras/bio/bio_fasham.F90
... ... @@ -116,11 +116,13 @@
116 116 REALTYPE :: vp = 1.5
117 117 REALTYPE :: alpha = 0.065
118 118 !CHG1 Intensité optimale (I_opt))
119   - REALTYPE :: I_opt = 10.0
  119 + REALTYPE :: I_opt = 10.0
120 120 !CHG1 Paramere d'inibition (inib)
121 121 REALTYPE :: inib = 0.05
122 122 !CHG2 Paramere de flottaison du phytoplancton
123   - REALTYPE :: theta = 1.e7
  123 + REALTYPE :: theta = 0.0
  124 + REALTYPE :: w_pmin = -0.06
  125 + REALTYPE :: w_pmax = -0.38
124 126 REALTYPE :: k1 = 0.2
125 127 REALTYPE :: k2 = 0.8
126 128 REALTYPE :: mu1 = 0.05
... ... @@ -143,9 +145,9 @@
143 145 REALTYPE :: eta = 0.0
144 146 REALTYPE :: mu4 = 0.02
145 147 REALTYPE :: w_d = -2.0
146   - REALTYPE, public :: kc=0.03
147   - REALTYPE :: aa=0.62
148   - REALTYPE :: g2=20.0
  148 + REALTYPE, public :: kc = 0.03
  149 + REALTYPE :: aa = 0.70
  150 + REALTYPE :: g2 = 14.0
149 151 integer :: out_unit
150 152 integer, parameter :: p=1,z=2,b=3,d=4,n=5,a=6,l=7
151 153 !EOP
... ... @@ -182,9 +184,9 @@
182 184 p_initial,z_initial,b_initial,d_initial,n_initial, &
183 185 a_initial,l_initial,p0,z0,b0,vp,alpha,k1,k2,mu1,k5,&
184 186 gamma,w_p,gmax,k3,beta,mu2,k6,delta,epsi,r1,r2,r3, &
185   - vb,k4,mu3,eta,mu4,w_d,kc,aa,g2, &
  187 + vb,k4,mu3,eta,mu4,w_d,kc, &
186 188 I_opt,inib, & !CHG1
187   - theta !CHG2
  189 + theta,w_pmax,w_pmin !CHG2
188 190 !EOP
189 191 !-----------------------------------------------------------------------
190 192 !BOC
... ... @@ -512,7 +514,7 @@
512 514 ! Original author(s): Hans Burchard, Karsten Bolding
513 515 !
514 516 ! !LOCAL VARIABLES:
515   - REALTYPE :: ff,fac,fac2,min67
  517 + REALTYPE :: ff,fac,fac2,min67,sigma
516 518 REALTYPE :: Ps !CHG1
517 519 integer :: i,j,ci
518 520 !EOP
... ... @@ -539,13 +541,16 @@
539 541 ! ff= vp*((par(ci)/I_opt)*exp(1-(par(ci)/I_opt)))**2
540 542 ! Platt et al. (1980) - inhibition
541 543 Ps= vp/((alpha/(alpha+inib))*(alpha/(alpha+inib))**(inib/alpha))
542   - ff= Ps*(1-exp(-1*alpha*par(ci)/Ps))*exp(-1*inib*par(ci)/Ps)
  544 + ff= Ps*(1.-exp(-1.*alpha*par(ci)/Ps))*exp(-1.*inib*par(ci)/Ps)
543 545 ! --------------------------------------------------------------------
544 546  
545 547 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ &
546 548 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
547 549 min67=min(cc(a,ci),eta*cc(l,ci))
548 550  
  551 + ! Gross growth rate / Taux de croissance brut (Kunh and Radach 1997)
  552 + sigma =ff*(cc(n,ci)/k1+cc(a,ci)/k2)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)
  553 +
549 554 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
550 555 +(1.-beta)*gmax*r1*cc(p,ci)**2*fac
551 556 dd(p,l,ci)=gamma*ff*(cc(n,ci)/k1+cc(a,ci)/k2)/ &
... ... @@ -564,9 +569,9 @@
564 569 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
565 570 dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
566 571  
567   -! Update de la vitesse de chute du phytoplancton en fonction de dd(n,p,ci) et dd(a,p,ci)
568   - ws(p,ci)=w_p*exp(-theta*(dd(n,p,ci)+dd(a,p,ci))/(cc(n,ci)+p0)) !CHG2
569   -! ws(p,ci)=w_p
  572 +! Taux de chute du phytoplancton en fonction de la croissance
  573 +! ws(p,ci)=w_pmin+(w_pmax-w_pmin)*exp(-theta*sigma)
  574 + ws(p,ci)=w_p
570 575  
571 576 do i=1,numc
572 577 do j=1,numc
... ...