Parent Directory | Revision Log
Created procedure test_disvert (following LMDZ). Added procedures hybrid and funcd in module disvert_m. Upgraded compute_ab from internal procedure of disvert to module procedure. Added variables y, ya in module disvert_m. Upgraded s from local variable of procedure disvert to module variable. Renamed allowed value of variable vert_sampling in procedure disvert from "read" to "read_hybrid". Added possibility to read pressure values, value "read_pressure". Replaced vertical distribution for value "param" by the distribution "strato_correct" from LMDZ (but kept the value "param"). In case "tropo", replaced 1 by dsigmin (following LMDZ). In case "strato", replaced 0.3 by dsigmin (following LMDZ). Changed computation of bp in procedure compute_ab. Removed debugindex case in clmain. Removed useless argument rlon of procedure clmain. Removed useless variables ytaux, ytauy of procedure clmain. Removed intermediary variables tsol, qsol, tsolsrf, tslab in procedure etat0. Removed variable ok_veget:. coupling with the model Orchid is not possible. Removed variable ocean: modeling an ocean slab is not possible. Removed useless variables tmp_rriv and tmp_rcoa from module interface_surf. Moved initialization of variables da, mp, phi in procedure physiq to to inside the test iflag_con >= 3.
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 | 99 | REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: 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 |