| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_physcon.h,v 1.2 2004/03/11 14:33:19 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 */ |
Parent Directory
| 
Revision Log
| 
Revision Graph