4 !-----------------------------------------------------------------------
10 &
pi,
dtphys,
dtdiss,
rad,
r,
cpp,
kappa,
cotot,
unsim,
g,omeg &
19 REAL pi ! something like 3.14159....
24 ! with
R=8.31.. J.K-1.mol-1,
mu: mol mass of atmosphere (kg/mol)
25 REAL cpp ! Specific heat Cp (J.kg-1.K-1)
30 REAL omeg ! (
rad/s) rotation rate of the planet
32 INTEGER iflag_top_bound
38 REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
40 !-----------------------------------------------------------------------