Commit bb20eea6 authored by dumoda01's avatar dumoda01

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

parent b7e38dff
......@@ -69,8 +69,8 @@
REALTYPE :: ca2 = 14.58
REALTYPE :: ch1 = 3.265
REALTYPE :: ch2 = 24.923
REALTYPE :: amratio = 200
REALTYPE :: hmratio = 1000
REALTYPE :: amratio = 200.0
REALTYPE :: hmratio = 1000.0
REALTYPE :: vp1 = 1.5
REALTYPE :: alpha1 = 0.065
REALTYPE :: inib1 = 0.05
......@@ -567,7 +567,6 @@
REALTYPE :: minal,qn1,qa1,qn2,qa2
REALTYPE :: ps1,ps2,ff1,ff2
REALTYPE :: Ea,Eh,kBeV,T0
REALTYPE :: amratio,hmratio,ca1,ca2,ch1,ch2
integer :: i,j,ci
!EOP
!-----------------------------------------------------------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment