Commit b9e7fd9a673c88a9e51f2f26b5fa9bd2208a9dcd

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

Correction mineure du commit precedent (multiplication par secs_pr_day dans bio_ismer)

Showing 1 changed file with 2 additions and 2 deletions   Show diff stats
src/extras/bio/bio_ismer.F90
... ... @@ -707,8 +707,8 @@
707 707 ws(p1,ci) = w_p1
708 708 ws(p2,ci) = w_p2
709 709  
710   - ppnet(ci) =dd(a,p1,ci)+dd(n,p1,ci)-dd(p1,d,ci)-dd(p1,z1,ci)-dd(p1,z2,ci)-dd(p1,l,ci) &
711   - +dd(a,p2,ci)+dd(n,p2,ci)-dd(p2,d,ci)-dd(p2,z1,ci)-dd(p2,z2,ci)-dd(p2,l,ci)
  710 + ppnet(ci) =(dd(a,p1,ci)+dd(n,p1,ci)-dd(p1,d,ci)-dd(p1,z1,ci)-dd(p1,z2,ci)-dd(p1,l,ci) &
  711 + +dd(a,p2,ci)+dd(n,p2,ci)-dd(p2,d,ci)-dd(p2,z1,ci)-dd(p2,z2,ci)-dd(p2,l,ci))*secs_pr_day
712 712  
713 713 do i=1,numc
714 714 do j=1,numc
... ...