/[lmdze]/trunk/phylmd/clesphys.f
ViewVC logotype

Contents of /trunk/phylmd/clesphys.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 118 - (show annotations)
Thu Dec 18 17:30:24 2014 UTC (9 years, 4 months ago) by guez
File size: 1467 byte(s) 
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 module clesphys
2
3 ! From version 1.3 2005/06/06 13:16:33
4
5 implicit none
6
7 REAL co2_ppm ! concentration du gaz carbonique en ppmv
8 real solaire ! Constante solaire en W/m2
9 double precision RCO2 ! Concentration du CO2
10 double precision RCH4 ! Concentration du CH4
11 double precision RN2O ! Concentration du N2O
12 double precision RCFC11 ! Concentration du CFC11
13 double precision RCFC12 ! Concentration du CFC12
14 double precision CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
15
16 ! Simulateur ISCCP:
17 INTEGER top_height
18 INTEGER overlap ! 1, 2 or 3
19
20 REAL cdmmax, cdhmax ! seuils cdrm, cdrh
21 REAL ksta, ksta_ter ! paramètres stabilité sur terres et en dehors
22 LOGICAL ok_kzmin ! calcul Kzmin dans la couche limite de surface
23
24 INTEGER lev_histhf ! niveau sorties 6h
25 ! 4: histhf3d.nc champs 3d niveaux modele
26
27 integer lev_histday ! niveau sorties journalieres
28 ! 3: champs 3D => F. Lott
29 ! 4: + champs sous-surfaces
30
31 integer lev_histmth ! niveau sorties mensuelles
32 ! 3: albedo, rugosite sous-surfaces
33 ! 4: champs tendances 3d
34
35 CHARACTER(len=4) type_run ! 'AMIP' ou 'ENSP'
36 LOGICAL ok_isccp, ok_regdyn
37
38 REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
39 ! longitude et latitude minimales et maximales pour la zone avec
40 ! sorties instantanées tous les pas de temps de la physique,
41 ! fichier "histbilKP_ins.nc"
42
43 INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
44 INTEGER ecrit_mth, ecrit_tra, ecrit_reg
45
46 save
47
48 end module clesphys
  ViewVC Help
Powered by ViewVC 1.1.21