Commit 62daa0751bf2083a107060de3d15566dfa90ac66

Authored by dumoda01
1 parent 05f9196a
Exists in master and in 1 other branch snow

Changements mineurs

Showing 1 changed file with 6 additions and 10 deletions   Show diff stats
src/extras/bio/bio_fasham.F90
... ... @@ -115,12 +115,9 @@
115 115 REALTYPE :: b0 = 0.0
116 116 REALTYPE :: vp = 1.5
117 117 REALTYPE :: alpha = 0.065
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
  118 + REALTYPE :: I_opt = 10.0 !CHG1
  119 + REALTYPE :: inib = 0.05 !CHG1
  120 + REALTYPE :: theta = 0.0 !CHG2
124 121 REALTYPE :: w_pmin = -0.06
125 122 REALTYPE :: w_pmax = -0.38
126 123 REALTYPE :: k1 = 0.2
... ... @@ -264,10 +261,9 @@
264 261 cc(b,i)=b_initial
265 262 cc(d,i)=d_initial
266 263 ! cc(n,i)=n_initial
267   -! cc(n,i)=nit(i) !CHG3
268 264 cc(n,i)=nprof(i) !CHG3
269   -! cc(n,i)=aprof(i) !CHG5
270   - cc(a,i)=a_initial !CHG5
  265 +! cc(a,i)=a_initial
  266 + cc(n,i)=aprof(i) !CHG5
271 267 cc(l,i)=l_initial
272 268 end do
273 269  
... ... @@ -548,7 +544,7 @@
548 544 r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
549 545 min67=min(cc(a,ci),eta*cc(l,ci))
550 546  
551   - ! Gross growth rate / Taux de croissance brut (Kunh and Radach 1997)
  547 + ! Gross growth rate / Taux de croissance brut (Kuhn and Radach 1997)
552 548 sigma =ff*(cc(n,ci)/k1+cc(a,ci)/k2)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)
553 549  
554 550 dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
... ...