Commit c58569d0689e5dd31153ec74f2fcf40e8b1e8314

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

Modification du terme de consommation des hydrocarbures (hc) par les bacteries (…

…b2) dans le modele bio_gsj pour refleter nos discussions du 26 novembre 2014.
Showing 1 changed file with 5 additions and 3 deletions   Show diff stats
src/extras/bio/bio_gsj.F90
... ... @@ -254,6 +254,7 @@
254 254 w_p2max = w_p2max /secs_pr_day
255 255 theta = theta /secs_pr_day
256 256 w_d = w_d /secs_pr_day
  257 + w_h = w_h /secs_pr_day
257 258 alpha1 = alpha1 /secs_pr_day
258 259 inib1 = inib1 /secs_pr_day
259 260 alpha2 = alpha2 /secs_pr_day
... ... @@ -330,7 +331,7 @@
330 331 ws(l,i) = _ZERO_
331 332 ws(b1,i) = _ZERO_
332 333 ws(a,i) = _ZERO_
333   - ws(hc,i) = _ZERO_
  334 + ws(hc,i) = w_h
334 335 ws(b2,i) = _ZERO_
335 336 end do
336 337  
... ... @@ -723,8 +724,9 @@
723 724  
724 725 dd(a,b1,ci) =vb*minal/(k4+minal+cc(l,ci))*(cc(b1,ci)+b0)
725 726 dd(l,b1,ci) =vb*cc(l,ci)/(k4+minal+cc(l,ci))*(cc(b1,ci)+b0)
726   - dd(a,b2,ci) =vb*minah/(k10+minah+cc(hc,ci))*(cc(b2,ci)+b0)
727   - dd(hc,b2,ci)=vb*cc(hc,ci)/(k10+minah+cc(hc,ci))*(cc(b2,ci)+b0)
  727 + dd(hc,b2,ci)=vb*cc(hc,ci)/(k10+cc(hc,ci))*(cc(b2,ci)+b0)
  728 + !dd(a,b2,ci) =vb*minah/(k10+minah+cc(hc,ci))*(cc(b2,ci)+b0)
  729 + !dd(hc,b2,ci)=vb*cc(hc,ci)/(k10+minah+cc(hc,ci))*(cc(b2,ci)+b0)
728 730  
729 731  
730 732 do i=1,numc
... ...