Modification du critere de migration

src/extras/bio/bio_nocera.F90

@@ -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