Commit 8d24f9ca2d282dea6a3f38588cae52645c725b81

Authored by Dany Dumont
1 parent 580c08ac
Exists in master and in 1 other branch snow

Correction de plusieurs erreurs dans les termes impliquant les preferences de br…

…outage par les dexu classes de zooplancton (z1 et z2).
Showing 1 changed file with 4 additions and 3 deletions   Show diff stats
src/extras/bio/bio_ismer.F90
... ... @@ -675,9 +675,9 @@
675 675 dd(p1,d,ci) =amr1*mu11*(cc(p1,ci)+p0)/(k5+cc(p1,ci)+p0)*cc(p1,ci) &
676 676 +(1.-beta)*cc(p1,ci)**2*(hmr1*g1max*r11*fac1+hmr2*g2max*r21*fac2)
677 677 dd(p2,d,ci) =amr2*mu12*(cc(p2,ci)+p0)/(k5+cc(p2,ci)+p0)*cc(p2,ci) &
678   - +(1.-beta)*cc(p2,ci)**2*(hmr1*g1max*r11*fac1+hmr2*g2max*r21*fac2)
  678 + +(1.-beta)*cc(p2,ci)**2*(hmr1*g1max*r12*fac1+hmr2*g2max*r22*fac2)
679 679  
680   - dd(b,d,ci) =(1.-beta)*g1max*r12*cc(b,ci)**2*fac1
  680 + dd(b,d,ci) =(1.-beta)*g1max*r13*cc(b,ci)**2*fac1
681 681  
682 682 dd(p1,z1,ci)=hmr1*beta*g1max*r11*cc(p1,ci)**2*fac1
683 683 dd(p2,z1,ci)=hmr1*beta*g1max*r12*cc(p2,ci)**2*fac1
... ... @@ -693,7 +693,8 @@
693 693 dd(d,l,ci) =mu4*cc(d,ci)
694 694 dd(a,n,ci) =mu5*cc(a,ci)
695 695  
696   - dd(z1,d,ci) =hmr1*(1.-epsi-delta)*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
  696 + dd(z1,d,ci) =(1.-beta)*hmr2*g2max*r24*cc(z1,ci)**2*fac2 &
  697 + +hmr1*(1.-epsi-delta)*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
697 698 dd(z1,a,ci) =hmr1*epsi*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
698 699 dd(z1,l,ci) =hmr1*delta*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
699 700  
... ...