Parent Directory | Revision Log
In file grilles_gcm.nc, renamed variable phis to orog, deleted variable presnivs. Removed variable bug_ozone from module clesphys. In procedure ozonecm, moved computation of sint and cost out of the loops on horizontal position and vertical level. Inverted the order of the two loops. We can then move all computations from slat to aprim out of the loop on vertical levels. Created variable slat2, following LMDZ. Moved the limitation of column-density of ozone in cell at 1e-12 from radlwsw to ozonecm, following LMDZ. Removed unused arguments u, albsol, rh, cldfra, rneb, diafra, cldliq, pmflxr, pmflxs, prfl, psfl of phytrac. In procedure yamada4, for all the arrays, replaced the dimension klon by ngrid. At the end of the procedure, for the computation of kmn,kn, kq and q2, changed the upper limit of the loop index from klon to ngrid. In radlwsw, for the calculation of pozon, removed the factor paprs(iof+i, 1)/101325, as in LMDZ. In procedure sw, removed the factor 101325.0/PPSOL(JL), as in LMDZ.
1 | guez | 12 | module clesphys2 |
2 | |||
3 | guez | 51 | ! From version 1.3 2005/06/06 13:16:33 |
4 | guez | 12 | |
5 | implicit none | ||
6 | |||
7 | guez | 51 | LOGICAL:: cycle_diurne = .TRUE. |
8 | guez | 118 | ! Cette option permet d'éteindre le cycle diurne. Peut être utile |
9 | ! pour accélérer le code. | ||
10 | guez | 12 | |
11 | guez | 51 | LOGICAL:: soil_model = .TRUE. |
12 | ! Choix du modele de sol (Thermique ?) | ||
13 | guez | 12 | |
14 | guez | 51 | LOGICAL:: new_oliq = .TRUE. |
15 | ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide | ||
16 | guez | 12 | |
17 | guez | 69 | ! Pour l'orographie: |
18 | LOGICAL:: ok_orodr = .TRUE. | ||
19 | LOGICAL:: ok_orolf = .TRUE. | ||
20 | guez | 12 | |
21 | guez | 51 | LOGICAL:: ok_limitvrai = .FALSE. |
22 | ! On peut forcer le modele a lire le fichier SST de la bonne | ||
23 | guez | 69 | ! annee. |
24 | guez | 12 | |
25 | guez | 51 | INTEGER:: nbapp_rad = 12 |
26 | guez | 69 | ! nombre d'appels des routines de rayonnements par jour |
27 | guez | 12 | |
28 | INTEGER:: iflag_con = 2 | ||
29 | guez | 69 | ! Convection scheme: |
30 | ! 2 Tiedtke | ||
31 | ! 3 Emanuel | ||
32 | ! 4 Emanuel vect | ||
33 | guez | 12 | |
34 | guez | 13 | contains |
35 | |||
36 | subroutine read_clesphys2 | ||
37 | |||
38 | guez | 57 | use unit_nml_m, only: unit_nml |
39 | guez | 99 | use nr_util, only: assert |
40 | guez | 57 | |
41 | guez | 103 | namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, ok_orodr, & |
42 | ok_orolf, ok_limitvrai, nbapp_rad, iflag_con | ||
43 | guez | 13 | |
44 | !------------------------------------ | ||
45 | |||
46 | print *, "Enter namelist 'clesphys2_nml'." | ||
47 | read(unit=*, nml=clesphys2_nml) | ||
48 | guez | 57 | write(unit_nml, nml=clesphys2_nml) |
49 | guez | 103 | call assert(iflag_con >= 2 .and. iflag_con <= 4, "read_clesphys2 iflag_con") |
50 | guez | 13 | |
51 | end subroutine read_clesphys2 | ||
52 | |||
53 | guez | 12 | end module clesphys2 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |