Parent Directory | Revision Log
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 |