c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/consts.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c
c     last mod. May 3, 1999...def
c     purpose: add option to compute addition absorbing gas profile using the
c     internal, implicit neutral density profile and a constant mixing ratio.
c     Currently it is set to do only o2 or o4 absorption and is controled by
c     the lo2abs and lo4abs logicals read in the ENV file.
c   
c     last mod. Feburary 16, 2000...eac
c     purpose:  move integer*4 items to end of common block to prevent
c     memory alignment problems on certain machines.  Added SAVE statement
c     to ensure values don't get dropped.
c     added temp0c.
c
c
c NOTES:
c   The constants in /consts/ are set in subroutine  iniclz.
c
c   The two integer constants do not seem to be used in the code.

      REAL*8 
     +  pi,          !                pi
     +  cnvrt,       ! rad deg^-1     pi/180
     +  dr,          ! rad/deg        pi/180
     +  pi_2,        !                pi/2.
     +  r,           ! km             Earth's radius
     +  rinv,        ! km^-1          Inverse of earth's radius (1/r)
     +  cons,        !                r/6393
     +  sq2,         !                sqrt(2)
     +  c215,        !                2/15
     +  c815,        !                8/15
     +  c38sq2,      !                3 sqrt(2)/8
     +  c1415,       !                14/15
     +  c2815,       !                28/15
     +  pscaleforg,  !                6.95/r - for gravity correction
     +  Nlosch,      ! cm^-3          Loschmidt number (number dens at STP)
     +  Na,          ! mol^-1         Avogadro's number
     +  mair,        ! kg mol^-1      Mean mass of air
     +  g0,          ! m s^-2         Gravitational acceleration at Earth sfc.
     +  p0,          ! kg m^-1 s^-2   1 atm pressure in SI units.
     +  temp0c,      ! K              zero-point of centigrade scale
     +  smallx       !                small number

      INTEGER*4 
     +  numek,       ! seems to be unused -eac
     +  kskip        ! seems to be unused -eac

      COMMON /consts/
     + pi,cnvrt,dr,pi_2,r,rinv,cons,sq2,c215,c815,c38sq2,
     + c1415,c2815,pscaleforg,Nlosch,Na,mair,g0,p0,temp0c,
     + smallx,numek,kskip

      SAVE /consts/