Commit 62daa075 authored by dumoda01's avatar dumoda01

Changements mineurs

parent 05f9196a
......@@ -115,12 +115,9 @@
REALTYPE :: b0 = 0.0
REALTYPE :: vp = 1.5
REALTYPE :: alpha = 0.065
!CHG1 Intensité optimale (I_opt))
REALTYPE :: I_opt = 10.0
!CHG1 Paramere d'inibition (inib)
REALTYPE :: inib = 0.05
!CHG2 Paramere de flottaison du phytoplancton
REALTYPE :: theta = 0.0
REALTYPE :: I_opt = 10.0 !CHG1
REALTYPE :: inib = 0.05 !CHG1
REALTYPE :: theta = 0.0 !CHG2
REALTYPE :: w_pmin = -0.06
REALTYPE :: w_pmax = -0.38
REALTYPE :: k1 = 0.2
......@@ -264,10 +261,9 @@
cc(b,i)=b_initial
cc(d,i)=d_initial
! cc(n,i)=n_initial
! cc(n,i)=nit(i) !CHG3
cc(n,i)=nprof(i) !CHG3
! cc(n,i)=aprof(i) !CHG5
cc(a,i)=a_initial !CHG5
! cc(a,i)=a_initial
cc(n,i)=aprof(i) !CHG5
cc(l,i)=l_initial
end do
......@@ -548,7 +544,7 @@
r1*cc(p,ci)**2+r2*cc(b,ci)**2+r3*cc(d,ci)**2)
min67=min(cc(a,ci),eta*cc(l,ci))
! Gross growth rate / Taux de croissance brut (Kunh and Radach 1997)
! Gross growth rate / Taux de croissance brut (Kuhn and Radach 1997)
sigma =ff*(cc(n,ci)/k1+cc(a,ci)/k2)/(1.+cc(n,ci)/k1+cc(a,ci)/k2)
dd(p,d,ci)=mu1*(cc(p,ci)+p0)/(k5+cc(p,ci)+p0)*cc(p,ci) &
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment