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 | SUBROUTINE printflag(radpas, ok_journe, ok_instan, ok_region) |
2 | |
3 | ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
4 | ! Auteur : P. Le Van |
5 | |
6 | IMPLICIT NONE |
7 | |
8 | INTEGER, INTENT (IN) :: radpas |
9 | LOGICAL, INTENT (IN) :: ok_journe, ok_instan, ok_region |
10 | |
11 | !-------------------------------------------------- |
12 | |
13 | PRINT *, 'Choix des principales clés de la physique' |
14 | |
15 | PRINT 8, radpas |
16 | PRINT 4, ok_journe, ok_instan, ok_region |
17 | |
18 | 4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
19 | 8 FORMAT ('radpas = ', I4) |
20 | |
21 | END SUBROUTINE printflag |
ViewVC Help | |
Powered by ViewVC 1.1.21 |