Commit 1025a7c403ac906052baa6f2cd78fba3404d0f61

Authored by dumoda01
1 parent 62daa075
Exists in master and in 1 other branch snow

Ajout de diagnostics utiles : lumlim, nitlim, ammlim

Showing 1 changed file with 21 additions and 13 deletions   Show diff stats
src/extras/bio/bio_fasham.F90
@@ -115,9 +115,12 @@ @@ -115,9 +115,12 @@
115 REALTYPE :: b0 = 0.0 115 REALTYPE :: b0 = 0.0
116 REALTYPE :: vp = 1.5 116 REALTYPE :: vp = 1.5
117 REALTYPE :: alpha = 0.065 117 REALTYPE :: alpha = 0.065
118 - REALTYPE :: I_opt = 10.0 !CHG1  
119 - REALTYPE :: inib = 0.05 !CHG1  
120 - REALTYPE :: theta = 0.0 !CHG2 118 +!CHG1 Intensité optimale (I_opt))
  119 + REALTYPE :: I_opt = 10.0
  120 +!CHG1 Paramere d'inibition (inib)
  121 + REALTYPE :: inib = 0.05
  122 +!CHG2 Paramere de flottaison du phytoplancton
  123 + REALTYPE :: theta = 0.0
121 REALTYPE :: w_pmin = -0.06 124 REALTYPE :: w_pmin = -0.06
122 REALTYPE :: w_pmax = -0.38 125 REALTYPE :: w_pmax = -0.38
123 REALTYPE :: k1 = 0.2 126 REALTYPE :: k1 = 0.2
@@ -261,9 +264,10 @@ @@ -261,9 +264,10 @@
261 cc(b,i)=b_initial 264 cc(b,i)=b_initial
262 cc(d,i)=d_initial 265 cc(d,i)=d_initial
263 ! cc(n,i)=n_initial 266 ! cc(n,i)=n_initial
  267 +! cc(n,i)=nit(i) !CHG3
264 cc(n,i)=nprof(i) !CHG3 268 cc(n,i)=nprof(i) !CHG3
265 -! cc(a,i)=a_initial  
266 - cc(n,i)=aprof(i) !CHG5 269 +! cc(n,i)=aprof(i) !CHG5
  270 + cc(a,i)=a_initial !CHG5
267 cc(l,i)=l_initial 271 cc(l,i)=l_initial
268 end do 272 end do
269 273
@@ -510,7 +514,7 @@ @@ -510,7 +514,7 @@
510 ! Original author(s): Hans Burchard, Karsten Bolding 514 ! Original author(s): Hans Burchard, Karsten Bolding
511 ! 515 !
512 ! !LOCAL VARIABLES: 516 ! !LOCAL VARIABLES:
513 - REALTYPE :: ff,fac,fac2,min67,sigma 517 + REALTYPE :: ff,fac,fac2,min67,q1,q2
514 REALTYPE :: Ps !CHG1 518 REALTYPE :: Ps !CHG1
515 integer :: i,j,ci 519 integer :: i,j,ci
516 !EOP 520 !EOP
@@ -540,17 +544,21 @@ @@ -540,17 +544,21 @@
540 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)
541 ! -------------------------------------------------------------------- 545 ! --------------------------------------------------------------------
542 546
  547 +
  548 + q1=(cc(n,ci)/k1)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)
  549 + q2=(cc(a,ci)/k2)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)
543 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ & 550 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ &
544 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2) 551 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
545 min67=min(cc(a,ci),eta*cc(l,ci)) 552 min67=min(cc(a,ci),eta*cc(l,ci))
546 553
547 - ! Gross growth rate / Taux de croissance brut (Kuhn and Radach 1997)  
548 - sigma =ff*(cc(n,ci)/k1+cc(a,ci)/k2)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)  
549 - 554 + ! Light and nutrient limitation factors
  555 + lumlim(ci)=ff
  556 + nitlim(ci)=q1
  557 + ammlim(ci)=q2
  558 +
550 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) & 559 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
551 +(1.-beta)*gmax*r1*cc(p,ci)**2*fac 560 +(1.-beta)*gmax*r1*cc(p,ci)**2*fac
552 - dd(p,l,ci)=gamma*ff*(cc(n,ci)/k1+cc(a,ci)/k2)/ &  
553 - (1.+cc(n,ci)/k1+cc(a,ci)/k2)*cc(p,ci) 561 + dd(p,l,ci)=gamma*ff*(q1+q2)*cc(p,ci)
554 dd(b,d,ci)=(1.-beta)*gmax*r2*cc(b,ci)**2*fac 562 dd(b,d,ci)=(1.-beta)*gmax*r2*cc(b,ci)**2*fac
555 dd(p,z,ci)=beta*gmax*r1*cc(p,ci)**2*fac 563 dd(p,z,ci)=beta*gmax*r1*cc(p,ci)**2*fac
556 dd(b,z,ci)=beta*gmax*r2*cc(b,ci)**2*fac 564 dd(b,z,ci)=beta*gmax*r2*cc(b,ci)**2*fac
@@ -560,8 +568,8 @@ @@ -560,8 +568,8 @@
560 dd(z,d,ci)=(1.-epsi-delta)*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci) 568 dd(z,d,ci)=(1.-epsi-delta)*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
561 dd(z,a,ci)=epsi*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci) 569 dd(z,a,ci)=epsi*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
562 dd(z,l,ci)=delta*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci) 570 dd(z,l,ci)=delta*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
563 - dd(n,p,ci)=ff*cc(n,ci)/k1/(1.+cc(n,ci)/k1+cc(a,ci)/k2)*(cc(p,ci)+p0)  
564 - dd(a,p,ci)=ff*cc(a,ci)/k2/(1.+cc(n,ci)/k1+cc(a,ci)/k2)*(cc(p,ci)+p0) 571 + dd(n,p,ci)=ff*q1*(cc(p,ci)+p0)
  572 + dd(a,p,ci)=ff*q2*(cc(p,ci)+p0)
565 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0) 573 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
566 dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0) 574 dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
567 575