1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_physcon.h,v 1.1 2002/11/22 17:16:06 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C-- COMMON /PHYCON/: Physical constants (initial. in INPHYS) |
7 |
C P0 = reference pressure [Pa=N/m2] |
8 |
C GG = gravity accel. [m/s2] |
9 |
C RD = gas constant for dry air [J/kg/K] |
10 |
C CP = specific heat at constant pressure [J/kg/K] |
11 |
C ALHC = latent heat of condensation [J/g] |
12 |
C ALHF = latent heat of freezing [J/g] |
13 |
C SBC = Stefan-Boltzmann constant |
14 |
C rainCP = heat capacity of liquid water [J/g/K] |
15 |
C tFreeze = freezing temperature of pure water [K] |
16 |
COMMON /PHYCON/ P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze |
17 |
_RL P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze |
18 |
|
19 |
C-- COMMON /FSIGLT/: Functions of sigma and latitude (initial. in INPHYS) |
20 |
C (execpt SLAT & CLAT init. in aim_dyn2aim.F) |
21 |
C SIG = full-level sigma |
22 |
C SIGL = logarithm of full-level sigma |
23 |
C SIGH = half-level sigma |
24 |
C DSIG = layer depth in sigma |
25 |
C POUT = norm. pressure level [p/p0] for post-processing |
26 |
C GRDSIG = g/(d_sigma p0) : to convert fluxes of u,v,q into d(u,v,q)/dt |
27 |
C GRDSCP = g/(d_sigma p0 c_p): to convert energy fluxes into dT/dt |
28 |
C WVI = weights for vertical interpolation |
29 |
c SLAT = sin(lat) |
30 |
c CLAT = cos(lat) |
31 |
COMMON /FSIGLT/ |
32 |
& SIG, SIGL, SIGH, DSIG, GRDSIG, GRDSCP, WVI |
33 |
c & SIG, SIGL, SIGH, DSIG, POUT, GRDSIG, GRDSCP, WVI, SLAT, CLAT |
34 |
_RL SIG(NLEV) |
35 |
_RL SIGL(NLEV) |
36 |
_RL SIGH(0:NLEV) |
37 |
_RL DSIG(NLEV) |
38 |
c _RL POUT(NLEV) |
39 |
_RL GRDSIG(NLEV) |
40 |
_RL GRDSCP(NLEV) |
41 |
_RL WVI(NLEV,2) |
42 |
c _RL SLAT(NLAT) |
43 |
c _RL CLAT(NLAT) |
44 |
|
45 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
46 |
#endif /* ALLOW_AIM */ |