L O G I C A L
     & UNIS,UNIL,OCT90
C----------------------------------------------------------------------
                             P A R A M E T E R
     & (G=9.8,CP=1004.6,CAPA=0.28589641
     &, ELWV=2.50E6,ELIVW=2.72E6,ROW=1.E3,EPSQ=2.E-12
     &, A2=17.2693882,A3=273.16,A4=35.86
     &, TFRZ=273.15,T1=274.16,PQ0=379.90516,STRESH=1.10
     &, STABS=1.0,STABD=.90,STABFC=1.00,DTTOP=0.0
CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
     &, RHF=0.10,EPSUP=1.00,EPSDN=1.05,EPSTH=0.0
     &, PBM=13000.,PQM=20000.,PNO=1000.,PONE=2500.,PSH=29000.
     &, 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=1. 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=.85,EFIMN=.20,EFMNT=.70,FCC=.50,FCB=1.-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.75,DSP0FL=-7050.00,DSPTFL=-2250.0,FSL=.850
C***   ACTIVATE THE FOLLOWING LINE IF OCT90=.TRUE. (AND COMMENT OUT THE
C***   PRECEDING LINE):
C    &, DSPBFL=-3875.,DSP0FL=-5875.,DSPTFL=-1875.,FSL=1.0
     &, DSPBFS=-3875.,DSP0FS=-5875.,DSPTFS=-1875.
     &, 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=.71,EFMNT=.71,FCC=0.5,FCB=1.-FCC
C+-  &, DSPBL=-3875.0,DSP0L=-5875.0,DSPTL=-1875.0
C+-  &, DSPBS=-2875.0,DSP0S=-5125.0,DSPTS=-4875.0
C+-  &, DSPBF=-4375.0,DSP0F=-4375.0,DSPTF=-1000.0
C*** BETTS CONVECTION SCHEME *******************************************
C    &, UNIS=.FALSE.,EFIMN=.9999,EFMNT=.9999,FCC=.50,FCB=1.-FCC
C    &, DSPBL=-3875.0,DSP0L=-5875.0,DSPTL=-1875.0
C    &, DSPBF=-3875.0,DSP0F=-5875.0,DSPTF=-1875.0
C    &, DSPBS=-3875.0,DSP0S=-5875.0,DSPTS=-1875.0
C***********************************************************************
     &, TREL=2400.,EPSNTP=.0010,EFIFC=5.0
     &, AVGEFI=(EFIMN+1.)*.5,DSPC=-3000.,EPSP=1.E-7
     &, STEFI=1.
C*** ACTIVATE THE FOLLOWING LINE AND COMMENT OUT THE PRECEDING LINE IF
C*** OCT90=.TRUE.
C    &, STEFI=AVGEFI
     &, SLOPBL=(DSPBFL-DSPBSL)/(1.-EFIMN)
     &, SLOP0L=(DSP0FL-DSP0SL)/(1.-EFIMN)
     &, SLOPTL=(DSPTFL-DSPTSL)/(1.-EFIMN)
     &, SLOPBS=(DSPBFS-DSPBSS)/(1.-EFIMN)
     &, SLOP0S=(DSP0FS-DSP0SS)/(1.-EFIMN)
     &, SLOPTS=(DSPTFS-DSPTSS)/(1.-EFIMN)
     &, SLOPE=(1.   -EFMNT)/(1.-EFIMN))
                             P A R A M E T E R
     & (A23M4L=A2*(A3-A4)*ELWV
     &, ELOCP=ELIVW/CP,CPRLG=CP/(ROW*G*ELWV),RCP=1./CP)