! sr                             LOGICAL
! sr     & UNIS,UNIL,OCT90
!----------------------------------------------------------------------
    PARAMETER &
    (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)
! sr     &, STABS=1.0,STABD=.90,STABFC=1.00,DTTOP=0.0
! VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
! sr     &, RHF=0.10,EPSUP=1.00,EPSDN=1.05,EPSTH=0.0
! sr     &, PBM=13000.,PQM=20000.,PNO=1000.,PONE=2500.,PSH=29000.
! sr     &, PFRZ=15000.,PSHU=45000.
!    &, RHF=0.20,EPSUP=0.93,EPSDN=1.00,EPSTH=0.3
!    &, RHF=0.20,EPSUP=1.00,EPSDN=1.00,EPSTH=0.3
! AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

!    AUGUST '91: SCHEME HAVING THE OPTION OF USING DIFFERENT FAST AND
!    SLOW PROFILES FOR SEA AND FOR LAND POINTS; AND ALSO THE "SEA" AND
!    THE "LAND" SCHEME EVERYWHERE.  OVER LAND PROFILES DEPART FROM THE
!    FAST (DRY) PROFILES ONLY FOR PRECIPITATION/TIME STEP .GT.
!    A PRESCRIBED VALUE (CURRENTLY, IN THE VERSION #3 DONE WEDNESDAY
!    18 SEPTEMBER, 1/4 INCH/24 H).  USE OF VARIOUS SWITCHES AS FOLLOWS.

!       THE "OLD" ("HARD", =ZAVISA OCT.1990) LAND SCHEME WITH FIXED
!       LAND PROFILES IS RUN BY
!       * SETTING OCT90=.TRUE. IN THE FIRST EXECUTABLE LINE FOLLOWING
!            THESE COMMENTS (THIS REACTIVATES EFI=1. OVER LAND IF
!            .NOT.UNIS, AND CLDEFI(K)=EFIMN AS THE LEFTOVER CLDEFI
!            VALUE AT SWAP POINTS);
!       * DEFINING FAST LAND PROFILES SAME AS FAST SEA PROFILES (OR BY
!            CHOOSING ANOTHER SET OF LAND PROFILES ZAVISA USED AT
!            EARLIER TIME);
!       * SETTING FSL=1.; AND
!       * DEFINING STEFI (STARTING EFI) EQUAL TO AVGEFI.
!            (THE LAST THREE POINTS ARE HANDLED BY SWITCHING AROUND THE
!            "CFM" COMMENTS AT TWO PLACES)

!       THE "OLD,OLD" (APPR. ORIGINAL BETTS) SCHEME IS RUN BY
!       * SPECIFYING UNIL=.TRUE.;
!       * SETTING FSL=1.;
!       * SETTING OCT90=.TRUE.
!            (WITH THESE SETTINGS FAST LAND PROFILES ONLY ARE USED).
!                                                                     FM
! sr     &, UNIS=.FALSE.,UNIL=.FALSE.,OCT90=.FALSE.
! ctp2005     &,   FSS=.85,EFIMN=.20,EFMNT=.70,FCC=.50,FCB=1.-FCC
!     &,   FSS=1.10,EFIMN=.20,EFMNT=.70,FCC=.50,FCB=1.-FCC
! sr     &,   FSS=.85,EFIMN=.20,EFMNT=.70,FCC=.50,FCB=1.-FCC

!         IN THIS VERSION 3.5, OVER LAND AND FOR THE FAST PROFILES, DSPB
!         IS PRESCRIBED TO BE 25 PERCENT DRIER THAN THE FAST SEA VALUE
!         (IN ROUGH AGREEMENT WITH BINDER, QJ, IN PRESS) WHILE DSP0 AND
!         DSPT ARE EACH 20 PERCENT DRIER THAN THE CORRESPONDING FAST
!         SEA VALUES.                WITH FSL=.875 THIS MAKES THE
!         AVERAGE OF THE FAST AND THE SLOW LAND PROFILES SOMEWHAT DRIER
!         THAN THE OCT90 FIXED LAND PROFILES.                         FM

! ctp2005     &, DSPBFL=-4843.75,DSP0FL=-7050.00,DSPTFL=-2250.0,FSL=.850
!***   ACTIVATE THE FOLLOWING LINE IF OCT90=.TRUE. (AND COMMENT OUT THE
!***   PRECEDING LINE):
!    &, DSPBFL=-3875.,DSP0FL=-5875.,DSPTFL=-1875.,FSL=1.0
!     &, DSPBFL=-3875.,DSP0FL=-5875.,DSPTFL=-1875.,FSL=1.1      !itcp2005
! sr     &, DSPBFL=-4500.,DSP0FL=-5500.,DSPTFL=-2000.,FSL=.850
! sr     &, DSPBFS=-3875.,DSP0FS=-5875.,DSPTFS=-1875.
! sr     &, DSPBSL=DSPBFL*FSL,DSP0SL=DSP0FL*FSL,DSPTSL=DSPTFL*FSL
! sr     &, DSPBSS=DSPBFS*FSS,DSP0SS=DSP0FS*FSS,DSPTSS=DSPTFS*FSS
!*** NEW CONVECTION SCHEME WITH CROSSING DSP PROFILES ******************
!+-  &, UNIS=.FALSE.,EFIMN=.71,EFMNT=.71,FCC=0.5,FCB=1.-FCC
!+-  &, DSPBL=-3875.0,DSP0L=-5875.0,DSPTL=-1875.0
!+-  &, DSPBS=-2875.0,DSP0S=-5125.0,DSPTS=-4875.0
!+-  &, DSPBF=-4375.0,DSP0F=-4375.0,DSPTF=-1000.0
!*** BETTS CONVECTION SCHEME *******************************************
!    &, UNIS=.FALSE.,EFIMN=.9999,EFMNT=.9999,FCC=.50,FCB=1.-FCC
!    &, DSPBL=-3875.0,DSP0L=-5875.0,DSPTL=-1875.0
!    &, DSPBF=-3875.0,DSP0F=-5875.0,DSPTF=-1875.0
!    &, DSPBS=-3875.0,DSP0S=-5875.0,DSPTS=-1875.0
!***********************************************************************
!     &, TREL=2400.,EPSNTP=.0010,EFIFC=5.0
! sr     &, TREL=2900.,EPSNTP=.0010,EFIFC=5.0
! sr     &, AVGEFI=(EFIMN+1.)*.5,DSPC=-3000.,EPSP=1.E-7
! sr     &, STEFI=1.
!*** ACTIVATE THE FOLLOWING LINE AND COMMENT OUT THE PRECEDING LINE IF
!*** OCT90=.TRUE.
!    &, STEFI=AVGEFI
! sr     &, SLOPBL=(DSPBFL-DSPBSL)/(1.-EFIMN)
! sr     &, SLOP0L=(DSP0FL-DSP0SL)/(1.-EFIMN)
! sr     &, SLOPTL=(DSPTFL-DSPTSL)/(1.-EFIMN)
! sr     &, SLOPBS=(DSPBFS-DSPBSS)/(1.-EFIMN)
! sr     &, SLOP0S=(DSP0FS-DSP0SS)/(1.-EFIMN)
! sr     &, SLOPTS=(DSPTFS-DSPTSS)/(1.-EFIMN)
! sr     &, SLOPE=(1.   -EFMNT)/(1.-EFIMN))
! sr                             PARAMETER
! sr     & (A23M4L=A2*(A3-A4)*ELWV
! sr     &, ELOCP=ELIVW/CP,CPRLG=CP/(ROW*G*ELWV),RCP=1./CP)