pkg/aim_v23/com_physcon.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002
                0003 C--   COMMON /PHYCON/: Physical constants (initial. in INPHYS)
b3097ed02d Jean*0004 C       P0    = reference pressure                 [Pa=N/m2]
                0005 C       GG    = gravity accel.                     [m/s2]
35a1a2d964 Jean*0006 C       RD    = gas constant for dry air           [J/kg/K]
b3097ed02d Jean*0007 C       CP    = specific heat at constant pressure [J/kg/K]
                0008 C       ALHC  = latent heat of condensation        [J/g]
35a1a2d964 Jean*0009 C       ALHF  = latent heat of freezing            [J/g]
b3097ed02d Jean*0010 C       SBC   = Stefan-Boltzmann constant
                0011 C     rainCP  = heat capacity of liquid water      [J/g/K]
                0012 C     tFreeze = freezing temperature of pure water [K]
                0013       COMMON /PHYCON/ P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze
                0014       _RL P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze
d676f916b2 Jean*0015
                0016 C--   COMMON /FSIGLT/: Functions of sigma and latitude (initial. in INPHYS)
                0017 C     (execpt SLAT & CLAT init. in  aim_dyn2aim.F)
35a1a2d964 Jean*0018 C      SIG    = full-level sigma
d676f916b2 Jean*0019 C      SIGL   = logarithm of full-level sigma
                0020 C      SIGH   = half-level sigma
                0021 C      DSIG   = layer depth in sigma
                0022 C      POUT   = norm. pressure level [p/p0] for post-processing
                0023 C      GRDSIG = g/(d_sigma p0) : to convert fluxes of u,v,q into d(u,v,q)/dt
                0024 C      GRDSCP = g/(d_sigma p0 c_p): to convert energy fluxes into dT/dt
                0025 C      WVI    = weights for vertical interpolation
                0026 c      SLAT   = sin(lat)
                0027 c      CLAT   = cos(lat)
                0028       COMMON /FSIGLT/
                0029      &    SIG, SIGL, SIGH, DSIG, GRDSIG, GRDSCP, WVI
                0030 c    &    SIG, SIGL, SIGH, DSIG, POUT, GRDSIG, GRDSCP, WVI, SLAT, CLAT
35a1a2d964 Jean*0031       _RL SIG(NLEV)
d676f916b2 Jean*0032       _RL SIGL(NLEV)
                0033       _RL SIGH(0:NLEV)
                0034       _RL DSIG(NLEV)
                0035 c     _RL POUT(NLEV)
                0036       _RL GRDSIG(NLEV)
35a1a2d964 Jean*0037       _RL GRDSCP(NLEV)
d676f916b2 Jean*0038       _RL WVI(NLEV,2)
                0039 c     _RL SLAT(NLAT)
                0040 c     _RL CLAT(NLAT)
                0041
                0042 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
35a1a2d964 Jean*0043 #endif /* ALLOW_AIM */