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 | module clesphys2 |
| 2 | |
| 3 | ! From version 1.3 2005/06/06 13:16:33 |
| 4 | |
| 5 | implicit none |
| 6 | |
| 7 | LOGICAL:: cycle_diurne = .TRUE. |
| 8 | ! Cette option permet d'éteindre le cycle diurne. |
| 9 | ! Peut être utile pour accélérer le code. |
| 10 | |
| 11 | LOGICAL:: soil_model = .TRUE. |
| 12 | ! Choix du modele de sol (Thermique ?) |
| 13 | |
| 14 | LOGICAL:: new_oliq = .TRUE. |
| 15 | ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide |
| 16 | |
| 17 | ! Pour l'orographie: |
| 18 | LOGICAL:: ok_orodr = .TRUE. |
| 19 | LOGICAL:: ok_orolf = .TRUE. |
| 20 | |
| 21 | LOGICAL:: ok_limitvrai = .FALSE. |
| 22 | ! On peut forcer le modele a lire le fichier SST de la bonne |
| 23 | ! annee. |
| 24 | |
| 25 | INTEGER:: nbapp_rad = 12 |
| 26 | ! nombre d'appels des routines de rayonnements par jour |
| 27 | |
| 28 | INTEGER:: iflag_con = 2 |
| 29 | ! Convection scheme: |
| 30 | ! 2 Tiedtke |
| 31 | ! 3 Emanuel |
| 32 | ! 4 Emanuel vect |
| 33 | |
| 34 | contains |
| 35 | |
| 36 | subroutine read_clesphys2 |
| 37 | |
| 38 | use unit_nml_m, only: unit_nml |
| 39 | use nr_util, only: assert |
| 40 | |
| 41 | namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, & |
| 42 | ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con |
| 43 | |
| 44 | !------------------------------------ |
| 45 | |
| 46 | print *, "Enter namelist 'clesphys2_nml'." |
| 47 | read(unit=*, nml=clesphys2_nml) |
| 48 | write(unit_nml, nml=clesphys2_nml) |
| 49 | call assert(iflag_con >= 2, "read_clesphys2 iflag_con") |
| 50 | |
| 51 | end subroutine read_clesphys2 |
| 52 | |
| 53 | end module clesphys2 |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |