c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/input.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c
c Last modified 3/3/2000, eac
c  Purpose:  expand documentation.  Reorder items in common block
c  to avoid word-boundary problems.

c Common block /input/
c   Contains most of the data that are read from the PROF input file.

      INTEGER*4 
     +  iter(max_num_iter),  !holds the numbers of iterations to be used
     +                       !  in each wavelength interval specified in PROF
     +                       !  (see wave_iter, also in /input/.) 
     +  nthet,               !input number of solar zenith angles
     +  nscan,               !input number of scan (satellite zenith) angles
     +  num_iter,            !the number of positions actually used in iter
     +  n_p_lay              !# of input layers (std is 11)

      REAL*8
     +  wavel_start,         !lowest wavelength to be processed from COE file
     +  wavel_stop,          !highest wavelength to be processed (Angstrom)
     +  xprf(max_n_p_lay),   !input ozone profile in umkehr layers (DU)
     +  tmpprf(max_n_p_lay), !temperature profile. Average temp. in each layer
     +                       !   (in K)
     +  tmpsfc,              !air temperature at altitude of 0.0 km.
     +  p_lay(max_n_p_lay),  !pressure at the bottom of each input layer
     +  pres,                !input surface pressure (atm)
     +  wave_iter(max_num_iter),  !wavelengths at which number of iterations
     +                            !are re-specified.
     +  theta(max_sza),      !solar zenith angles (deg)
     +  scan(max_scan)       !satellite zenith angles (deg)

      COMMON /input/ 
     +  wavel_start, wavel_stop, xprf, tmpprf, tmpsfc, p_lay, 
     +  pres, wave_iter, theta, scan,
     +  nthet, nscan, num_iter, n_p_lay, iter

      SAVE /input/