Commit bfd9902e authored by Ariadna Celina Nocera's avatar Ariadna Celina Nocera

Modification du critere de migration

parent 74bf91b3
......@@ -610,10 +610,10 @@
!Diurnal migration of zooplancton as a function of light and phytoplancton
!(food) concentration
!ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
if (cc(p,ci) .lt. pmin) then
ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
else
ws(z,ci) = 0.0
if ((par(ci).lt.parcrit).and.(cc(p,ci) .gt. pmin)) then
ws(z,ci) = 0.0
else
ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
end if
......
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