/[lmdze]/trunk/phylmd/indicesol.f
ViewVC logotype

Contents of /trunk/phylmd/indicesol.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 101 - (show annotations)
Mon Jul 7 17:45:21 2014 UTC (9 years, 10 months ago) by guez
File size: 376 byte(s)
Removed unused files "interfoce_slab.f" and "gath2cpl.f". Removed
unused variables coastalflow and riverflow of module
interface_surf. Removed unused arguments cal, radsol, dif_grnd,
fluxlat, fluxsens, dflux_s, dflux_l of procedure fonte_neige. Removed
unused arguments tslab, seaice of procedure interfsurf_hq and
clqh. Removed unused arguments seaice of procedure clmain.

In interfsurf_hq, used variable soil_model of module clesphys2 instead
of cascading it as an argument from physiq.

In phyetat0, stop if masque not found.

Variable TS instead of "TS[0-9][0-9]" in "(re)startphy.nc", with
additional dimension nbsrf.

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

  ViewVC Help
Powered by ViewVC 1.1.21