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

Annotation of /trunk/phylmd/indicesol.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 101 - (hide 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 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