!
!
!##################################################################
!##################################################################
!######                                                      ######
!######                      NEMCST.INC                      ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  Include file 'nemcst.inc' for ARPS
!
!  This file initializes values of some physical constants
!  that remain unchanged throughout a model run
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Jason J. Levit
!  11/15/1969
!
!  MODIFICATION HISTORY:
!
!  01/27/97 (J. Levit)
!  Corrected the constant 'qpmin' from .0005 to .0001.  The former
!  was erroneous, and the correction to the latter is now consistent
!  with the MWR paper which describes the scheme.
!
!  01/15/1998 (Yuhe Liu)
!  Removed parameter cp. It was defined also in phycst.inc
!
!-----------------------------------------------------------------------
!
  REAL :: pmas
  PARAMETER (pmas=1.0E-11)

  REAL :: qcmin
  PARAMETER (qcmin = .001)

  REAL :: qpmin
  PARAMETER (qpmin = .0001)

  REAL :: v2p
  PARAMETER (v2p = 25.0)

  REAL :: c2p
  PARAMETER (c2p = .0000167)

  REAL :: c2r
  PARAMETER (c2r = 16.7)

  REAL :: c2s
  PARAMETER (c2s = 33.3)

  REAL :: c2i
  PARAMETER (c2i = 16.7)

  REAL :: p2s
  PARAMETER (p2s = 5.0)

  REAL :: r2i
  PARAMETER (r2i = .00000833)

  REAL :: i2r
  PARAMETER (i2r = .00000833)

  REAL :: r2v
  PARAMETER (r2v = .001)

  REAL :: p2v
  PARAMETER (p2v = .004)

  REAL :: s2v
  PARAMETER (s2v = .002)

  REAL :: i2v
  PARAMETER (i2v = .001)

  REAL :: lvl
  PARAMETER (lvl = 2.500E6)      ! 2.350E6 in RAMS

  REAL :: lvi
  PARAMETER (lvi = 2.834E6)

  REAL :: lli
  PARAMETER (lli = 0.334E6)      ! 0.484E6 in RAMS