/[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

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