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   = 3.72D0
      PSD    = 700.0d0
      AMDRY  = 0.044
      RMVAP  = 1.8D-2 / AMDRY
      RDRY   = 8.314D0 / AMDRY
      CPDRY  = 734.9
      ALATNT = 2.5D+6
C
C=====================================================================
C
      RETURN
      E N D
