trunk/phylmd/indicesol.f

module indicesol

  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
  CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/)

end module indicesol
1	module indicesol
2
3	implicit none
4
5	INTEGER, parameter:: nbsrf=4
6	INTEGER, parameter:: is_oce=3 ! ocean
7	INTEGER, parameter:: is_sic = 4 ! sea ice
8	INTEGER, parameter:: is_ter = 1 ! land
9	INTEGER, parameter:: is_lic = 2 ! land ice
10	REAL, parameter:: epsfra = 1E-05
11	CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/)
12
13	end module indicesol