| 1 | BLOCK DATA TGMDAT |
|---|
| 2 | #include "dimensions.h" |
|---|
| 3 | PARAMETER(NLAYER=llm,NLEVEL=NLAYER+1) |
|---|
| 4 | COMMON /UBARED/ UBARI,UBARV,UBAR0 |
|---|
| 5 | COMMON /LAPSE/ DTDP(NLAYER),CONVEQ |
|---|
| 6 | COMMON /PLANT/ CSUBP,RSFI,RSFV,F0PI |
|---|
| 7 | COMMON /ADJUST/ RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,RCLOUD,FARGON |
|---|
| 8 | COMMON /CONST/RGAS,RHOP,PI,SIGMA |
|---|
| 9 | C |
|---|
| 10 | DATA PI/3.14159265358979323846/ |
|---|
| 11 | C RGAS IS THE UNIVERSAL GAS CONSTANT IN UNITS OF: M SEC-2 AMU K-1 KM |
|---|
| 12 | DATA RGAS/8.31432/ |
|---|
| 13 | C SIGMA IS THE STEFAN-BOLTZMAN CONSTATNT IN CGS UNITS |
|---|
| 14 | DATA SIGMA/5.6677E-5/ |
|---|
| 15 | C |
|---|
| 16 | C RT CONSTANTS |
|---|
| 17 | DATA UBARI,UBARV,UBAR0/0.5,0.5,0.5/ |
|---|
| 18 | C PLANET SPECIFIC CONSTANTS |
|---|
| 19 | C |
|---|
| 20 | C CONVEQ IS THE DRY N2 ADIABATE DLNT/DLNP |
|---|
| 21 | DATA CONVEQ/0.2994/ |
|---|
| 22 | C CSUBP IS THE SPECIFIC HEAT AT CONSTANT P OF THE ATMOSPHERE |
|---|
| 23 | C IN UNITS OF ERGS K-1 G-1 |
|---|
| 24 | DATA CSUBP/1.039E7/ |
|---|
| 25 | C RHOP IS THE UNITS CONVERSION FROM TO GET MASS UNITS (G CM-2) |
|---|
| 26 | C FROM PRESSURE (BARS) DEVIDED BY GRAVITY (M SEC-2) |
|---|
| 27 | C IS EQUAL TO ONE GM CM-2 BARS-1 M SEC-2 |
|---|
| 28 | C IF ONE WHATS TO CHANGE UNITS ON PRESSURE THIS |
|---|
| 29 | C CONSTANT MUST BE CHANGED |
|---|
| 30 | DATA RHOP/1.E4/ |
|---|
| 31 | C RSF IS THE SURFACE REFLECTANCE FOR VIS AND IR |
|---|
| 32 | DATA RSFV,RSFI/0.15,0.05/ |
|---|
| 33 | C FOPI IS THE ACTUAL SOLAR FLUX IN ERGS/CM2 |
|---|
| 34 | DATA F0PI/1.5E4/ |
|---|
| 35 | C RHCH4 IS THE METHANE RH AT THE SURFACE |
|---|
| 36 | DATA RHCH4 /0.60/ !! .65 |
|---|
| 37 | C FH2 IS THE CONSTANT MIXING RATIO OF H2 |
|---|
| 38 | DATA FH2/0.04/ !! 0.003 |
|---|
| 39 | C FHAZE IS THE HAZE PRODUCTION SCALING FACTOR |
|---|
| 40 | DATA FHAZE/0.35/ |
|---|
| 41 | C FHIR IS THE HAZE INFRARED ABSORPTION SCALE FACTOR |
|---|
| 42 | DATA FHIR/0.7/ ! anciennement 0.5 |
|---|
| 43 | C FHVIS IS THE HAZE INFRARED ABSORPTION SCALE FACTOR |
|---|
| 44 | DATA FHVIS/1.1/ !!!! 1.333333333/ |
|---|
| 45 | C TAUFAC IS THE 200 CM-1 SCALING FACTOR |
|---|
| 46 | DATA TAUFAC/2.00/ |
|---|
| 47 | C RCLOUD IS THE PARTICLE SIZE IN THE CLOUD IN MICRONS |
|---|
| 48 | DATA RCLOUD/60./ !! 100 |
|---|
| 49 | |
|---|
| 50 | data FARGON/0./ |
|---|
| 51 | END |
|---|
