Parent Directory | Revision Log
Initial import
1 | guez | 3 | 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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |