SUBROUTINE VARALLOC5

      USE GLOBAL  
C  
      ALLOCATE(QSEDBEDA(LCM,NSTM))  
      ALLOCATE(QSEDBEDA1(LCM,NSTM))  
      ALLOCATE(QSER(NDQSER,KCM,NQSERM))  
      ALLOCATE(QSERT(KCM,0:NQSERM))  
      ALLOCATE(QSERCELL(KCM,0:NQSIJM))  
      ALLOCATE(QSRTLPN(KCM,NQSERM))  
      ALLOCATE(QSRTLPP(KCM,NQSERM))  
      ALLOCATE(QSS(KCM,NQSIJM))  
      ALLOCATE(QSSDPA(LCM))  
      ALLOCATE(QSUM(LCM,KCM))  
      ALLOCATE(QSUME(LCM))  
      ALLOCATE(QSUMELPF(LCM))  
      !ALLOCATE(QSUMELPN(LCM))       ! PMC - NOT USED
      !ALLOCATE(QSUMELPP(LCM))       ! PMC - NOT USED
      !ALLOCATE(QSUMEN(LCM))         ! PMC - NOT USED
      ALLOCATE(QSUM1E(LCM))  
      ALLOCATE(QSUMLPF(LCM,KCM))  
      !ALLOCATE(QSUMLPN(LCM,KCM))    ! PMC - NOT USED
      !ALLOCATE(QSUMLPP(LCM,KCM))    ! PMC - NOT USED
      !ALLOCATE(QSUMN(LCM,KCM))      ! PMC - NOT USED
      !ALLOCATE(QSUMP(LCM,KCM))      ! PMC - NOT USED
      ALLOCATE(QWATPA(LCM))  
      ALLOCATE(QWBDTOP(LCM))  
      ALLOCATE(QWR(NQWRM))  
      ALLOCATE(QWRCJP(NQJPM))  
      ALLOCATE(QWRSER(NDQWRSR,NQWRSRM))  
      ALLOCATE(QWRSERT(0:NQWRSRM))  
      ALLOCATE(QWRSERTLP(0:NQWRSRM))  
      ALLOCATE(QWTRBED(LCM,0:KBM))  
      ALLOCATE(QWTRBED1(LCM,0:KBM))  
      ALLOCATE(QWTRBEDA(LCM))  
      ALLOCATE(QWTRBEDA1(LCM))  
      !ALLOCATE(QXXSUM(LCM))     ! PMC - NOT USED
      !ALLOCATE(QYYSUM(LCM))     ! PMC - NOT USED
      !ALLOCATE(RA4(LCM))        ! PMC - NOT USED
      ALLOCATE(RAIN(NDASER,NASERM))  
      ALLOCATE(RAINLPF(LCM))  
      ALLOCATE(RAINT(LCM))  
      ALLOCATE(RBPSBL(LCM))  
      ALLOCATE(RCG(LCM))  
      ALLOCATE(RCOSMICX(LCM,KCM))  
      ALLOCATE(RCOSMICXN(LCM,KCM))  
      ALLOCATE(RCOSMICXP(LCM,KCM))  
      ALLOCATE(RCOSMICY(LCM,KCM))  
      ALLOCATE(RCOSMICYN(LCM,KCM))  
      ALLOCATE(RCOSMICYP(LCM,KCM))  
      ALLOCATE(RCOSMICZ(LCM,0:KCM))  
      ALLOCATE(RCOSMICZN(LCM,0:KCM))  
      ALLOCATE(RCOSMICZP(LCM,0:KCM))  
      ALLOCATE(RCX(LCM))  
      ALLOCATE(RCY(LCM))  
      ALLOCATE(RDLPSQ(0:NVEGTPM))  
      ALLOCATE(REAC(NWQZM))  
      ALLOCATE(RESPSUM(LCMWQ,KCM,4))  
      ALLOCATE(RHA(LCM))  
      ALLOCATE(RHS(MGM))  
      ALLOCATE(RI(NPDM))  
      ALLOCATE(RIFTR(LCM))  
      ALLOCATE(RINFLPF(LCM))  
      ALLOCATE(RJ(NPDM))  
      ALLOCATE(RK(NPDM))  
      ALLOCATE(RKASUM(LCMWQ,KCM))  
      ALLOCATE(RKTOXB(NTXM))  
      ALLOCATE(RKTOXP(NTXM))  
      ALLOCATE(RKTOXW(NTXM))  
      ALLOCATE(RLIGHTC(LCMWQ,KCM))  
      ALLOCATE(RLIGHTT(LCMWQ,KCM))  
      ALLOCATE(RMAJ(MTM))  
      ALLOCATE(RMIN(MTM))  
      ALLOCATE(RMOLTX(NTXM))  
      ALLOCATE(RNH4NO3(LCM))  
      ALLOCATE(RNH4WQ(LCM))  
      ALLOCATE(RNO3WQ(LCM))  
      ALLOCATE(RNULL(LCM))       ! PMC - NOT USED 
      ALLOCATE(ROUSE(LCM))  
      ALLOCATE(RQCMUL(NQCTLM))  
      ALLOCATE(RQSMUL(NQSIJM))  
      ALLOCATE(RRHS(LCM,KBM+1))  
      !ALLOCATE(RSDB(LCM))       ! PMC - NOT USED
      !ALLOCATE(RSDR(LCM))       ! PMC - NOT USED
      !ALLOCATE(RSDZ(LCM,KCM))   ! PMC - NOT USED 
      ALLOCATE(RSEDERE2T(NSCM))  
      ALLOCATE(RSEDERE2TB(NSCM))  
      ALLOCATE(RSEDERE2TW(NSCM))  
      ALLOCATE(RSEDERO2T(NSCM))  
      ALLOCATE(RSEDERO2TB(NSCM))  
      ALLOCATE(RSEDERO2TW(NSCM))  
      ALLOCATE(RSNDERE2T(NSNM))  
      ALLOCATE(RSNDERE2TB(NSNM))  
      ALLOCATE(RSNDERE2TW(NSNM))  
      ALLOCATE(RSNDERO2T(NSNM))  
      ALLOCATE(RSNDERO2TB(NSNM))  
      ALLOCATE(RSNDERO2TW(NSNM))  
      ALLOCATE(RSNDM(NSTM))
      ALLOCATE(RSOL(MGM))  
      ALLOCATE(RSSBCE(LCM))  
      ALLOCATE(RSSBCN(LCM))  
      ALLOCATE(RSSBCS(LCM))  
      ALLOCATE(RSSBCW(LCM))  
      !ALLOCATE(RTMP(LCM))      ! PMC - NOT USED
      !ALLOCATE(RTMP1(LCM))     ! PMC - NOT USED
      ALLOCATE(RTOXERE2T(NTXM))  
      ALLOCATE(RTOXERE2TB(NTXM))  
      ALLOCATE(RTOXERE2TW(NTXM))  
      ALLOCATE(RTOXERO2T(NTXM))  
      ALLOCATE(RTOXERO2TB(NTXM))  
      ALLOCATE(RTOXERO2TW(NTXM))  
      ALLOCATE(RTXBSDB(LCM,KBM,NSTM+2,NTXM))  
      ALLOCATE(SAAX(0:LCM))  
      ALLOCATE(SAAY(0:LCM))  
      ALLOCATE(SADWQMAX(LCMWQ,KCM))  
      ALLOCATE(SADWQMIN(LCMWQ,KCM))  
      ALLOCATE(SADWQSUM(LCMWQ,KCM))  
      ALLOCATE(SAL(LCM,KCM))  
      ALLOCATE(SAL1(LCM,KCM))  
      ALLOCATE(SALAD(KCM,1))  
      ALLOCATE(SALINIT(LCM,KCM))  
      ALLOCATE(SALLPF(LCM,KCM))  
      ALLOCATE(SALMN(LCMWQ,KCM))  
      ALLOCATE(SALMX(LCMWQ,KCM))  
      ALLOCATE(SALSUM(LCMWQ,KCM))  
      ALLOCATE(SBLOUT2T(NSNM))  
      ALLOCATE(SBLOUT2TB(NSNM))  
      ALLOCATE(SBLOUT2TW(NSNM))  
      ALLOCATE(SBX(0:LCM))  
      ALLOCATE(SBXO(0:LCM))  
      ALLOCATE(SBY(0:LCM))  
      ALLOCATE(SBYO(0:LCM))  
      ALLOCATE(SCAX(0:LCM))  
      ALLOCATE(SCAY(0:LCM))  
      ALLOCATE(SCB(0:LCM))  
      ALLOCATE(SCLSHA(MTM,MTM))  
      ALLOCATE(SCVEG(0:NVEGTPM))  
      ALLOCATE(SDBLV(NSTM))  
      ALLOCATE(SDEN(NSTM))  
      ALLOCATE(SDX(0:LCM))  
      ALLOCATE(SDY(0:LCM))  
      ALLOCATE(SED(LCM,KCM,NSCM))  
      ALLOCATE(SED1(LCM,KCM,NSCM))  
      ALLOCATE(SED3DMAX(NSCM))  
      ALLOCATE(SED3DMIN(NSCM))  
      ALLOCATE(SEDA(NSCM))  
      ALLOCATE(SEDAD(KCM,NSCM,1))  
      ALLOCATE(SEDB(LCM,KBM,NSCM))  
      ALLOCATE(SEDB1(LCM,KBM,NSCM))  
      ALLOCATE(SEDBA(LCM,NSCM))  
      ALLOCATE(SEDBA1(LCM,NSCM))  
      ALLOCATE(SEDBALL(LCM,KBM))  
      ALLOCATE(SEDBAT(LCM))  
      ALLOCATE(SEDBEG2T(NSCM))  
      ALLOCATE(SEDBEG2TB(NSCM))  
      ALLOCATE(SEDBEG2TW(NSCM))  
      ALLOCATE(SEDBINIT(LCM,KBM,NSCM))   ! PMC - WASTE OF MEMORY 
      ALLOCATE(SEDBLPF(LCM,KBM,NSCM))    ! PMC - MOVE TO CALMMT
      ALLOCATE(SEDBMO2T(NSCM))  
      ALLOCATE(SEDBMO2TB(NSCM))  
      ALLOCATE(SEDBMO2TW(NSCM))  
      ALLOCATE(SEDBO(NSTM))  
      ALLOCATE(SEDBS(LCM,KBM,NSCM))  
      ALLOCATE(SEDBT(LCM,KBM))  
      ALLOCATE(SEDBTLPF(LCM,KBM))  
      ALLOCATE(SEDDIA(NSTM))  
      ALLOCATE(SEDDIA50(LCM,KBM))  
      ALLOCATE(SEDEND2T(NSCM))  
      ALLOCATE(SEDEND2TB(NSCM))  
      ALLOCATE(SEDEND2TW(NSCM))  
      ALLOCATE(SEDERE2T(NSCM))  
      ALLOCATE(SEDERE2TB(NSCM))  
      ALLOCATE(SEDERE2TW(NSCM))  
      ALLOCATE(SEDERO2T(NSCM))  
      ALLOCATE(SEDERO2TB(NSCM))  
      ALLOCATE(SEDERO2TW(NSCM))  
      ALLOCATE(SEDERR2T(NSCM))  
      ALLOCATE(SEDERR2TB(NSCM))  
      ALLOCATE(SEDERR2TW(NSCM))  
      ALLOCATE(SEDF(LCM,0:KCM,NSCM))  
      ALLOCATE(SEDFDTAN(LCM,NSCM))  
      ALLOCATE(SEDFDTAP(LCM,NSCM))  
      ALLOCATE(SEDFLUX2T(NSCM))  
      ALLOCATE(SEDFPA(LCM,NSCM))  
      ALLOCATE(SEDINIT(LCM,KCM,NSCM))     ! PMC - WASTE OF MEMORY
      ALLOCATE(SEDLPF(LCM,KCM,NSCM))    
      ALLOCATE(SEDN(NSTM))  
      ALLOCATE(SEDO(NSTM))  
      ALLOCATE(SEDOUT2T(NSCM))  
      ALLOCATE(SEDOUT2TB(NSCM))  
      ALLOCATE(SEDOUT2TW(NSCM))  
      ALLOCATE(SEDPHI(NSTM))  
      ALLOCATE(SEDS(LCM,KCM,NSCM))  
      ALLOCATE(SEDT(LCM,KCM))  
      ALLOCATE(SEDTLPF(LCM,KCM))  
      ALLOCATE(SELSUM(LCM))  
      ALLOCATE(SEXP(NSTM))  
      ALLOCATE(SFL(LCM,KCM))  
      ALLOCATE(SFL2(LCM,KCM))  
      ALLOCATE(SFLAD(KCM,1))  
      ALLOCATE(SFLINIT(LCM,KCM))  
      ALLOCATE(SFLLPF(LCM,KCM))  
      ALLOCATE(SFLSBOT(LCM))  
      ALLOCATE(SGSM1(LCM,KBM))  
      ALLOCATE(SIGPHI(LCM,KBM))  
      ALLOCATE(SIGPHIA(LCM))  
      ALLOCATE(SKTOXP(NTXM))  
      ALLOCATE(SLSHA(MTM))  
      ALLOCATE(SM1DIFT(NSMZM))  
      ALLOCATE(SM1H2S(LCMWQ))  
      ALLOCATE(SM1NH4(LCMWQ))  
      ALLOCATE(SM1NO3(LCMWQ))  
      ALLOCATE(SM1PO4(LCMWQ))  
      ALLOCATE(SM1SI(LCMWQ))  
      ALLOCATE(SM2DIFT(NSMZM))  
      ALLOCATE(SM2H2S(LCMWQ))  
      ALLOCATE(SM2NH4(LCMWQ))  
      ALLOCATE(SM2NO3(LCMWQ))  
      ALLOCATE(SM2PO4(LCMWQ))  
      ALLOCATE(SM2SI(LCMWQ))  
      ALLOCATE(SMAC(LCM))  
      ALLOCATE(SMBST(LCMWQ))  
      ALLOCATE(SMCSOD(LCMWQ))  
      ALLOCATE(SMD1PO4(LCMWQ))  
      ALLOCATE(SMD1SI(LCMWQ))  
      ALLOCATE(SMDD(NSMZM))  
      ALLOCATE(SMDFC(LCMWQ,NSMGM))  
      ALLOCATE(SMDFN(LCMWQ,NSMGM))  
      ALLOCATE(SMDFP(LCMWQ,NSMGM))  
      ALLOCATE(SMDFSI(LCMWQ))  
      ALLOCATE(SMDGFC(LCMWQ))  
      ALLOCATE(SMDGFN(LCMWQ))  
      ALLOCATE(SMDGFP(LCMWQ))  
      ALLOCATE(SMDP(NSMZM))  
      ALLOCATE(SMDP1PO4(NSMZM))  
      ALLOCATE(SMDPMIN(NSMZM))  
      ALLOCATE(SMDTOH(NSMZM))  
      ALLOCATE(SMFCBC(NSMGM))  
      ALLOCATE(SMFCBD(NSMGM))  
      ALLOCATE(SMFCBG(NSMGM))  
      ALLOCATE(SMFCR(NSMZM,NSMGM))  
      ALLOCATE(SMFNBC(NSMGM))  
      ALLOCATE(SMFNBD(NSMGM))  
      ALLOCATE(SMFNBG(NSMGM))  
      ALLOCATE(SMFNR(NSMZM,NSMGM))  
      ALLOCATE(SMFPBC(NSMGM))  
      ALLOCATE(SMFPBD(NSMGM))  
C
      RETURN  
      END