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,11 +116,13 @@
116 REALTYPE :: vp = 1.5 116 REALTYPE :: vp = 1.5
117 REALTYPE :: alpha = 0.065 117 REALTYPE :: alpha = 0.065
118 !CHG1 Intensité optimale (I_opt)) 118 !CHG1 Intensité optimale (I_opt))
119 - REALTYPE :: I_opt = 10.0 119 + REALTYPE :: I_opt = 10.0
120 !CHG1 Paramere d'inibition (inib) 120 !CHG1 Paramere d'inibition (inib)
121 REALTYPE :: inib = 0.05 121 REALTYPE :: inib = 0.05
122 !CHG2 Paramere de flottaison du phytoplancton 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 REALTYPE :: k1 = 0.2 126 REALTYPE :: k1 = 0.2
125 REALTYPE :: k2 = 0.8 127 REALTYPE :: k2 = 0.8
126 REALTYPE :: mu1 = 0.05 128 REALTYPE :: mu1 = 0.05
@@ -143,9 +145,9 @@ @@ -143,9 +145,9 @@
143 REALTYPE :: eta = 0.0 145 REALTYPE :: eta = 0.0
144 REALTYPE :: mu4 = 0.02 146 REALTYPE :: mu4 = 0.02
145 REALTYPE :: w_d = -2.0 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 integer :: out_unit 151 integer :: out_unit
150 integer, parameter :: p=1,z=2,b=3,d=4,n=5,a=6,l=7 152 integer, parameter :: p=1,z=2,b=3,d=4,n=5,a=6,l=7
151 !EOP 153 !EOP
@@ -182,9 +184,9 @@ @@ -182,9 +184,9 @@
182 p_initial,z_initial,b_initial,d_initial,n_initial, & 184 p_initial,z_initial,b_initial,d_initial,n_initial, &
183 a_initial,l_initial,p0,z0,b0,vp,alpha,k1,k2,mu1,k5,& 185 a_initial,l_initial,p0,z0,b0,vp,alpha,k1,k2,mu1,k5,&
184 gamma,w_p,gmax,k3,beta,mu2,k6,delta,epsi,r1,r2,r3, & 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 I_opt,inib, & !CHG1 188 I_opt,inib, & !CHG1
187 - theta !CHG2 189 + theta,w_pmax,w_pmin !CHG2
188 !EOP 190 !EOP
189 !----------------------------------------------------------------------- 191 !-----------------------------------------------------------------------
190 !BOC 192 !BOC
@@ -512,7 +514,7 @@ @@ -512,7 +514,7 @@
512 ! Original author(s): Hans Burchard, Karsten Bolding 514 ! Original author(s): Hans Burchard, Karsten Bolding
513 ! 515 !
514 ! !LOCAL VARIABLES: 516 ! !LOCAL VARIABLES:
515 - REALTYPE :: ff,fac,fac2,min67 517 + REALTYPE :: ff,fac,fac2,min67,sigma
516 REALTYPE :: Ps !CHG1 518 REALTYPE :: Ps !CHG1
517 integer :: i,j,ci 519 integer :: i,j,ci
518 !EOP 520 !EOP
@@ -539,13 +541,16 @@ @@ -539,13 +541,16 @@
539 ! ff= vp*((par(ci)/I_opt)*exp(1-(par(ci)/I_opt)))**2 541 ! ff= vp*((par(ci)/I_opt)*exp(1-(par(ci)/I_opt)))**2
540 ! Platt et al. (1980) - inhibition 542 ! Platt et al. (1980) - inhibition
541 Ps= vp/((alpha/(alpha+inib))*(alpha/(alpha+inib))**(inib/alpha)) 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 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ & 547 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ &
546 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2) 548 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
547 min67=min(cc(a,ci),eta*cc(l,ci)) 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 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) & 554 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
550 +(1.-beta)*gmax*r1*cc(p,ci)**2*fac 555 +(1.-beta)*gmax*r1*cc(p,ci)**2*fac
551 dd(p,l,ci)=gamma*ff*(cc(n,ci)/k1+cc(a,ci)/k2)/ & 556 dd(p,l,ci)=gamma*ff*(cc(n,ci)/k1+cc(a,ci)/k2)/ &
@@ -564,9 +569,9 @@ @@ -564,9 +569,9 @@
564 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0) 569 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
565 dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0) 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 do i=1,numc 576 do i=1,numc
572 do j=1,numc 577 do j=1,numc