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

Diff of /trunk/phylmd/Interface_surf/conf_interface.f

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

revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC revision 72 by guez, Tue Jul 23 13:00:07 2013 UTC
# Line 11  MODULE interface_surf Line 11  MODULE interface_surf
11    
12    REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic    REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
13    ! pour simuler la fonte des glaciers antarctiques    ! pour simuler la fonte des glaciers antarctiques
14    REAL, save :: tau_calv  
15      REAL, save :: tau_calv
16      ! temps de relaxation pour la fonte des glaciers, en jours
17    
18    contains
19    
20      subroutine conf_interface
21    
22        ! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23
23    
24        ! Configuration de l'interace atm/surf
25    
26        use unit_nml_m, only: unit_nml
27    
28        namelist /conf_interface_nml/ tau_calv
29    
30        !------------------------------------------------------
31    
32        tau_calv = 360.*10.
33    
34        print *, "Enter namelist 'conf_interface_nml'."
35        read(unit=*, nml=conf_interface_nml)
36        write(unit_nml, nml=conf_interface_nml)
37    
38      end subroutine conf_interface
39    
40  END MODULE interface_surf  END MODULE interface_surf
Legend:
Removed from v.54  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.21