/[lmdze]/trunk/libf/phylmd/clesphys.f90
ViewVC logotype

Contents of /trunk/libf/phylmd/clesphys.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 51 - (show annotations)
Tue Sep 20 09:14:34 2011 UTC (12 years, 8 months ago) by guez
File size: 842 byte(s)
Split "getincom.f90" into "getincom.f90" and "getincom2.f90". Split
"nuage.f" into "nuage.f90", "diagcld1.f90" and "diagcld2.f90". Created
module "chem" from included file "chem.h". Moved "YOEGWD.f90" to
directory "Orography".

In "physiq", for evaporation of water, "zlsdcp" was equal to
"zlvdc". Removed useless variables.

1 module clesphys
2
3 ! From version 1.3 2005/06/06 13:16:33
4
5 implicit none
6
7 LOGICAL bug_ozone
8 REAL co2_ppm, solaire
9 double precision RCO2, RCH4, RN2O, RCFC11, RCFC12
10 double precision CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
11 INTEGER top_height, overlap ! simulateur ISCCP
12 REAL cdmmax, cdhmax ! seuils cdrm, cdrh
13 REAL ksta, ksta_ter ! paramètres stabilité sur terres et en dehors
14 LOGICAL ok_kzmin ! calcul Kzmin dans la couche limite de surface
15 INTEGER lev_histhf ! niveau sorties 6h
16 integer lev_histday ! niveau sorties journalieres
17 integer lev_histmth ! niveau sorties mensuelles
18 CHARACTER(len=4) type_run
19 LOGICAL ok_isccp, ok_regdyn
20 REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
21 INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
22 INTEGER ecrit_mth, ecrit_tra, ecrit_reg
23
24 save
25
26 end module clesphys

  ViewVC Help
Powered by ViewVC 1.1.21