/[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 72 - (hide annotations)
Tue Jul 23 13:00:07 2013 UTC (10 years, 10 months ago) by guez
Original Path: trunk/libf/phylmd/Interface_surf/interface_surf.f90
File size: 1036 byte(s) 
NaN to signalling NaN in gfortran_debug.mk.

Removed unused procedures in getincom and getincom2. In procedure
conf_interface, replaced call to getincom by new namelist. Moved
procedure conf_interface into module interface_surf.

Added variables sig1 and w01 to startphy.nc and restartphy.nc, for
procedure cv_driver. Renamed (ema_)?work1 and (ema_)?work2 to sig1 and
w01 in concvl and physiq.

Deleted unused arguments of clmain, clqh and intersurf_hq, among which
(y)?sollwdown. Following LMDZ, in physiq, read sollw instead of
sollwdown from startphy.nc, write sollw instead of sollwdown to
restartphy.nc.

In procedure sw, initialized zfs[ud][pn]a[di], for runs where ok_ade
and ok_aie are false. (Following LMDZ.)

Added dimension klev to startphy.nc and restartphy.nc, and deleted
dimension horizon_vertical. Made t_ancien and q_ancien two-dimensional
NetCDF variables. Bug fix: in phyetat0, define ratqs, clwcon and
rnebcon for vertical levels >=2.

Bug fix: set mfg, p[de]n_[ud] to 0. when iflag_con >= 3. (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 38 ! run_off ruissellement total
9     REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
10     real, allocatable, dimension(:), save :: coastalflow, riverflow
11 guez 3
12 guez 14 REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
13 guez 38 ! pour simuler la fonte des glaciers antarctiques
14 guez 3
15 guez 72 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 guez 3 END MODULE interface_surf
  ViewVC Help
Powered by ViewVC 1.1.21