Commit bb20eea6987547b7b2e52f929334e8575786166e

Authored by dumoda01
1 parent b7e38dff
Exists in master and in 1 other branch snow

Resolution d'un bogue dans bio_ismer.F90 ou des variables declarees deux fois creaient des NaN.

Showing 1 changed file with 2 additions and 3 deletions   Show diff stats
src/extras/bio/bio_ismer.F90
... ... @@ -69,8 +69,8 @@
69 69 REALTYPE :: ca2 = 14.58
70 70 REALTYPE :: ch1 = 3.265
71 71 REALTYPE :: ch2 = 24.923
72   - REALTYPE :: amratio = 200
73   - REALTYPE :: hmratio = 1000
  72 + REALTYPE :: amratio = 200.0
  73 + REALTYPE :: hmratio = 1000.0
74 74 REALTYPE :: vp1 = 1.5
75 75 REALTYPE :: alpha1 = 0.065
76 76 REALTYPE :: inib1 = 0.05
... ... @@ -567,7 +567,6 @@
567 567 REALTYPE :: minal,qn1,qa1,qn2,qa2
568 568 REALTYPE :: ps1,ps2,ff1,ff2
569 569 REALTYPE :: Ea,Eh,kBeV,T0
570   - REALTYPE :: amratio,hmratio,ca1,ca2,ch1,ch2
571 570 integer :: i,j,ci
572 571 !EOP
573 572 !-----------------------------------------------------------------------
... ...