/[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 72 by guez, Tue Jul 23 13:00:07 2013 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
   REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic  
   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  
9    ! temps de relaxation pour la fonte des glaciers, en jours    ! temps de relaxation pour la fonte des glaciers, en jours
10    
11  contains  contains
# Line 37  contains Line 30  contains
30    
31    end subroutine conf_interface    end subroutine conf_interface
32    
33  END MODULE interface_surf  END MODULE conf_interface_m
Legend:
Removed from v.72  
changed lines
  Added in v.301
  ViewVC Help
Powered by ViewVC 1.1.21