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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 217 - (hide annotations)
Thu Mar 30 14:25:18 2017 UTC (7 years, 1 month ago) by guez
Original Path: trunk/Sources/phylmd/Interface_surf/interface_surf.f
File size: 745 byte(s) 
run_off_lic downgraded from variable of module interface_surf to local
variable of fonte_neige.

Code could not work with ok_aie set to true, so removed this
possibility. tauae, piz_ae, cg_ae, topswai, solswai were then
0. cldtaupi was the same as cldtaupd.

In sw and procedures called by sw, flag_aer did not need to be double
precision, changed it to logical.

Downgraded re and fl from arguments of newmicro to local
variables. Added output of re and fl (following LMDZ).
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 72 REAL, save :: tau_calv
9     ! temps de relaxation pour la fonte des glaciers, en jours
10    
11     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 guez 3 END MODULE interface_surf
  ViewVC Help
Powered by ViewVC 1.1.21