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

Annotation of /trunk/phylmd/Interface_surf/interface_surf.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: 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 guez 3 MODULE interface_surf
2    
3 guez 14 ! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09
4 guez 38 ! L. Fairhead, LMD, february 2000
5 guez 3
6     IMPLICIT none
7    
8 guez 38 ! run_off ruissellement total
9     REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
10 guez 3
11 guez 72 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 guez 3 END MODULE interface_surf
  ViewVC Help
Powered by ViewVC 1.1.21