C**********************************************************************
C**********************************************************************
C
      SUBROUTINE SETCST
     O   ( GRAV, PSD, AMDRY, RDRY, CPDRY, RMVAP, ALATNT )
C
C**********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C**********************************************************************
C
      GRAV   = 9.8D0
      PSD    = 1.0D+5
      AMDRY  = 2.897D-2
      RMVAP  = 1.8D-2 / AMDRY
      RDRY   = 8.314D0 / AMDRY
      CPDRY  = 3.5D0 * RDRY
      ALATNT = 2.5D+6
C
C=====================================================================
C
      RETURN
      E N D
