!
!##################################################################
!##################################################################
!######                                                      ######
!######                      NUDGING.INC                     ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  Include file 'nudging.inc' for ARPS
!
!  This file contains variables related to the nudging data
!  assimilation.
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Keith Brewster
!  March, 1998
!
!  MODIFICATION HISTORY:
!
!
!-----------------------------------------------------------------------
!
  INTEGER :: nudgopt         ! Nudging adjustment
                             ! = 0 none
                             ! = 1 nudging adjustment
  INTEGER :: nudgstp         ! big time step interval from ndintvl

  COMMON /nudge01/ nudgopt,nudgstp

  REAL :: ndstart            ! Time (secs) to begin adjustment
  REAL :: ndstop             ! Time (secs) to stop adjustment
  REAL :: ndtime             ! Duration time (secs) of adjustment
  REAL :: ndintvl            ! Interval of nudging adjustment
  REAL :: ndgain             ! Gain multiplier to apply to increments
  REAL :: ndscale            ! Scale factor to apply to correction
                             ! at each application

  COMMON /nudge02/ ndstart, ndstop, ndtime, ndintvl, ndgain, ndscale

  CHARACTER (LEN=256)  :: incrfnam  ! Name of file containing analysis increments

  COMMON /nudge03/ incrfnam

  INTEGER :: nudgu,nudgv,nudgw,nudgp,nudgpt,nudgqv,                     &
          nudgqc,nudgqr,nudgqi,nudgqs,nudgqh

  COMMON /nudge04/ nudgu,nudgv,nudgw,nudgp,nudgpt,nudgqv,               &
          nudgqc,nudgqr,nudgqi,nudgqs,nudgqh