c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/atmos.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $

c Revised 3/14/2000 (eac)
c  Purpose: add documentation.  Remove unused variable (code).  Add SAVE stmt.

Common block /atmos

      REAL*8 
     +  wavelen,   !current wavelength, Angstrom.
     +  alpha0,    !ozone absorption coefficient at 0C
     +  beta,      !Rayleigh scattering coefficient
     +  pnot,      !Pressure at reflecting surface (atm)
     +  tautot     !Total optical thickness of the atmosphere
     
      COMMON /atmos/ 
     +  alpha0,beta,pnot,tautot,wavelen

      SAVE /atmos/