#include "all.inc"
C-----------------------------------------------------------------
      LOGICAL SURFI,SURFW,SURFT,LSST,LALB,LSI,LVEGFRC,GRADS
      LOGICAL RUN,SIGMA,PPRINT
C-----------------------------------------------------------------
      PARAMETER(IM=-WBD/DLMD+1.5,JM=-2.*SBD/DPHD+1.5,IM1=IM-1)
      PARAMETER(IMJM=IM*JM-JM/2,IMJM1=IMJM-1)
      PARAMETER(KNE=IM,KNW=IM1,NINC=2*IM-1
     &,KHL00=1,KHH00=IM*JM-JM/2,JM2=JM-2)
      PARAMETER(KB=2*IM+JM-3,LB=KB)
      PARAMETER(LDM=12,LME=12)
C-----------------------------------------------------------------
      PARAMETER(PT=5000.,PTSGM=42000.,NSOIL=4)
      PARAMETER(PI=3.141592654,DTR=PI/180.,G=9.8,GOR=9.8/287.04
     &,NSMUD=0,EPSQ=1.E-12)
C-----------------------------------------------------------------
      PARAMETER
     &(SURFI=  .FALSE.
     &,SURFW=  .TRUE.
     &,SURFT=  .TRUE.
     &,LSST=   .TRUE.
     &,LALB=   .FALSE.
     &,LSI=    .FALSE.
     &,LVEGFRC=.TRUE.
     &,GRADS=  .TRUE.)
C-----------------------------------------------------------------
      PARAMETER
     &(DELON=.15,DELAT=.15,imec=434,jmec=201
     &,BOWEST=-45.,BOSOUT=45.
     &,BOEAST=BOWEST+(imec-1)*delon
     &,BONORT=BOSOUT+(jmec-1)*delat
     &,IME=(BOEAST-BOWEST)/DELON+1,JME=(BONORT-BOSOUT)/DELAT+1)
C-----------------------------------------------------------------
      PARAMETER(NSFCFLD=12,TBOCO=3.0,IEND=75)
C-----------------------------------------------------------------
      DIMENSION IDAT(3),SPL(LDM)
C-----------------------------------------------------------------