Commit 9538a482 authored by dumoda01's avatar dumoda01

Fonction de flottabilite reparee mais non activee par defaut

parent 70b751d6
......@@ -207,6 +207,9 @@
mu4 = mu4 /secs_pr_day
gmax = gmax /secs_pr_day
w_p = w_p /secs_pr_day
w_pmin = w_pmin /secs_pr_day !DD
w_pmax = w_pmax /secs_pr_day !DD
theta = theta /secs_pr_day !DD
w_d = w_d /secs_pr_day
alpha= alpha/secs_pr_day
inib = inib /secs_pr_day !CHG1
......@@ -574,7 +577,8 @@
dd(l,b,ci)=vb*cc(l,ci)/(k4+min67+cc(l,ci))*(cc(b,ci)+b0)
! Taux de chute du phytoplancton en fonction de la croissance
! ws(p,ci)=w_pmin+(w_pmax-w_pmin)*exp(-theta*sigma)
! ws(p,ci)=w_pmin+(w_pmax-w_pmin)*exp(-ff/theta)
! ws(p,ci)=w_pmax-(w_pmax-w_pmin)*(ff/theta/(1.+ff/theta))
ws(p,ci)=w_p
do i=1,numc
......
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