--- trunk/phylmd/indicesol.f 2014/03/05 14:57:53 82 +++ trunk/phylmd/indicesol.f 2014/07/07 17:45:21 101 @@ -3,11 +3,13 @@ implicit none INTEGER, parameter:: nbsrf=4 - INTEGER, parameter:: is_oce=3 ! ocean - INTEGER, parameter:: is_sic = 4 ! sea ice + INTEGER, parameter:: is_ter = 1 ! land INTEGER, parameter:: is_lic = 2 ! land ice - REAL, parameter:: epsfra = 1E-05 + INTEGER, parameter:: is_oce = 3 ! ocean + INTEGER, parameter:: is_sic = 4 ! sea ice + + REAL, parameter:: epsfra = 1E-5 CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/) end module indicesol