/[lmdze]/trunk/phylmd/Interface_surf/interface_surf.f
ViewVC logotype

Contents of /trunk/phylmd/Interface_surf/interface_surf.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: 842 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 interface_surf
2
3 ! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09
4 ! L. Fairhead, LMD, february 2000
5
6 IMPLICIT none
7
8 ! run_off ruissellement total
9 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
10
11 REAL, save :: tau_calv
12 ! temps de relaxation pour la fonte des glaciers, en jours
13
14 contains
15
16 subroutine conf_interface
17
18 ! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23
19
20 ! Configuration de l'interace atm/surf
21
22 use unit_nml_m, only: unit_nml
23
24 namelist /conf_interface_nml/ tau_calv
25
26 !------------------------------------------------------
27
28 tau_calv = 360.*10.
29
30 print *, "Enter namelist 'conf_interface_nml'."
31 read(unit=*, nml=conf_interface_nml)
32 write(unit_nml, nml=conf_interface_nml)
33
34 end subroutine conf_interface
35
36 END MODULE interface_surf
  ViewVC Help
Powered by ViewVC 1.1.21