source: trunk/LMDZ.TITAN.old/libf/phytitan/tgmdat_mod.F90 @ 3303

Last change on this file since 3303 was 1530, checked in by emillour, 9 years ago

Venus and Titan GCMs:
Updates in the physics to keep up with updates in LMDZ5 (up to
LMDZ5 trunk, rev 2350) concerning dynamics/physics separation:

  • Adapted makelmdz and makelmdz_fcm script to stop if trying to compile 1d model or newstart or start2archive in parallel.
  • got rid of references to "dimensions.h" in physics. Within physics packages, use nbp_lon (=iim), nbp_lat (=jjmp1) and nbp_lev (=llm) from module mod_grid_phy_lmdz (in phy_common) instead. Only partially done for Titan, because of many hard-coded commons; a necessary first step will be to clean these up (using modules).

EM
File size: 1.5 KB
Line 
1MODULE  TGMDAT_MOD
2      IMPLICIT NONE
3
4      REAL,SAVE :: PI=3.14159265358979323846
5! RGAS IS THE UNIVERSAL GAS CONSTANT IN UNITS OF: M SEC-2 AMU K-1 KM
6      REAL,SAVE :: RGAS=8.31432
7! SIGMA IS THE STEFAN-BOLTZMAN CONSTATNT IN CGS UNITS
8      REAL,SAVE :: SIGMA=5.6677E-5
9!
10! RT CONSTANTS
11      REAL,SAVE :: UBARI=0.5,UBARV=0.5,UBAR0=0.5
12! PLANET SPECIFIC CONSTANTS
13!
14! CONVEQ IS THE DRY N2 ADIABATE DLNT/DLNP
15      REAL,SAVE :: CONVEQ=0.2994
16! CSUBP IS THE SPECIFIC HEAT AT CONSTANT P OF THE ATMOSPHERE
17! IN UNITS OF ERGS K-1 G-1
18      REAL,SAVE :: CSUBP=1.039E7
19! RHOP IS THE UNITS CONVERSION FROM TO GET MASS UNITS (G CM-2)
20! FROM PRESSURE (BARS)  DEVIDED BY GRAVITY (M SEC-2)
21! IS EQUAL TO ONE  GM CM-2  BARS-1  M SEC-2
22! IF ONE WHATS TO CHANGE UNITS ON PRESSURE THIS
23! CONSTANT MUST BE CHANGED
24      REAL,SAVE :: RHOP=1.E4
25! FOPI IS THE ACTUAL SOLAR FLUX IN ERGS/CM2
26      REAL,SAVE :: F0PI=1.5E4
27! RHCH4 IS THE METHANE RH AT THE SURFACE
28      REAL,SAVE :: RHCH4=0.60   !! .65
29! FH2 IS THE CONSTANT MIXING RATIO OF H2
30      REAL,SAVE :: FH2=0.04   !!  0.003
31! FHAZE IS THE HAZE PRODUCTION SCALING FACTOR
32      REAL,SAVE :: FHAZE=0.35
33! FHIR IS THE HAZE INFRARED ABSORPTION SCALE FACTOR
34      REAL,SAVE :: FHIR=0.7     ! anciennement 0.5
35! FHVIS IS THE HAZE INFRARED ABSORPTION SCALE FACTOR
36      REAL,SAVE :: FHVIS=1.1              !!!!  1.333333333/
37! TAUFAC IS THE 200 CM-1 SCALING FACTOR
38      REAL,SAVE :: TAUFAC=2.00
39! RCLOUD IS THE PARTICLE SIZE IN THE CLOUD IN MICRONS
40      REAL,SAVE ::RCLOUD=60.     !! 100
41
42      REAL,SAVE :: FARGON=0.
43END MODULE TGMDAT_MOD
Note: See TracBrowser for help on using the repository browser.