SUBROUTINE VARALLOC4

      USE GLOBAL  
C  
      ALLOCATE(LSBLBCD(LCM))  
      ALLOCATE(LSBLBCU(LCM))  
      ALLOCATE(LSC(LCM))  
      ALLOCATE(LSCLT(LCM))  
      ALLOCATE(LSEC(LCM))  
      ALLOCATE(LSHAB(MLM))  
      ALLOCATE(LSHAP(MLM))  
      ALLOCATE(LSHAU(MLM))  
      ALLOCATE(LSHAUE(MLM))  
      ALLOCATE(LSMTS(NSMTSM))  
      ALLOCATE(LSWC(LCM))  
      ALLOCATE(LUBE(NUBEM))  
      ALLOCATE(LUBW(NUBWM))  
      ALLOCATE(LUPU(LCM,KCM))  
      ALLOCATE(LUPV(LCM,KCM))  
      ALLOCATE(LUU(LCM,KCM))  
      ALLOCATE(LUV(LCM,KCM))  
      ALLOCATE(LUW(LCM,0:KCM))  
      ALLOCATE(LUWV(LCM,KCM))  
      ALLOCATE(LUWW(LCM,0:KCM))  
      ALLOCATE(LVBN(NVBNM))  
      ALLOCATE(LVBS(NVBSM))  
      ALLOCATE(LVSU(LCM,KCM))  
      ALLOCATE(LVSW(LCM,0:KCM))  
      !ALLOCATE(LVU(LCM,KCM))    ! PMC - NOT USED
      !ALLOCATE(LVV(LCM,KCM))    ! PMC - NOT USED
      !ALLOCATE(LVW(LCM,0:KCM))  ! PMC - NOT USED
      ALLOCATE(LWGG(NWGGM))  
      ALLOCATE(MASER(NASERM))  
      ALLOCATE(MATLAST(NASERM))  
      ALLOCATE(MCNTLR(NGLM))  
      ALLOCATE(MCSER(NCSERM,NSTVM))  
      ALLOCATE(MCTLAST(NCSERM,NSTVM))  
      ALLOCATE(MFDCHZ(LCM))
      ALLOCATE(MDCHTYP(NCHANM))  
      ALLOCATE(MGWSER(NGWSERM))  
      ALLOCATE(MGWTLAST(NGWSERM))  
      ALLOCATE(MPSER(NPSERM))  
      ALLOCATE(MPTLAST(NPSERM))  
      ALLOCATE(MQCTL(NQCTTM))  
      ALLOCATE(MQSER(NQSERM))  
      ALLOCATE(MQTLAST(NQSERM))  
      ALLOCATE(MQWRSR(NQWRSRM))  
      ALLOCATE(MQWRTLST(NQWRSRM))  
      ALLOCATE(MTMSRA(MLTMSRM))  
      ALLOCATE(MTMSRC(MLTMSRM))  
      ALLOCATE(MTMSRP(MLTMSRM))  
      ALLOCATE(MTMSRQ(MLTMSRM))  
      ALLOCATE(MTMSRQE(MLTMSRM))  
      ALLOCATE(MTMSRU(MLTMSRM))  
      ALLOCATE(MTMSRUE(MLTMSRM))  
      ALLOCATE(MTMSRUT(MLTMSRM))  
      ALLOCATE(MTSCUR(NTSSTSPM))  
      ALLOCATE(MTSSTSP(NTSSTSPM))  
      ALLOCATE(MVEGL(LCM))  
      ALLOCATE(MVEGSER(NVEGSERM))  
      ALLOCATE(MVEGTLAST(NVEGSERM))  
      ALLOCATE(MVPSL(NWQPSM))  
      !ALLOCATE(MWQCSR(NWQCSRM,NWQVM))  
      ALLOCATE(MWQCTLT(NWQCSRM,NWQVM))  
      ALLOCATE(MWQPSR(NWQPSRM))  
      ALLOCATE(MWQPTLT(NWQPSRM))  
      ALLOCATE(MWSER(NWSERM))  
      ALLOCATE(MWTLAST(NWSERM))  
      ALLOCATE(NATDRY(LCM))  
      ALLOCATE(NCHNC(0:KCM*LCM))  
      ALLOCATE(NCSER(NSTVM))  
      ALLOCATE(NCSERA(NLDAM,NSTVM))
      ALLOCATE(NCSERE(NBBEM,NSTVM))  
      ALLOCATE(NCSERJP(NQJPM,NSTVM))  
      ALLOCATE(NCSERN(NBBNM,NSTVM))  
      ALLOCATE(NCSERQ(NQSIJM,NSTVM))  
      ALLOCATE(NCSERS(NBBSM,NSTVM))  
      ALLOCATE(NCSERW(NBBWM,NSTVM))  
      ALLOCATE(NDWHT(LCM,NWSERM))  
	ALLOCATE(NGWSL(LCM))  
      ALLOCATE(NJEL(NQJPM))  
      ALLOCATE(NJPMX(NQJPM))  
      ALLOCATE(NLOE(NBBEM,KCM,NSTVM))  
      ALLOCATE(NLON(NBBNM,KCM,NSTVM))  
      ALLOCATE(NLOS(NBBSM,KCM,NSTVM))  
      ALLOCATE(NLOW(NBBWM,KCM,NSTVM))  
      ALLOCATE(NLRPDL(LCGLM))  
      ALLOCATE(NLRPDRT(NGLM))  
      ALLOCATE(NPORTJP(NQJPM))  
      ALLOCATE(NPSERE(NPBEM))  
      ALLOCATE(NPSERN(NPBNM))  
      ALLOCATE(NPSERS(NPBSM))  
      ALLOCATE(NPSERW(NPBWM))  
      ALLOCATE(NQCMFD(NQCTLM))  
      ALLOCATE(NQCMFU(NQCTLM))  
      ALLOCATE(NQCMUL(NQCTLM))  
      ALLOCATE(NQCTLQ(NQCTLM))  
      ALLOCATE(NQCTYP(NQCTLM))  
      ALLOCATE(NQSERJP(NQJPM))  
      ALLOCATE(NQSERQ(NQSIJM))  
      ALLOCATE(NQSMF(NQSIJM))  
      ALLOCATE(NQSMUL(NQSIJM))  
      ALLOCATE(NQWRMFD(NQWRM))  
      ALLOCATE(NQWRMFU(NQWRM))  
      ALLOCATE(NQWRSERJP(NQJPM))  
      ALLOCATE(NQWRSERQ(NQWRM))  
      ALLOCATE(NSP2(NTXM))  
      ALLOCATE(NTSCRE(NBBEM))  
      ALLOCATE(NTSCRN(NBBNM))  
      ALLOCATE(NTSCRS(NBBSM))  
      ALLOCATE(NTSCRW(NBBWM))  
      ALLOCATE(NTSSSS(MLTMSRM))  
      ALLOCATE(NTVSFP(MTVSM))  
      ALLOCATE(NUDJP(NQJPM))  
      ALLOCATE(NUDJPC(NQJPM))  
      ALLOCATE(NUMTMP(LCGLM,KCM))  
      ALLOCATE(NUTMP(LCGLM,KCM))  
      ALLOCATE(NVEGSERV(0:NVEGTPM))  
      !ALLOCATE(NWQLOE(NBBEM,KCM,NWQVM))  ! PMC - NOT USED
      !ALLOCATE(NWQLON(NBBNM,KCM,NWQVM))  ! PMC - NOT USED
      !ALLOCATE(NWQLOS(NBBSM,KCM,NWQVM))  ! PMC - NOT USED
      !ALLOCATE(NWQLOW(NBBWM,KCM,NWQVM))  ! PMC - NOT USED
      ALLOCATE(NXYSDAT(LCM))  
      ALLOCATE(NZPRJP(NQJPM))  
      ALLOCATE(O2WQ(LCM))  
      ALLOCATE(P(LCM))  
      ALLOCATE(P1(LCM))  
      ALLOCATE(P1DT1(MLM))  
      ALLOCATE(PAM(LCM))  
      ALLOCATE(PATM(NDASER,NASERM))  
      ALLOCATE(PATMT(LCM))  
      !ALLOCATE(PBLK(LCM))    ! PMC - NOT USED
      !ALLOCATE(PBTMP(LCM))   ! PMC - NOT USED
      ALLOCATE(PCBE(NPBEM,MTM))  
      ALLOCATE(PCBN(NPBNM,MTM))  
      ALLOCATE(PCBS(NPBSM,MTM))  
      ALLOCATE(PCBW(NPBWM,MTM))  
      ALLOCATE(PCG(LCM))  
      !ALLOCATE(PCGE(LCM))    ! PMC - NOT USED
      !ALLOCATE(PCGN(LCM))    ! PMC - NOT USED
      !ALLOCATE(PCGS(LCM))    ! PMC - NOT USED
      !ALLOCATE(PCGW(LCM))    ! PMC - NOT USED
      ALLOCATE(PCLSHA(MLM,MTM))  
      ALLOCATE(PDIFTOX(NTXM))  
      !ALLOCATE(PE(LCM))      ! PMC - NOT USED
      ALLOCATE(PEXP(LCM,NSNM))  
      ALLOCATE(PFAM(NPFORM,MTM))  
      ALLOCATE(PFAM1(NPFORM,MTM))  
      ALLOCATE(PFAM2(NPFORM,MTM))  
      ALLOCATE(PFPH(NPFORM,MTM))  
      ALLOCATE(PFPH1(NPFORM,MTM))  
      ALLOCATE(PFPH2(NPFORM,MTM))  
      ALLOCATE(PHASEE(MTM))  
      ALLOCATE(PHASEU(MTM))  
      ALLOCATE(PHASEV(MTM))  
      ALLOCATE(PHID(LCM,NSNM))  
      ALLOCATE(PHJET(NQJPM))  
      ALLOCATE(PLSHA(MLM))  
      ALLOCATE(PMDCH(NCHANM))  
      ALLOCATE(PN(LCM))  
      ALLOCATE(PNHYDS(LCM,KCM))  
      ALLOCATE(PO4DWQ(LCM))  
      ALLOCATE(PO4DWQSUM(LCMWQ,KCM))  
      ALLOCATE(POCMAX(LCMWQ,KCM))  
      ALLOCATE(POCMIN(LCMWQ,KCM))  
      ALLOCATE(POCSUM(LCMWQ,KCM))  
      ALLOCATE(PONMAX(LCMWQ,KCM))  
      ALLOCATE(PONMIN(LCMWQ,KCM))  
      ALLOCATE(PONSUM(LCMWQ,KCM))  
      ALLOCATE(POPMAX(LCMWQ,KCM))  
      ALLOCATE(POPMIN(LCMWQ,KCM))  
      ALLOCATE(POPSUM(LCMWQ,KCM))  
      ALLOCATE(PORBED(LCM,KBM))  
      ALLOCATE(PORBED1(LCM,KBM))  
      !ALLOCATE(PORBEDA(LCM))      ! PMC - NOT USED
      !ALLOCATE(PORBEDA1(LCM))     ! PMC - NOT USED
      ALLOCATE(PPH(LCM))  
      !ALLOCATE(PRED(LCM))         ! PMC - NOT USED
      !ALLOCATE(PRESE(LCM,KBM))    ! PMC - NOT USED
      !ALLOCATE(PRESH(LCM,KBM))    ! PMC - NOT USED
      !ALLOCATE(PREST(LCM,KBM))    ! PMC - NOT USED
      ALLOCATE(PRODSUM(LCMWQ,KCM,4))  
      !ALLOCATE(PS(LCM))           ! PMC - NOT USED
      ALLOCATE(PSBE(NPBEM,MTM))  
      ALLOCATE(PSBN(NPBNM,MTM))  
      ALLOCATE(PSBS(NPBSM,MTM))  
      ALLOCATE(PSBW(NPBWM,MTM))  
      ALLOCATE(PSER(NDPSER,NPSERM))  
      ALLOCATE(PSERT(0:NPSERM))  
      ALLOCATE(PSHADE(LCM))  
      ALLOCATE(PSLSHA(MLM,MTM))  
      ALLOCATE(PTLSHA(MLM))  
      ALLOCATE(PTMP(LCM))  
      ALLOCATE(PVEGX(0:NVEGTPM))  
      ALLOCATE(PVEGY(0:NVEGTPM))  
      ALLOCATE(PVEGZ(0:NVEGTPM))  
      !ALLOCATE(PW(LCM))           ! PMC - NOT USED
      !ALLOCATE(QBEDS(LCM))        ! PMC - NOT USED
      !ALLOCATE(QBEDW(LCM))        ! PMC - NOT USED
      ALLOCATE(QCELLCTR(LCM))  
      ALLOCATE(QCH(LCM,0:KCM))  
      ALLOCATE(QCHANU(NCHANM))  
      ALLOCATE(QCHANUN(NCHANM))  
      ALLOCATE(QCHANV(NCHANM))  
      ALLOCATE(QCHANVN(NCHANM))  
      ALLOCATE(QCHNULP(NCHANM))  
      ALLOCATE(QCHNVLP(NCHANM))  
      ALLOCATE(QCOEF(LCM,0:KBM))  
      ALLOCATE(QCTL(NDQCLT,NDQCLT2,KCM,NQCTTM))  
      ALLOCATE(QCTLST(KCM,NQCTLM))  
      ALLOCATE(QCTLSTO(KCM,NQCTLM))  
      ALLOCATE(QCTLT(KCM,0:NQCTLM))  
      ALLOCATE(QCTLTLP(KCM,NQCTLM))  
      ALLOCATE(QCTLTO(KCM,0:NQCTLM))  
      ALLOCATE(QDWASTE(LCM))  
      !ALLOCATE(QEVAP(LCM))        ! PMC - NOT USED
      ALLOCATE(QFACTOR(NQSIJM))  
      ALLOCATE(QGW(LCM))  
      ALLOCATE(QJPENT(KCM,NQJPM))  
      ALLOCATE(QJPENTT(NQJPM))  
      ALLOCATE(QMORPH(LCM))  
      ALLOCATE(QQ(LCM,0:KCM))  
      ALLOCATE(QQ1(LCM,0:KCM))  
      ALLOCATE(QQ2(LCM,0:KCM))  
      ALLOCATE(QQSQR(LCM,0:KCM))  
      ALLOCATE(QQCJP(NQJPM))  
      ALLOCATE(QQI(LCM))  
      ALLOCATE(QQL(LCM,0:KCM))  
      ALLOCATE(QQL1(LCM,0:KCM))  
      ALLOCATE(QQL2(LCM,0:KCM))  
      !ALLOCATE(QQVSE(LCM))        ! PMC - NOT USED
      ALLOCATE(QQWC(LCM))  
      ALLOCATE(QQWCR(LCM))  
      ALLOCATE(QQWV1(LCM))  
      ALLOCATE(QQWV2(LCM))  
      ALLOCATE(QQWV3(LCM))  
      ALLOCATE(QRAIN(LCM))  
      ALLOCATE(QSBDLDIN(LCM,NSNM))  
      ALLOCATE(QSBDLDOT(LCM,NSNM))  
      ALLOCATE(QSBDLDP(LCM))  
      ALLOCATE(QSBDLDX(LCM,NSNM))  
      ALLOCATE(QSBDLDY(LCM,NSNM))  
      ALLOCATE(QSBDTOP(LCM))  
      ALLOCATE(QSEDBED(LCM,KBM,NSTM))  
      ALLOCATE(QSEDBED1(LCM,KBM,NSTM))  
C
      RETURN  
      END