SUBROUTINE VARALLOC6

      USE GLOBAL  
C  
      ALLOCATE(SMFPBG(NSMGM))  
      ALLOCATE(SMFPR(NSMZM,NSMGM))  
      ALLOCATE(SMHODT(NSMZM))  
      ALLOCATE(SMHSED(NSMZM))  
      ALLOCATE(SMHYST(LCMWQ))  
      ALLOCATE(SMJAQH2S(LCMWQ))  
      ALLOCATE(SMJDEN(LCMWQ))  
      ALLOCATE(SMJGCH4(LCMWQ))  
      ALLOCATE(SMJNIT(LCMWQ))  
      ALLOCATE(SMK1H2S(NWQTDM))  
      ALLOCATE(SMK1NO3(NSMZM))  
      ALLOCATE(SMK2NO3(NSMZM))  
      ALLOCATE(SMKL12(LCM))  
      ALLOCATE(SMKNH4(NSMZM))  
      ALLOCATE(SMNSOD(LCMWQ))  
      ALLOCATE(SMPOC(LCMWQ,NSMGM))  
      ALLOCATE(SMPON(LCMWQ,NSMGM))  
      ALLOCATE(SMPOP(LCMWQ,NSMGM))  
      ALLOCATE(SMPSI(LCMWQ))  
      ALLOCATE(SMSS(LCMWQ))  
      ALLOCATE(SMT(LCMWQ))  
      ALLOCATE(SMTD1CH4(NWQTDM))  
      ALLOCATE(SMTD2CH4(NWQTDM))  
      ALLOCATE(SMTDCD(NWQTDM,NSMGM))  
      ALLOCATE(SMTDDD(NWQTDM))  
      ALLOCATE(SMTDDP(NWQTDM))  
      ALLOCATE(SMTDND(NWQTDM,NSMGM))  
      ALLOCATE(SMTDNH4(NWQTDM))  
      ALLOCATE(SMTDNO3(NWQTDM))  
      ALLOCATE(SMTDPD(NWQTDM,NSMGM))  
      ALLOCATE(SMTDSI(NWQTDM))  
      ALLOCATE(SMTMP(LCM))  
      ALLOCATE(SMTSNAME(NSMTSM))  
      ALLOCATE(SMW12(LCM))  
      ALLOCATE(SMW2(NSMZM))  
      ALLOCATE(SMW2DTOH(NSMZM))  
      ALLOCATE(SMW2PHODT(NSMZM))  
      ALLOCATE(SNAPSHOTS(5000))  ! *** PMC - Hardwired for now
      ALLOCATE(SND(LCM,KCM,NSNM))  
      ALLOCATE(SND1(LCM,KCM,NSNM))  
      ALLOCATE(SND3DMAX(NSNM))  
      ALLOCATE(SND3DMIN(NSNM))  
      ALLOCATE(SNDA(NSNM))  
      ALLOCATE(SNDAD(KCM,NSNM,1))  
      ALLOCATE(SNDB(LCM,KBM,NSNM))  
      ALLOCATE(SNDB1(LCM,KBM,NSNM))  
      ALLOCATE(SNDBA(LCM,NSNM))  
      ALLOCATE(SNDBA1(LCM,NSNM))  
      ALLOCATE(SNDBAT(LCM))  
      ALLOCATE(SNDBEG2T(NSNM))  
      ALLOCATE(SNDBEG2TB(NSNM))  
      ALLOCATE(SNDBEG2TW(NSNM))  
      ALLOCATE(SNDBINIT(LCM,KBM,NSNM))  
      ALLOCATE(SNDBLPF(LCM,KBM,NSNM))  
      ALLOCATE(SNDBMO2T(NSNM))  
      ALLOCATE(SNDBMO2TB(NSNM))  
      ALLOCATE(SNDBMO2TW(NSNM))  
      ALLOCATE(SNDBS(LCM,KBM,NSNM))  
      ALLOCATE(SNDBT(LCM,KBM))  
      ALLOCATE(SNDBTLPF(LCM,KBM))  
      ALLOCATE(SNDEND2T(NSNM))  
      ALLOCATE(SNDEND2TB(NSNM))  
      ALLOCATE(SNDEND2TW(NSNM))  
      ALLOCATE(SNDEQ(LCM))  
      ALLOCATE(SNDEQSAV(LCM,NSNM))
      ALLOCATE(SNDEQB(LCM))  
      ALLOCATE(SNDERE2T(NSNM))  
      ALLOCATE(SNDERE2TB(NSNM))  
      ALLOCATE(SNDERE2TW(NSNM))  
      ALLOCATE(SNDERO2T(NSNM))  
      ALLOCATE(SNDERO2TB(NSNM))  
      ALLOCATE(SNDERO2TW(NSNM))  
      ALLOCATE(SNDERR2T(NSNM))  
      ALLOCATE(SNDERR2TB(NSNM))  
      ALLOCATE(SNDERR2TW(NSNM))  
      ALLOCATE(SNDF(LCM,0:KCM,NSNM))  
      ALLOCATE(SNDFBL(LCM,NSNM))  
      ALLOCATE(SNDFBL2T(NSNM))  
      ALLOCATE(SNDFDTAN(LCM,NSNM))  
      ALLOCATE(SNDFDTAP(LCM,NSNM))  
      ALLOCATE(SNDFLUX2T(NSNM))  
      ALLOCATE(SNDFPA(LCM,NSNM))  
      ALLOCATE(SNDINIT(LCM,KCM,NSNM))  
      ALLOCATE(SNDLPF(LCM,KCM,NSNM))  
      ALLOCATE(SNDOUT2T(NSNM))  
      ALLOCATE(SNDOUT2TB(NSNM))  
      ALLOCATE(SNDOUT2TW(NSNM))  
      ALLOCATE(SNDS(LCM,KCM,NSNM))  
      ALLOCATE(SNDT(LCM,KCM))  
      ALLOCATE(SNDTLPF(LCM,KCM))  
      ALLOCATE(SNLPX(LCM))  
      ALLOCATE(SNLPY(LCM))  
      ALLOCATE(SODMULT(NSMZM))  
      ALLOCATE(SODSUM(LCMWQ,KCM))  
      ALLOCATE(SOLFRD(NDASER))  
      ALLOCATE(SOLSRD(NDASER))  
      ALLOCATE(SOLSWR(NDASER,NASERM))  
      ALLOCATE(SOLSWRT(LCM))  
      ALLOCATE(SPB(0:LCM))  
      ALLOCATE(SPBE1(NPBEM))  
      ALLOCATE(SPBE2(NPBEM))  
      ALLOCATE(SPBN1(NPBNM))  
      ALLOCATE(SPBN2(NPBNM))  
      ALLOCATE(SPBS1(NPBSM))  
      ALLOCATE(SPBS2(NPBSM))  
      ALLOCATE(SPBW1(NPBWM))  
      ALLOCATE(SPBW2(NPBWM))  
      ALLOCATE(SPFAM0(NPFORM,MTM))  
      ALLOCATE(SPFAM1(NPFORM,MTM))  
      ALLOCATE(SPFAM2(NPFORM,MTM))  
      ALLOCATE(SSG(NSTM))  
      ALLOCATE(SSLSHA(MTM,MTM))  
      ALLOCATE(SSSIN(MTM))  
      ALLOCATE(SSSIN1(MTM))  
      ALLOCATE(SSSS(MTM))  
      ALLOCATE(STBX(LCM))  
      ALLOCATE(STBXO(LCM))  
      ALLOCATE(STBY(LCM))  
      ALLOCATE(STBYO(LCM))  
      ALLOCATE(STCAP(LCM))  
      ALLOCATE(STCUV(LCM))  
      ALLOCATE(STDOCB(LCM,KBM))  
      ALLOCATE(STDOCW(LCM,KCM))  
      ALLOCATE(STFPOCB(LCM,KBM,NSTM))  
      ALLOCATE(STFPOCW(LCM,KCM,NSTM))  
      ALLOCATE(STLSHA(MTM))  
      ALLOCATE(STPOCB(LCM,KBM))  
      ALLOCATE(STPOCW(LCM,KCM))  
      ALLOCATE(STRESSS(0:KSM))  
      ALLOCATE(STRSE(LCM,KBM))  
      ALLOCATE(STRSEM(LCM,KBM))  
      ALLOCATE(STRST(LCM,KBM))  
      ALLOCATE(SUB(0:LCM))  
      ALLOCATE(SUBO(0:LCM))  
      ALLOCATE(SURFDX(NXYSDATM,LCM))  
      ALLOCATE(SURFDY(NXYSDATM,LCM))  
      ALLOCATE(SVB(0:LCM))  
      ALLOCATE(SVBO(0:LCM))  
      ALLOCATE(SVPA(0:LCM))  
      ALLOCATE(SWB(0:LCM))  
      ALLOCATE(SWQ(LCMWQ))  
      ALLOCATE(SWQSUM(LCMWQ,KCM))  
      ALLOCATE(SYMBOL(MTM))  
      ALLOCATE(TAASER(NASERM))  
      ALLOCATE(TACSER(NCSERM,NSTVM))  
      ALLOCATE(TAD(KCM,1))  
      ALLOCATE(TADFLUX(LCM,NTXM))  
      ALLOCATE(TADFLUX2T(NTXM))  
      ALLOCATE(TAGWSER(NQSERM))  
      ALLOCATE(TAPSER(NPSERM))  
      ALLOCATE(TAQSER(NQSERM))  
      ALLOCATE(TAQWRSR(NQWRSRM))  
      ALLOCATE(TASER(NDASER,NASERM))  
      ALLOCATE(TATMT(LCM))  
      ALLOCATE(TAUB(LCM))  
      ALLOCATE(TAUBSED(LCM))  
      ALLOCATE(TAUBSND(LCM))  
      ALLOCATE(TAUCRCOH(LCM,KBM))  
      ALLOCATE(TAUD(NSTM))  
      ALLOCATE(TAUN(NSTM))  
      ALLOCATE(TAUR(NSTM))  
      ALLOCATE(TAURB(LCM,KBM))  
      ALLOCATE(TAURBA(LCM))  
      ALLOCATE(TAURS(LCM,KBM))  
      ALLOCATE(TAURSA(LCM))  
      ALLOCATE(TAVEGSER(NVEGSERM))  
      !ALLOCATE(TAWQCSR(NWQCSRM,NWQVM))  
