      SUBROUTINE SPWCONH (FVORT,PI) 
C 
C     * JAN 30/89 - M.LAZARE. - INCLUDE PARAMETERS USED IN ICE-PHASE AND
C     *                         MOISTURE CONSERVATION CALCULATIONS. 
C     * DEC 05/88 - M.LAZARE. - HC,HF,HM INCREASED TO 0.95 TO HELP
C     *                         REDUCE TROPOSPHERIC MOISTURE DEFICIT. 
C     * MAR 15/88 - R.LAPRISE.  ORIGINAL VERSION FOR GCM3H. 
  
C     * SETS CONSTANTS FOR THE HYBRID GCM.
C     * ILEVM = JUST ILEV-1.
C     *  LEVS = THE NUMBER OF PROGNOSTIC MOISTURE LEVELS. 
C     *    SH = SIGMA VALUE AT MID POINT OF THERMO. LAYERS. 
C     *   SHB = SIGMA VALUE AT BASE OF THERMO. LAYERS.
C     *    WW = EARTH ROTATION RATE (1/SEC).
C     *     A = EARTH RADIUS (M). 
C     *  GRAV = GRAVITY ACCELERATION (M/SEC**2).
C     *  RGAS = DRY AIR GAS CONSTANT (JOULE/(KG*DEG)).
C     * RGOCP = RGAS/(DRY AIR SPECIFIC HEAT)
C     * FVORT = VORTICITY OF EARTH ROTATION.
C 
C 
C     * PARAMETERS USED IN THERMODYNAMICS AND DYNAMICS. 
C 
      IMPLICIT REAL (A-H,O-Z),
     +INTEGER (I-N)
      COMMON /PARAMS/ WW,TW,RAYON,ASQ,GRAV,RGAS,RGOCP,RGOASQ,CPRES
      COMMON /PARAMS/ RGASV,CPRESV
C 
C     * PARAMETERS USED BY  FUNCTION  HTVOCP. 
C 
      COMMON /HTCP/   T1S,T2S,AI,BI,AW,BW,SLP 
C 
C     * PARAMETERS USED BY  FUNCTIONS  DEWPNT,  SPCHUM,  DELTAQ.
C 
      COMMON /EPS/    A,B,EPS1,EPS2 
C 
C     * PARAMETERS USED BY  FUNCTION  GAMSAT. 
C 
      COMMON /GAMS/   EPSS,CAPA 
C 
C     * PARAMETERS USED IN MOIST CONVECTIVE ADJUSTMENT. 
C 
      COMMON /ADJPCP/ HC,HF,HM,AA,DEPTH,LHEAT,MOIADJ,MOIFLX 
C 
C     * PARAMETERS USED IN ICE PHASE PHYSICS CALCULATIONS.
C 
      COMMON /EPSICE/ AICE,BICE,TICE,QMIN 
C-----------------------------------------------------------------------
      WW     =7.292E-5
      TW     =WW+WW 
      RAYON  =6.37122E06
      ASQ    =RAYON*RAYON 
      GRAV   =9.80616E0 
      RGAS   =287.04E0
      RGOCP  =2.E0/7.E0 
      RGOASQ =RGAS/ASQ
      CPRES  =RGAS/RGOCP
      CPRESV =1870.E0 
      RGASV  =461.50E0
      PI     =3.1415926535897E0 
      FVORT  =TW*SQRT(2.E0/3.E0)
C 
      RAUW   =1.E+3 
      GRAV   =9.80616E0 
      DEPTH  = 1.E0/(RAUW*GRAV) 
      CP     =1004.5E0
      CAPA   =RGOCP 
      T1S    =273.16E0
      T2S    =258.16E0
      AW     =3.15213E+6/CP 
      BW     =2.38E+3/CP
      AI     =2.88053E+6/CP 
      BI     =0.167E+3/CP 
      SLP    =1.E0/(T1S-T2S)
      A      =21.656E0
      B      =5418.E0 
      AICE   =24.292E0
      BICE   =6141.E0 
      TICE   =233.16E0
      QMIN   =1.E-20
      EPS1   =0.622E0 
      EPS2   =0.378E0 
      EPSS   =EPS1
C 
      HC     =0.95E0 
      HF     =0.95E0 
      HM     =0.95E0 
      LHEAT  =1 
      MOIADJ =1 
      MOIFLX =1 
      AA     =0.0E0 
      IF(HM.LT.1.E0)  AA=1.E0/(6.E0*(1.E0-HM)**2) 
C 
      RETURN
C-----------------------------------------------------------------------
      END 
