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