C     ALLOCATE(TAWQPSR(NWQPSRM))  
      ALLOCATE(TAWSER(NWSERM))  
      ALLOCATE(TBX(LCM))  
      ALLOCATE(TBX1(LCM))  
      ALLOCATE(TBY(LCM))  
      ALLOCATE(TBY1(LCM))  
      ALLOCATE(TCASER(NASERM))  
      ALLOCATE(TCCSER(NCSERM,NSTVM))  
      ALLOCATE(TCGWSER(NQSERM))  
      ALLOCATE(TCNBED(LCM,KBM))  
      ALLOCATE(TCNBEDA(LCM))  
      ALLOCATE(TCP(MTM))  
      ALLOCATE(TCPSER(NPSERM))  
      ALLOCATE(TCQSER(NQSERM))  
      ALLOCATE(TCQWRSR(NQWRSRM))  
      ALLOCATE(TCSER(NDCSER,NCSERM,NSTVM))  
      ALLOCATE(TCSHIELDS(NSTM))  
      ALLOCATE(TCVEGSER(NVEGSERM))  
      !ALLOCATE(TCWQCSR(NWQCSRM,NWQVM))  
      ALLOCATE(TCWQPSR(NWQPSRM))
      ALLOCATE(TCWSER(NWSERM))  
      ALLOCATE(TDRY(NDASER,NASERM))  
      ALLOCATE(TEM(LCM,KCM))  
      ALLOCATE(TEM1(LCM,KCM))  
      ALLOCATE(TEMAD(KCM,1))  
      ALLOCATE(TEMB(LCM))  
      ALLOCATE(TEMB1(LCM))  
      ALLOCATE(TEMINIT(LCM,KCM))  
      ALLOCATE(TEMLPF(LCM,KCM))  
      ALLOCATE(TEMSUM(LCMWQ,KCM))  
      ALLOCATE(TEXP(NSTM))  
      ALLOCATE(TGWSER(NDGWSER,NGWSERM))  
      ALLOCATE(THJET(NQJPM))  
      ALLOCATE(TIMVSFP(MTVSM))  
      ALLOCATE(TKTOXW(NTXM))  
      ALLOCATE(TMP3D(KCM))  
      ALLOCATE(TOX(LCM,KCM,NTXM))  
      ALLOCATE(TOX1(LCM,KCM,NTXM))  
      ALLOCATE(TOX3DMAX(NTXM))  
      ALLOCATE(TOX3DMIN(NTXM))  
      ALLOCATE(TOXA(NTXM))  
      ALLOCATE(TOXAD(KCM,NTXM,1))  
      ALLOCATE(TOXB(LCM,KBM,NTXM))  
      ALLOCATE(TOXB1(LCM,KBM,NTXM))  
      ALLOCATE(TOXBA(LCM,NTXM))  
      ALLOCATE(TOXBA1(LCM,NTXM))  
      ALLOCATE(TOXBBALN(LCM))  
      ALLOCATE(TOXBBALO(LCM))  
      ALLOCATE(TOXBEG2T(NTXM))  
      ALLOCATE(TOXBEG2TB(NTXM))  
      ALLOCATE(TOXBEG2TW(NTXM))  
      ALLOCATE(TOXBINIT(LCM,KBM,NTXM))  
      ALLOCATE(TOXBLB(NTXM))  
      ALLOCATE(TOXBLB2T(NTXM))  
      ALLOCATE(TOXBLPF(LCM,KBM,NTXM))  
      ALLOCATE(TOXBMO2T(NTXM))  
      ALLOCATE(TOXBMO2TB(NTXM))  
      ALLOCATE(TOXBMO2TW(NTXM))  
      ALLOCATE(TOXBS(LCM,KBM,NTXM))  
      ALLOCATE(TOXCDFB(LCM,KBM,NTXM))  
      ALLOCATE(TOXCDFW(LCM,KCM,NTXM))  
      ALLOCATE(TOXEND2T(NTXM))  
      ALLOCATE(TOXEND2TB(NTXM))  
      ALLOCATE(TOXEND2TW(NTXM))  
      ALLOCATE(TOXERE2T(NTXM))  
      ALLOCATE(TOXERE2TB(NTXM))  
      ALLOCATE(TOXERE2TW(NTXM))  
      ALLOCATE(TOXERO2T(NTXM))  
      ALLOCATE(TOXERO2TB(NTXM))  
      ALLOCATE(TOXERO2TW(NTXM))  
      ALLOCATE(TOXERR2T(NTXM))  
      ALLOCATE(TOXERR2TB(NTXM))  
      ALLOCATE(TOXERR2TW(NTXM))  
      ALLOCATE(TOXF(LCM,0:KCM,NTXM))  
      ALLOCATE(TOXFB(LCM,KBM,NTXM))  
      ALLOCATE(TOXFBA(LCM,NTXM))  
C
      RETURN  
      END