1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim/com_physcon.h,v 1.4 2001/06/18 17:39:58 cnh Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C-- COMMON /PHYCON/: Physical constants (initial. in INPHYS) |
7 |
C P0 = reference pressure |
8 |
C GG = gravity accel. |
9 |
C RD = gas constant for dry air |
10 |
C CP = specific heat at constant pressure |
11 |
C ALHC = latent heat of condensation |
12 |
C SBC = Stefan-Boltzmann constant |
13 |
COMMON /PHYCON/ P0, GG, RD, CP, ALHC, SBC |
14 |
_RL P0, GG, RD, CP, ALHC, SBC |
15 |
|
16 |
C-- COMMON /FSIGMU/: Functions of sigma and latitude (initial. in INPHYS) |
17 |
C SIG = full-level sigma |
18 |
C SIGL = logarithm of full-level sigma |
19 |
C SIGH = half-level sigma |
20 |
C DSIG = layer depth in sigma |
21 |
C POUT = norm. pressure level [p/p0] for post-processing |
22 |
C GRDSIG = g/(d_sigma p0) : to convert fluxes of u,v,q into d(u,v,q)/dt |
23 |
C GRDSCP = g/(d_sigma p0 c_p): to convert energy fluxes into dT/dt |
24 |
C WVI = weights for vertical interpolation |
25 |
C FMU = legendre polinomials in sin(lat) |
26 |
COMMON /FSIGMU/ |
27 |
& SIG, SIGL, SIGH, DSIG, POUT, GRDSIG, GRDSCP, WVI, FMU |
28 |
_RL SIG(NLEV) |
29 |
_RL SIGL(NLEV) |
30 |
_RL SIGH(0:NLEV) |
31 |
_RL DSIG(NLEV) |
32 |
_RL POUT(NLEV) |
33 |
_RL GRDSIG(NLEV) |
34 |
_RL GRDSCP(NLEV) |
35 |
_RL WVI(NLEV,2) |
36 |
_RL FMU(NGP,2,MAX_NO_THREADS) |
37 |
|
38 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
39 |
#endif /* ALLOW_AIM */ |