Parent Directory | Revision Log
Changed all ".f90" suffixes to ".f".
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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |