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

Diff of /trunk/Sources/phylmd/Interface_surf/interface_surf.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/Interface_surf/interface_surf.f90 revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/Sources/phylmd/Interface_surf/interface_surf.f revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC
# Line 5  MODULE interface_surf Line 5  MODULE interface_surf
5    
6    IMPLICIT none    IMPLICIT none
7    
8    ! run_off ruissellement total    REAL, ALLOCATABLE, SAVE:: run_off_lic(:) ! ruissellement total
9    REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic  
10    real, allocatable, dimension(:), save :: coastalflow, riverflow    REAL, save :: tau_calv
11      ! temps de relaxation pour la fonte des glaciers, en jours
12    REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic  
13    ! pour simuler la fonte des glaciers antarctiques  contains
14    REAL, save :: tau_calv  
15      subroutine conf_interface
16    
17        ! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23
18    
19        ! Configuration de l'interace atm/surf
20    
21        use unit_nml_m, only: unit_nml
22    
23        namelist /conf_interface_nml/ tau_calv
24    
25        !------------------------------------------------------
26    
27        tau_calv = 360.*10.
28    
29        print *, "Enter namelist 'conf_interface_nml'."
30        read(unit=*, nml=conf_interface_nml)
31        write(unit_nml, nml=conf_interface_nml)
32    
33      end subroutine conf_interface
34    
35  END MODULE interface_surf  END MODULE interface_surf
Legend:
Removed from v.54  
changed lines
  Added in v.202
  ViewVC Help
Powered by ViewVC 1.1.21