Parent Directory | Revision Log
Sources inside, compilation outside.
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 | INTEGER, parameter:: is_lic = 2 ! land ice | ||
9 | guez | 101 | INTEGER, parameter:: is_oce = 3 ! ocean |
10 | INTEGER, parameter:: is_sic = 4 ! sea ice | ||
11 | |||
12 | REAL, parameter:: epsfra = 1E-5 | ||
13 | guez | 3 | CHARACTER(len=*), parameter:: clnsurf(nbsrf) = (/'ter', 'lic', 'oce', 'sic'/) |
14 | |||
15 | end module indicesol |
ViewVC Help | |
Powered by ViewVC 1.1.21 |