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 115 REALTYPE :: b0 = 0.0
116 116 REALTYPE :: vp = 1.5
117 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 124 REALTYPE :: w_pmin = -0.06
122 125 REALTYPE :: w_pmax = -0.38
123 126 REALTYPE :: k1 = 0.2
... ... @@ -261,9 +264,10 @@
261 264 cc(b,i)=b_initial
262 265 cc(d,i)=d_initial
263 266 ! cc(n,i)=n_initial
  267 +! cc(n,i)=nit(i) !CHG3
264 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 271 cc(l,i)=l_initial
268 272 end do
269 273  
... ... @@ -510,7 +514,7 @@
510 514 ! Original author(s): Hans Burchard, Karsten Bolding
511 515 !
512 516 ! !LOCAL VARIABLES:
513   - REALTYPE :: ff,fac,fac2,min67,sigma
  517 + REALTYPE :: ff,fac,fac2,min67,q1,q2
514 518 REALTYPE :: Ps !CHG1
515 519 integer :: i,j,ci
516 520 !EOP
... ... @@ -540,17 +544,21 @@
540 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 550 fac=(cc(z,ci)+z0)/(k3*(r1*cc(p,ci)+r2*cc(b,ci)+r3*cc(d,ci))+ &
544 551 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
545 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 559 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
551 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 562 dd(b,d,ci)=(1.-beta)*gmax*r2*cc(b,ci)**2*fac
555 563 dd(p,z,ci)=beta*gmax*r1*cc(p,ci)**2*fac
556 564 dd(b,z,ci)=beta*gmax*r2*cc(b,ci)**2*fac
... ... @@ -560,8 +568,8 @@
560 568 dd(z,d,ci)=(1.-epsi-delta)*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
561 569 dd(z,a,ci)=epsi*mu2*(cc(z,ci)+z0)/(k6+cc(z,ci)+z0)*cc(z,ci)
562 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 573 dd(a,b,ci)=vb*min67/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
566 574 dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
567 575  
... ...