--- trunk/Sources/phylmd/vdif_kcay.f 2016/03/21 18:01:02 187 +++ trunk/Sources/phylmd/vdif_kcay.f 2016/03/22 16:31:39 188 @@ -147,10 +147,7 @@ REAL termq3m2 ! q2min : borne inferieure de q2 - ! q2max : borne superieure de q2 - REAL q2min - REAL q2max ! knmin : borne inferieure de kn ! kmmin : borne inferieure de km @@ -174,7 +171,6 @@ PARAMETER (knmin=1.E-5) PARAMETER (kmmin=1.E-5) PARAMETER (q2min=1.e-5) - PARAMETER (q2max=1.E+2) PARAMETER (nlay=klev) PARAMETER (nlev=klev+1)