REAL KMT,KH,KQ,L,LZ,LZZ,LLZ
      PARAMETER (IM=51,JM=76,KM=21,IMM1=IM-1,JMM1=JM-1,KMM1=KM-1)
      PARAMETER (IMM2=IM-2,JMM2=JM-2)
      COMMON/BLKCON/
     1          IINT,IPRINT,DTE,DTI,TPRNI,UMOL,
     2          GRAV,TIME,RAMP,TBIAS,SBIAS,ISK,JSK,HMAX
C---------------- 1-D ARRAYS --------------------------------------
      COMMON/BLK1D/LZ(KM),LZZ(KM)
      COMMON/BLK1D/ZND(KM),ZZND(KM),DZND(KM),DZZND(KM)
C---------------- 2-D ARRAYS --------------------------------------
      COMMON/BLK2D/H(IM,JM),DX(IM,JM),DY(IM,JM),D(IM,JM),DT(IM,JM),
     1     ART(IM,JM),ARU(IM,JM),ARV(IM,JM),CBC(IM,JM),
     2     ALON(IM,JM),ALAT(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     ETF(IM,JM),ET(IM,JM),ETB(IM,JM),FLUXUA(IM,JM),FLUXVA(IM,JM),
     9     EGF(IM,JM),EGB(IM,JM),KB(IM,JM)
C---------------- 3-D ARRAYS --------------------------------------
      COMMON/BLK3D/  LLZ(IM,JM,KM),
     1     A(IM,JM,KM),C(IM,JM,KM),EE(IM,JM,KM),GG(IM,JM,KM),
     1     UF(IM,JM,KM),VF(IM,JM,KM),
     2     KMT(IM,JM,KM),KH(IM,JM,KM),KQ(IM,JM,KM),L(IM,JM,KM),
     3     Q2(IM,JM,KM),Q2B(IM,JM,KM),AAM(IM,JM,KM),
     4     Q2L(IM,JM,KM),Q2LB(IM,JM,KM),GH(IM,JM,KM),
     5     U(IM,JM,KM),UB(IM,JM,KM),W(IM,JM,KM),
     6     V(IM,JM,KM),VB(IM,JM,KM),
     7     T(IM,JM,KM),TB(IM,JM,KM),S(IM,JM,KM),SB(IM,JM,KM),
     8     Z(IM,JM,KM),ZZ(IM,JM,KM),DZZ(IM,JM,KM),
     8     DZF(IM,JM,KM),DZ(IM,JM,KM),DZB(IM,JM,KM),
     1     DZZF(IM,JM,KM),ZF(IM,JM,KM),ZZF(IM,JM,KM),
     9     RHO(IM,JM,KM),DTEF(IM,JM,KM),RMEAN(IM,JM,KM),
     3     DUM(IM,JM,KM),DVM(IM,JM,KM),FSM(IM,JM,KM)
C----------- 1 AND 2-D BOUNDARY VALUE ARRAYS ------------------------
      COMMON/BDRY/
     1     TBE(JM,KM),TBN(IM,KM),TBS(IM,KM),TBW(JM,KM),
     2     SBN(IM,KM),SBE(JM,KM),SBS(IM,KM),SBW(JM,KM),
     3     UABE(JM),UABW(JM),VABN(IM),VABS(IM),
     4     ELN(IM),ELE(JM),ELS(IM),ELW(JM)