trunk/phylmd/indicesol.f

module indicesol

  implicit none

  INTEGER, parameter:: nbsrf=4

  INTEGER, parameter:: is_ter = 1 ! land
  ! Note: the first surface type must be land. pbl_surface must call
  ! the land interface first because the ocean needs the run-off.

  INTEGER, parameter:: is_lic = 2 ! land ice

  INTEGER, parameter:: is_oce = 3 ! ocean
  ! Ocean must be before sea ice.
  
  INTEGER, parameter:: is_sic = 4 ! sea ice

  REAL, parameter:: epsfra = 1E-5
  CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/)

end module indicesol
1	guez	3	module indicesol
2
3			implicit none
4
5			INTEGER, parameter:: nbsrf=4
6	guez	101
7	guez	3	INTEGER, parameter:: is_ter = 1 ! land
8	guez	301	! Note: the first surface type must be land. pbl_surface must call
9			! the land interface first because the ocean needs the run-off.
10
11	guez	3	INTEGER, parameter:: is_lic = 2 ! land ice
12	guez	301
13	guez	101	INTEGER, parameter:: is_oce = 3 ! ocean
14	guez	301	! Ocean must be before sea ice.
15
16	guez	101	INTEGER, parameter:: is_sic = 4 ! sea ice
17
18			REAL, parameter:: epsfra = 1E-5
19	guez	3	CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/)
20
21			end module indicesol