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,9 +675,9 @@
675 dd(p1,d,ci) =amr1*mu11*(cc(p1,ci)+p0)/(k5+cc(p1,ci)+p0)*cc(p1,ci) & 675 dd(p1,d,ci) =amr1*mu11*(cc(p1,ci)+p0)/(k5+cc(p1,ci)+p0)*cc(p1,ci) &
676 +(1.-beta)*cc(p1,ci)**2*(hmr1*g1max*r11*fac1+hmr2*g2max*r21*fac2) 676 +(1.-beta)*cc(p1,ci)**2*(hmr1*g1max*r11*fac1+hmr2*g2max*r21*fac2)
677 dd(p2,d,ci) =amr2*mu12*(cc(p2,ci)+p0)/(k5+cc(p2,ci)+p0)*cc(p2,ci) & 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 dd(p1,z1,ci)=hmr1*beta*g1max*r11*cc(p1,ci)**2*fac1 682 dd(p1,z1,ci)=hmr1*beta*g1max*r11*cc(p1,ci)**2*fac1
683 dd(p2,z1,ci)=hmr1*beta*g1max*r12*cc(p2,ci)**2*fac1 683 dd(p2,z1,ci)=hmr1*beta*g1max*r12*cc(p2,ci)**2*fac1
@@ -693,7 +693,8 @@ @@ -693,7 +693,8 @@
693 dd(d,l,ci) =mu4*cc(d,ci) 693 dd(d,l,ci) =mu4*cc(d,ci)
694 dd(a,n,ci) =mu5*cc(a,ci) 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 dd(z1,a,ci) =hmr1*epsi*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci) 698 dd(z1,a,ci) =hmr1*epsi*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
698 dd(z1,l,ci) =hmr1*delta*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci) 699 dd(z1,l,ci) =hmr1*delta*mu21*(cc(z1,ci)+z0)/(k6+cc(z1,ci)+z0)*cc(z1,ci)
699 700