REAL KM,KH,KQ,L
      LOGICAL BOUSN
      PARAMETER (IM=21,JM=21,KB=24,IMM1=IM-1,JMM1=JM-1,KBM1=KB-1)
C     PARAMETER (IM=21,JM=41,KB=24,IMM1=IM-1,JMM1=JM-1,KBM1=KB-1)
      PARAMETER (IMM2=IM-2,JMM2=JM-2,KBM2=KB-2)
      PARAMETER (LIJ=IM*JM,LIJ2=LIJ*2,LIJK=LIJ*KB,LIJKM2=LIJ*KBM2)
      PARAMETER (LIJM1=IM*(JM-1),LIJKM1=LIJ*KBM1)
      COMMON/BLKCON/
     1          IINT,IPRINT,DTE,DTI,TPRNU,UMOL,
     2          GRAV,TIME,RAMP,
     3          TBIAS,SBIAS
C---------------- 1-D ARRAYS --------------------------------------
      COMMON/BLK1D/
     1      DZR(KB),Z(KB),ZZ(KB),DZ(KB),DZZ(KB)
C---------------- 2-D ARRAYS --------------------------------------
      COMMON/BLK2D/H(IM,JM),DX(IM,JM),DY(IM,JM),
     1     ART(IM,JM),ARU(IM,JM),ARV(IM,JM),CBC(IM,JM),
     2     ALON(IM,JM),ALAT(IM,JM),
     3     DUM(IM,JM),DVM(IM,JM),FSM(IM,JM),COR(IM,JM),
     4     WUSURF(IM,JM),WVSURF(IM,JM),WUBOT(IM,JM),WVBOT(IM,JM),
     5     WTSURF(IM,JM),WSSURF(IM,JM),TPS(IM,JM),AAM2D(IM,JM),
     6     UAF(IM,JM),UA(IM,JM),UAB(IM,JM),VAF(IM,JM),VA(IM,JM),
     7     VAB(IM,JM),ELF(IM,JM),EL(IM,JM),ELB(IM,JM),PSI(IM,JM),
     8     FLUXUA(IM,JM),FLUXVA(IM,JM),
     9     EGF(IM,JM),EGB(IM,JM),
     1     DTF(IM,JM),DT(IM,JM),DTB(IM,JM),
     2     DF(IM,JM),D(IM,JM),DB(IM,JM),
     3     RHOAB(IM,JM),RHOA(IM,JM),RHOAF(IM,JM),
     4     RHAB(IM,JM),RHA(IM,JM),RHAF(IM,JM)
C---------------- 3-D ARRAYS --------------------------------------
      COMMON/BLK3D/
     1     A(IM,JM,KB),C(IM,JM,KB),EE(IM,JM,KB),GG(IM,JM,KB),
     1     UF(IM,JM,KB),VF(IM,JM,KB),
     2     KM(IM,JM,KB),KH(IM,JM,KB),KQ(IM,JM,KB),L(IM,JM,KB),
     3     Q2(IM,JM,KB),Q2B(IM,JM,KB),AAM(IM,JM,KB),
     4     Q2L(IM,JM,KB),Q2LB(IM,JM,KB),
     5     U(IM,JM,KB),UB(IM,JM,KB),W(IM,JM,KB),
     6     V(IM,JM,KB),VB(IM,JM,KB),
     7     T(IM,JM,KB),TB(IM,JM,KB),
     8     S(IM,JM,KB),SB(IM,JM,KB),
     9     RHOB(IM,JM,KB),RHO(IM,JM,KB),RHOF(IM,JM,KB),
     1     DTEF(IM,JM,KB),RMEAN(IM,JM,KB)
C----------- 1 AND 2-D BOUNDARY VALUE ARRAYS ------------------------
      COMMON/BDRY/
     1     TBE(JM,KB),TBN(IM,KB),TBS(IM,KB),SBN(IM,KB),SBE(JM,KB),
     2     SBS(IM,KB),UABE(JM),VABN(IM),VABS(IM),
     3     ELN(IM),ELE(JM),ELS(IM),COVRHN(IM),COVRHE(JM)