trunk/phylmd/clesphys.f

module clesphys

  ! From version 1.3 2005/06/06 13:16:33

  implicit none

  LOGICAL bug_ozone ! Pour retrouver le bug de l'ozone (IPCC)
  REAL co2_ppm ! concentration du gaz carbonique en ppmv
  real solaire ! Constante solaire en W/m2
  double precision RCO2 ! Concentration du CO2
  double precision RCH4 ! Concentration du CH4
  double precision RN2O ! Concentration du N2O
  double precision RCFC11 ! Concentration du CFC11
  double precision RCFC12 ! Concentration du CFC12
  double precision CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt

  ! Simulateur ISCCP:
  INTEGER top_height
  INTEGER overlap ! 1, 2 or 3

  REAL cdmmax, cdhmax ! seuils cdrm, cdrh
  REAL ksta, ksta_ter ! paramètres stabilité sur terres et en dehors
  LOGICAL ok_kzmin ! calcul Kzmin dans la couche limite de surface

  INTEGER lev_histhf ! niveau sorties 6h
  ! 4: histhf3d.nc champs 3d niveaux modele

  integer lev_histday ! niveau sorties journalieres
  ! 3: champs 3D => F. Lott
  ! 4: + champs sous-surfaces

  integer lev_histmth ! niveau sorties mensuelles
  ! 3: albedo, rugosite sous-surfaces
  ! 4: champs tendances 3d

  CHARACTER(len=4) type_run ! 'AMIP' ou 'ENSP'
  LOGICAL ok_isccp, ok_regdyn

  REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
  ! longitude et latitude minimales et maximales pour la zone avec
  ! sorties instantanées tous les pas de temps de la physique,
  ! fichier "histbilKP_ins.nc"

  INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
  INTEGER ecrit_mth, ecrit_tra, ecrit_reg

  save

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