source: trunk/LMDZ.TITAN/libf/phytitan/tgmdat.F @ 1242

      BLOCK DATA  TGMDAT
#include "dimensions.h"
      PARAMETER(NLAYER=llm,NLEVEL=NLAYER+1)
      COMMON /UBARED/ UBARI,UBARV,UBAR0
      COMMON /LAPSE/ DTDP(NLAYER),CONVEQ
      COMMON /PLANT/ CSUBP,F0PI
      COMMON /ADJUST/ RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,RCLOUD,FARGON
      COMMON /CONST/RGAS,RHOP,PI,SIGMA
C
      DATA PI/3.14159265358979323846/
C RGAS IS THE UNIVERSAL GAS CONSTANT IN UNITS OF: M SEC-2 AMU K-1 KM
      DATA RGAS/8.31432/
C SIGMA IS THE STEFAN-BOLTZMAN CONSTATNT IN CGS UNITS
      DATA SIGMA/5.6677E-5/
C
C RT CONSTANTS
      DATA UBARI,UBARV,UBAR0/0.5,0.5,0.5/
C PLANET SPECIFIC CONSTANTS
C
C CONVEQ IS THE DRY N2 ADIABATE DLNT/DLNP
      DATA CONVEQ/0.2994/
C CSUBP IS THE SPECIFIC HEAT AT CONSTANT P OF THE ATMOSPHERE
C IN UNITS OF ERGS K-1 G-1
      DATA CSUBP/1.039E7/
C RHOP IS THE UNITS CONVERSION FROM TO GET MASS UNITS (G CM-2)
C FROM PRESSURE (BARS)  DEVIDED BY GRAVITY (M SEC-2)
C IS EQUAL TO ONE  GM CM-2  BARS-1  M SEC-2
C IF ONE WHATS TO CHANGE UNITS ON PRESSURE THIS
C CONSTANT MUST BE CHANGED
      DATA RHOP/1.E4/
C FOPI IS THE ACTUAL SOLAR FLUX IN ERGS/CM2
      DATA F0PI/1.5E4/
C RHCH4 IS THE METHANE RH AT THE SURFACE
      DATA RHCH4 /0.60/   !! .65
C FH2 IS THE CONSTANT MIXING RATIO OF H2
      DATA FH2/0.04/   !!  0.003
C FHAZE IS THE HAZE PRODUCTION SCALING FACTOR
      DATA FHAZE/0.35/
C FHIR IS THE HAZE INFRARED ABSORPTION SCALE FACTOR
      DATA FHIR/0.7/     ! anciennement 0.5
C FHVIS IS THE HAZE INFRARED ABSORPTION SCALE FACTOR
      DATA FHVIS/1.1/              !!!!  1.333333333/
C TAUFAC IS THE 200 CM-1 SCALING FACTOR
      DATA TAUFAC/2.00/
C RCLOUD IS THE PARTICLE SIZE IN THE CLOUD IN MICRONS
      DATA RCLOUD/60./     !! 100

      data FARGON/0./
      END