Commit bfd9902ea9bd9d34314f9b6c07b269cf7dae14a7

Authored by Ariadna Celina Nocera
1 parent 74bf91b3
Exists in master and in 1 other branch snow

Modification du critere de migration

Showing 1 changed file with 4 additions and 4 deletions   Show diff stats
src/extras/bio/bio_nocera.F90
... ... @@ -610,10 +610,10 @@
610 610 !Diurnal migration of zooplancton as a function of light and phytoplancton
611 611 !(food) concentration
612 612 !ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
613   - if (cc(p,ci) .lt. pmin) then
614   - ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
615   - else
616   - ws(z,ci) = 0.0
  613 + if ((par(ci).lt.parcrit).and.(cc(p,ci) .gt. pmin)) then
  614 + ws(z,ci) = 0.0
  615 + else
  616 + ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
617 617 end if
618 618  
619 619  
... ...