SUBROUTINE VARALLOC2 USE GLOBAL C ALLOCATE(CUE(LCM)) ALLOCATE(CUN(LCM)) ALLOCATE(CUPP(LCM,KBM+1)) ALLOCATE(CUU(LCM)) ALLOCATE(CVDISPT(KCM,LCM)) ALLOCATE(CVE(LCM)) ALLOCATE(CVN(LCM)) ALLOCATE(CVV(LCM)) ALLOCATE(CW(LCM)) !ALLOCATE(CWB(LCM)) ! PMC - NOT USED ALLOCATE(CWQ(LCM,KCM)) ALLOCATE(CWQ2(LCM,KCM)) ALLOCATE(CWQLOE(NBBEM,KCM,NWQVM)) ALLOCATE(CWQLON(NBBNM,KCM,NWQVM)) ALLOCATE(CWQLOS(NBBSM,KCM,NWQVM)) ALLOCATE(CWQLOW(NBBWM,KCM,NWQVM)) !ALLOCATE(CWR(LCM)) ! PMC - NOT USED ALLOCATE(CWRCJP(NQJPM,NSTVM)) ALLOCATE(CYASUM(LCMWQ,KCM)) ALLOCATE(DDOMAX(LCMWQ,KCM)) ALLOCATE(DDOMIN(LCMWQ,KCM)) ALLOCATE(DEPSUM(LCM)) ALLOCATE(DERRB(KBM)) ALLOCATE(DIASUM(LCMWQ,KCM)) ALLOCATE(DIFTOX(NTXM)) ALLOCATE(DIFTOXS(NTXM)) ALLOCATE(DJET(NQJPM)) ALLOCATE(DJPER(NQJPM)) ALLOCATE(DLAT(LCM)) ALLOCATE(DLON(LCM)) ALLOCATE(DML(LCM,0:KCM)) ALLOCATE(DMVSFP(MDVSM)) ALLOCATE(DOOSUM(LCMWQ,KCM)) ALLOCATE(DOSSUM(LCMWQ,KCM)) ALLOCATE(DPDIFTOX(NTXM)) ALLOCATE(DSTRSE(LCM,KBM)) ALLOCATE(DTAUC(NTSM)) ALLOCATE(DU(LCM,KCM)) ALLOCATE(DV(LCM,KCM)) ALLOCATE(DXDJ(LCM)) ALLOCATE(DXFP(LCM)) ALLOCATE(DXIU(LCM)) ALLOCATE(DXIV(LCM)) ALLOCATE(DXP(LCM)) ALLOCATE(DXU(LCM)) ALLOCATE(DXU1(LCM,KCM)) ALLOCATE(DXV(LCM)) ALLOCATE(DXV1(LCM,KCM)) ALLOCATE(DXXTCA(LCM)) ALLOCATE(DXYIP(LCM)) ALLOCATE(DXYIU(LCM)) ALLOCATE(DXYIV(LCM)) ALLOCATE(DXYP(LCM)) ALLOCATE(DXYTCA(LCM)) ALLOCATE(DXYU(LCM)) ALLOCATE(DXYV(LCM)) ALLOCATE(DYDI(LCM)) ALLOCATE(DYE(LCM,KCM)) ALLOCATE(DYE1(LCM,KCM)) ALLOCATE(DYEAD(KCM,1)) ALLOCATE(DYEINIT(LCM,KCM)) ALLOCATE(DYELPF(LCM,KCM)) ALLOCATE(DYFP(LCM)) ALLOCATE(DYIU(LCM)) ALLOCATE(DYIV(LCM)) ALLOCATE(DYP(LCM)) ALLOCATE(DYU(LCM)) ALLOCATE(DYU1(LCM,KCM)) ALLOCATE(DYV(LCM)) ALLOCATE(DYV1(LCM,KCM)) ALLOCATE(DYXTCA(LCM)) ALLOCATE(DYYTCA(LCM)) ALLOCATE(DZBTR(LCM,KBM)) ALLOCATE(DZBTR1(LCM,KBM)) ALLOCATE(DZC(KCM)) ALLOCATE(DZG(KCM)) ALLOCATE(DZIC(0:KCM)) ALLOCATE(DZIG(0:KCM)) ALLOCATE(DZIGSD4(KCM)) ALLOCATE(DZSUM(LCMWQ,KCM)) ALLOCATE(DZWQ(LCMWQ)) ALLOCATE(EHXYS(NXYSDATM,LCM)) ALLOCATE(ETAUC(NTSM)) ALLOCATE(EVAP(NDASER,NASERM)) ALLOCATE(EVAPGW(LCM)) ALLOCATE(EVAPSW(LCM)) ALLOCATE(EVAPT(LCM)) ALLOCATE(EVPGLPF(LCM)) ALLOCATE(EVPSLPF(LCM)) ALLOCATE(FACBEDL(LCM)) ALLOCATE(FACSUSL(LCM)) ALLOCATE(FBBX(LCM,KCM)) ALLOCATE(FBBY(LCM,KCM)) ALLOCATE(FBODYFX(LCM)) ALLOCATE(FBODYFY(LCM)) ALLOCATE(FCAX(LCM,KCM)) ALLOCATE(FCAX1(LCM,KCM)) ALLOCATE(FCAX1E(LCM)) ALLOCATE(FCAXE(LCM)) ALLOCATE(FCAY(LCM,KCM)) ALLOCATE(FCAY1(LCM,KCM)) ALLOCATE(FCAY1E(LCM)) ALLOCATE(FCAYE(LCM)) ALLOCATE(FCORC(LCM)) ! *** FOODCHAIN MODELLING OPTIONS IF(ISTPOCB.EQ.4)THEN ALLOCATE(PFPOCB(LCM,KBM)) ALLOCATE(FPOCB(LCM,KBM)) ELSE ALLOCATE(PFPOCB(1,1)) ALLOCATE(FPOCB(1,1)) ENDIF ALLOCATE(FMDUX(LCM,KCM)) ALLOCATE(FMDUY(LCM,KCM)) ALLOCATE(FMDVX(LCM,KCM)) ALLOCATE(FMDVY(LCM,KCM)) ALLOCATE(FNAVB(MLTMSRM)) ALLOCATE(FNAVV(MLTMSRM)) ALLOCATE(FNBED(MLTMSRM)) ALLOCATE(FNDOX(MLTMSRM)) ALLOCATE(FNDTBC(NTXM)) ALLOCATE(FNDTBF(NTXM)) ALLOCATE(FNDTBP(NTXM)) ALLOCATE(FNDTBT(NTXM)) ALLOCATE(FNDTWC(NTXM)) ALLOCATE(FNDTWF(NTXM)) ALLOCATE(FNDTWP(NTXM)) ALLOCATE(FNDTWT(NTXM)) ALLOCATE(FNDYE(MLTMSRM)) ALLOCATE(FNNHX(MLTMSRM)) ALLOCATE(FNQ3D(MLTMSRM)) ALLOCATE(FNQQE(MLTMSRM)) ALLOCATE(FNSAL(MLTMSRM)) ALLOCATE(FNSBL(MLTMSRM,NSNM)) ALLOCATE(FNSED(MLTMSRM)) ALLOCATE(FNSEL(MLTMSRM)) ALLOCATE(FNSFL(MLTMSRM)) ALLOCATE(FNSND(MLTMSRM,NSNM)) ALLOCATE(FNTEM(MLTMSRM)) ALLOCATE(FNTOC(MLTMSRM)) ALLOCATE(FNTOX(MLTMSRM,NTXM)) ALLOCATE(FNTXBC(MLTMSRM,NTXM)) ALLOCATE(FNTXBF(MLTMSRM,NTXM)) ALLOCATE(FNTXBP(MLTMSRM,NTXM)) ALLOCATE(FNTXBT(MLTMSRM,NTXM)) ALLOCATE(FNTXWC(MLTMSRM,NTXM)) ALLOCATE(FNTXWF(MLTMSRM,NTXM)) ALLOCATE(FNTXWP(MLTMSRM,NTXM)) ALLOCATE(FNTXWT(MLTMSRM,NTXM)) ALLOCATE(FNU3D(MLTMSRM)) ALLOCATE(FNUVE(MLTMSRM)) ALLOCATE(FNUVT(MLTMSRM)) ALLOCATE(FNV3D(MLTMSRM)) ALLOCATE(FP(LCM)) ALLOCATE(FP1(LCM)) ALLOCATE(FPB(LCM)) ALLOCATE(FPGXE(LCM)) ALLOCATE(FPGYE(LCM)) ALLOCATE(PMCTESTX(10,LCM)) ALLOCATE(PMCTESTY(10,LCM)) ALLOCATE(FPOCBST(NSTM,NTXM)) ALLOCATE(FPOCWST(NSTM,NTXM)) ALLOCATE(FPR(LCM)) ALLOCATE(FPROX(0:KCM)) ALLOCATE(FPRT(LCM)) ALLOCATE(FPTMP(LCM)) ALLOCATE(FQC(LCM,KCM)) ALLOCATE(FRACCOH(LCM,KBM)) ALLOCATE(FRACNON(LCM,KBM)) ALLOCATE(FSALASM(NDDAM,NLDAM)) ALLOCATE(FSCORTBCV(LCM)) ALLOCATE(FTEMASM(NDDAM,NLDAM)) ALLOCATE(FUDISP(KCM,LCM)) ALLOCATE(FUHDYATV(LCM,KCM)) ALLOCATE(FUHDYE(LCM)) ALLOCATE(FUHU(LCM,KCM)) ALLOCATE(FUHV(LCM,KCM)) ALLOCATE(FVDISP(KCM,LCM)) ALLOCATE(FVHDXE(LCM)) ALLOCATE(FVHU(LCM,KCM)) ALLOCATE(FVHV(LCM,KCM)) ALLOCATE(FVOLASM(NDDAM,NLDAM)) ALLOCATE(FWQQ(LCM,KCM)) ALLOCATE(FWQQL(LCM,KCM)) ALLOCATE(FWU(LCM,0:KCM)) ALLOCATE(FWV(LCM,0:KCM)) ALLOCATE(FX(LCM,KCM)) ALLOCATE(FXE(LCM)) ALLOCATE(FXVEG(LCM,KCM)) ALLOCATE(FXVEGE(LCM)) ALLOCATE(FXWAVE(LCM,KCM)) ALLOCATE(FY(LCM,KCM)) ALLOCATE(FYE(LCM)) ALLOCATE(FYVEG(LCM,KCM)) ALLOCATE(FYVEGE(LCM)) ALLOCATE(FYWAVE(LCM,KCM)) ALLOCATE(FZU(0:KCM)) ALLOCATE(FZV(0:KCM)) ALLOCATE(GAMB(KCM)) ALLOCATE(GAMTMP(LCM,KBM+1)) ALLOCATE(GAMVEG(0:NVEGTPM)) ALLOCATE(GLSHA(MGM,MGM)) ALLOCATE(GRNSUM(LCMWQ,KCM)) ALLOCATE(GWCSER(NDGWSER,NSTVM,NGWSERM)) ALLOCATE(GWCSERT(0:NGWSERM,NSTVM)) ALLOCATE(GWFAC(LCM)) ALLOCATE(GWLPF(LCM)) ALLOCATE(GWSER(NDGWSER,NGWSERM)) ALLOCATE(GWSERT(0:NGWSERM)) ALLOCATE(H1P(LCM)) ALLOCATE(H1U(LCM)) ALLOCATE(H1UI(LCM)) ALLOCATE(H1V(LCM)) ALLOCATE(H1VI(LCM)) ALLOCATE(H2P(LCM)) ALLOCATE(H2WQ(LCM)) ALLOCATE(HBED(LCM,KBM)) ALLOCATE(HBED1(LCM,KBM)) ALLOCATE(HBEDA(LCM)) ALLOCATE(HBEDA1(LCM)) ALLOCATE(HCTLDA(NQCTTM)) ALLOCATE(HCTLDM(NQCTTM)) ALLOCATE(HCTLUA(NQCTTM)) ALLOCATE(HCTLUM(NQCTTM)) ALLOCATE(HDFUFX(LCM)) ALLOCATE(HDFUFY(LCM)) ALLOCATE(HDFUF(LCM)) ALLOCATE(HDIFCTD(NDQCLT,NQCTTM)) ALLOCATE(HDIFCTL(NDQCLT,NQCTTM)) ALLOCATE(HGDH(LCM)) ALLOCATE(HLPF(LCM)) ALLOCATE(HLRPD(LCGLM,NGLM)) ALLOCATE(HLRPDF(LCGLM,KCM,NGLM)) ALLOCATE(HMCW(LCM)) ALLOCATE(HMP(LCM)) ALLOCATE(HMPW(LCM)) ALLOCATE(HMU(LCM)) ALLOCATE(HMUW(LCM)) ALLOCATE(HMV(LCM)) ALLOCATE(HMVW(LCM)) ALLOCATE(HP(LCM)) ALLOCATE(HPI(LCM)) ALLOCATE(HPTMP(LCM)) C RETURN END