include file: com1obs.cdk 9
#if defined (DOC)
*     COMDECK: COM1OBS
*
*Author  : C. Charette *ARMA/AES  November 1998
*Revision:
*         Y.Yang  May 2004
*         - Added ICORDTYP, R1OBSPTOP, R1OBSPBTM to allow column observations.
*         C. Charette - ARMA/SMC - Sept 2004
*         - Added logical variable LVLNEAR
*         Y.J. Rochon May 2005
*         - Added description of ICORDTYP, R1OBSPTOP, R1OBSPBTM
*           (see ch_oneobs.ftn for description of use)
*
*     ----------------
*     Control of the computation for single obs experiments (loneobs=.true.)
*     and to print diagnostics at the analysis grip point nearest to
*     the desired lat-lon position.  The print is controlled by a variable
*     LLPRINT in the routines concerned. The variable loneobs does not have
*     to be .true. to get the diagnostics.
*     =====================================================
*     LONEOBS    : .TRUE. generate a single obs impact file for validation
*     LVLNEAR    : .TRUE. move observation to nearest vertical level
*                : .FALSE. Obs will be assimilated at the specified level
*     R1OBSLA    : latitude of single obs or diagnostics at grid point
*                  (-90 to 90)
*     R1OBSLO    : longitude of single obs or diagnostics at grid point
*                  (0 to 360)
*     R1OBSLV    : vertical level (in mb) of single obs
*     C1OBSTP    : type of observation for single obs
*     C1OBSBG    : type of background fields for single obs
*                  OPTIONS:
*                  1 - 'FGUESS' --> FIRST GUESS ON ANAL GRID (NI,NJ)
*                  2 - 'ZONAL'   --> ZONAL MEAN ON NJ LATITUDES OF ANAL GRID
*                  3 - 'PROFILE' --> PROFILES AT NFLEV LEVELS READ FROM AN
*                                    ASCII FILE (NOT SUPPORTED)
*     R1OBSINO   : size of innovation for single obs
*     R1OBSOER   : observation error standard deviation for single obs
*     NI1OBSLA    : latitude index of nearest grid point (from north to south)
*     NI1OBSLO    : longitude index of nearest grid point (from west to east)
*     NI1OBSLV    : index to closest vertical level
*     NDATE1OBS   : date of validity of the observation
*     NTIME1OBS   : time of validity of the observation
*     R1OBSPTOT   : Pressure at top of layer
*     R1OBSPBTM   : Pressure at bottom of layer
*     ICODRTYP    : Innovation type:
*                   1 - Total column innovation
*                   2 - Point value innovation
*                   3 - Partial column innovation 
#endif
      INTEGER ICORDTYP
      LOGICAL LONEOBS,LVLNEAR
      CHARACTER*4 C1OBSTP
      CHARACTER*8 C1OBSBG
      REAL*8 R1OBSLA,R1OBSLO,R1OBSLV
      INTEGER NI1OBSLA,NI1OBSLO,NI1OBSLV, NDATE1OBS, NTIME1OBS
      REAL*8 R1OBSOER,R1OBSINO
      REAL*8 R1OBSPTOP, R1OBSPBTM
      COMMON /COM1OBSL/LONEOBS,LVLNEAR
      COMMON /COM1OBSC/C1OBSTP,C1OBSBG
      COMMON /COM1OBSN/NI1OBSLA,NI1OBSLO,NI1OBSLV, ICORDTYP, NDATE1OBS, NTIME1OBS
      COMMON /COM1OBSR/R1OBSOER,R1OBSINO,R1OBSLA,R1OBSLO,R1OBSLV, R1OBSPTOP, R1OBSPBTM