c $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/switches.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c
c common block to contain most of the variables that can be changed via
c user input.
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. Feb. 10, 2000...def
c purpose: add switch to turn-off call to geopro
c
c last mod. Feb 25, 2000...eac
c purpose: expand in-line documentation
c
c last mod. Apr. 14, 2000...def
c purpose: add switch to use o3 weighted temperatures in user input profile
c
c
      LOGICAL 
     +  ldown,             ! if FALSE, compute the reflected radiance at ToA
     +  lbelowhorizon,     ! 
     +  lsphout,           ! correct outgoing beam for sphericity
     +  lphiindep,         ! 
     +  write_iter_file,   ! write the iteration file
     +  lprtflx,           ! print the flux table
     +  lv7tab,            ! attempt to reproduce the v7 tables
     +  lo2abs,            ! absorbing gas is o2
     +  lo4abs,            ! absorbing gas is o4
     +  lcontrb,           ! compute the contribution function
     +  lnoextrap,         ! suppress geometric extrapolation
     +  lwgttmp,           ! weight temperature by cumulative ozone amount
     +  lwgt11,            ! weigth temperature by cumulative ozone amount 
     +                     !     in the std 11 input layers
     +  lv7tabout          ! nvalfm in v7 format

      INTEGER*4 
     +  jprint(10),        ! printing control flags. (see below)
     +  gc_type,           ! type of gravity correction
     +  prf_type,          ! type of input profile (std,umkher,user)
     +  irefrac            ! flag for refraction in solar beam calc.
      COMMON /switches/
     &   jprint,gc_type,prf_type,irefrac,
     &   ldown,lbelowhorizon,
     &   lsphout,lphiindep,write_iter_file,lprtflx,lv7tab,
     &   lo2abs,lo4abs,lcontrb,lnoextrap,lwgttmp,lwgt11,lv7tabout

      SAVE /switches/
c
c  Table for jprint options
c  integer jprint(10)
c  **************************************************************************
c  j routines                           default is write to unit 33 (dev_nul)
c  **************************************************************************
c  1 evalitpol,intsumpol			write to unit 33
c  2 evalrf					write to unit 33
c  3 expone,exponesph				write to unit 33
c  4 eva1pol,eva2pol,evalitpol,itratepol	write to unit 33
c  5 opthik					write to unit 33
c  6 relayr					write to unit 33
c  7 slant					write to unit 33
c  8 dtaus,tbprnt				write to unit 33
c  9 matscn,evalitpol				write sumry.dat file (unit9)
c  10 matscn					write tomnval.dat file (unit40)
c  **************************************************************************
c
c  print the flux table if lprtflx=.TRUE. 
c  (the value can be set on the command line)
c
c