P A R A M E T E R
     & (H1=1.E0,H1D5=1.5E0,H2D5=2.5E0,H3000=3000.E0,H10E5=100000.E0
     &, D00=0.E0,D125=.125E0,D50=.5E0,D608=.608E0
     &, G=9.8E0,CP=1004.6E0,CAPA=0.28589641E0,ROG=287.04/9.8
     &, ELWV=2.50E6,ELIVW=2.72E6,ROW=1.E3,EPSQ=2.E-12
     &, A2=17.2693882E0,A3=273.16E0,A4=35.86E0
     &, T0=273.16E0,T1=274.16E0,PQ0=379.90516E0,STRESH=1.10E0
     &, STABS=1.0E0,STABD=.90E0,STABFC=1.00E0,DTTOP=0.0E0
CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
     &, RHF=0.10,EPSUP=1.00,EPSDN=1.05,EPSTH=0.0
     &, PBM=13000.,PQM=20000.,PNO=1000.,PONE=2500.,ZSH=2000.
     &, PFRZ=15000.,PSHU=45000.
C    &, RHF=0.20,EPSUP=0.93,EPSDN=1.00,EPSTH=0.3
C    &, RHF=0.20,EPSUP=1.00,EPSDN=1.00,EPSTH=0.3
CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
C
C    AUGUST '91: SCHEME HAVING THE OPTION OF USING DIFFERENT FAST AND
C    SLOW PROFILES FOR SEA AND FOR LAND POINTS; AND ALSO THE "SEA" AND
C    THE "LAND" SCHEME EVERYWHERE.  OVER LAND PROFILES DEPART FROM THE
C    FAST (DRY) PROFILES ONLY FOR PRECIPITATION/TIME STEP .GT.
C    A PRESCRIBED VALUE (CURRENTLY, IN THE VERSION #3 DONE WEDNESDAY
C    18 SEPTEMBER, 1/4 INCH/24 H).  USE OF VARIOUS SWITCHES AS FOLLOWS.
C
C       THE "OLD" ("HARD", =ZAVISA OCT.1990) LAND SCHEME WITH FIXED
C       LAND PROFILES IS RUN BY
C       * SETTING OCT90=.TRUE. IN THE FIRST EXECUTABLE LINE FOLLOWING
C            THESE COMMENTS (THIS REACTIVATES EFI=H1 OVER LAND IF
C            .NOT.UNIS, AND CLDEFI(K)=EFIMN AS THE LEFTOVER CLDEFI
C            VALUE AT SWAP POINTS);
C       * DEFINING FAST LAND PROFILES SAME AS FAST SEA PROFILES (OR BY
C            CHOOSING ANOTHER SET OF LAND PROFILES ZAVISA USED AT
C            EARLIER TIME);
C       * SETTING FSL=1.; AND
C       * DEFINING STEFI (STARTING EFI) EQUAL TO AVGEFI.
C            (THE LAST THREE POINTS ARE HANDLED BY SWITCHING AROUND THE
C            "CFM" COMMENTS AT TWO PLACES)
C
C       THE "OLD,OLD" (APPR. ORIGINAL BETTS) SCHEME IS RUN BY
C       * SPECIFYING UNIL=.TRUE.;
C       * SETTING FSL=1.;
C       * SETTING OCT90=.TRUE.
C            (WITH THESE SETTINGS FAST LAND PROFILES ONLY ARE USED).
C                                                                     FM
     &, UNIS=.FALSE.,UNIL=.FALSE.,OCT90=.FALSE.
     &,   FSS=.85E0,EFIMN=.20E0,EFMNT=.70E0,FCC=.50,FCP=H1-FCC
C
C         IN THIS VERSION 3.5, OVER LAND AND FOR THE FAST PROFILES, DSPB
C         IS PRESCRIBED TO BE 25 PERCENT DRIER THAN THE FAST SEA VALUE
C         (IN ROUGH AGREEMENT WITH BINDER, QJ, IN PRESS) WHILE DSP0 AND
C         DSPT ARE EACH 20 PERCENT DRIER THAN THE CORRESPONDING FAST
C         SEA VALUES.                WITH FSL=.875 THIS MAKES THE
C         AVERAGE OF THE FAST AND THE SLOW LAND PROFILES SOMEWHAT DRIER
C         THAN THE OCT90 FIXED LAND PROFILES.                         FM
C
     &, DSPBFL=-4843.75E0,DSP0FL=-7050.00E0,DSPTFL=-2250.0E0,FSL=.850E0
C***   ACTIVATE THE FOLLOWING LINE IF OCT90=.TRUE. (AND COMMENT OUT THE
C***   PRECEDING LINE):
C    &, DSPBFL=-3875.E0,DSP0FL=-5875.E0,DSPTFL=-1875.E0,FSL=1.0E0
     &, DSPBFS=-3875.E0,DSP0FS=-5875.E0,DSPTFS=-1875.E0
     &, DSPBSL=DSPBFL*FSL,DSP0SL=DSP0FL*FSL,DSPTSL=DSPTFL*FSL
     &, DSPBSS=DSPBFS*FSS,DSP0SS=DSP0FS*FSS,DSPTSS=DSPTFS*FSS
C*** NEW CONVECTION SCHEME WITH CROSSING DSP PROFILES ******************
C+-  &, UNIS=.FALSE.,EFIMN=.71E0,EFMNT=.71,FCC=0.5,FCP=H1-FCC
C+-  &, DSPBL=-3875.E0,DSP0L=-5875.E0,DSPTL=-1875.E0
C+-  &, DSPBS=-2875.E0,DSP0S=-5125.E0,DSPTS=-4875.E0
C+-  &, DSPBF=-4375.E0,DSP0F=-4375.E0,DSPTF=-1000.E0
C*** BETTS CONVECTION SCHEME *******************************************
C    &, UNIS=.FALSE.,EFIMN=.9999E0,EFMNT=.9999E0,FCC=.50,FCP=H1-FCC
C    &, DSPBL=-3875.E0,DSP0L=-5875.E0,DSPTL=-1875.E0
C    &, DSPBF=-3875.E0,DSP0F=-5875.E0,DSPTF=-1875.E0
C    &, DSPBS=-3875.E0,DSP0S=-5875.E0,DSPTS=-1875.E0
C***********************************************************************
     &, TREL=3000.,EPSNTP=.0010E0,EFIFC=5.0E0
     &, AVGEFI=(EFIMN+1.E0)*.5E0,DSPC=-3000.E0,EPSP=1.E-7
     &, STEFI=1.E0
C*** ACTIVATE THE FOLLOWING LINE AND COMMENT OUT THE PRECEDING LINE IF
C*** OCT90=.TRUE.
C    &, STEFI=AVGEFI
     &, SLOPBL=(DSPBFL-DSPBSL)/(H1-EFIMN)
     &, SLOP0L=(DSP0FL-DSP0SL)/(H1-EFIMN)
     &, SLOPTL=(DSPTFL-DSPTSL)/(H1-EFIMN)
     &, SLOPBS=(DSPBFS-DSPBSS)/(H1-EFIMN)
     &, SLOP0S=(DSP0FS-DSP0SS)/(H1-EFIMN)
     &, SLOPTS=(DSPTFS-DSPTSS)/(H1-EFIMN)
     &, SLOPE=(H1   -EFMNT)/(H1-EFIMN))
                             P A R A M E T E R
     & (A23M4L=A2*(A3-A4)*ELWV
     &, ELOCP=ELIVW/CP,CPRLG=CP/(ROW*G*ELWV),RCP=H1/CP)