C     from CRHPL.INC   
C     RCHRES module common
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
C
C            PLANK section
      COMMON/SCRTCH/HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ,PFLAG,DUMY,PIVL,PYREND,
     $              RCHPFG,UUNITS,IUNITS,OUNITS,PUNIT,MESSU,MSGFL,
     $              RCHNO,RCHID,DELT,DELT60,DELTS,NDAY,NDAYS,LKFG,
     $              NEXITS,HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,
     $              MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,
     $              SPAKND,SPIVL,SPOPNO,DUMGEN,DUM1,PREC,DUM2,PRECFP,
     $              DUM3,VOL,VOLS,DUM4,SAREA,DUM5,VOLFP,DUM6,SAFP,
     $              DUM7,SROVOL,EROVOL,SOVOL,EOVOL,DUM8,SOLRAD,DUM9,
     $              SOLFP,DUM10,ELEV,DUM11,CFSAEX,DUM12,TW,DUM13,TWFP,
     $              DUM14,SSED,DUM15,SSEDFP,DUM16,DEPCOR,AVDEPE,DUM17,
     $              DOX,BOD,DUM18,OXCF3,OXCF4,DUM19,TAMFG,DUM20,PO4FG,
     $              DUM21,CVBN,CVBO,CVBP,CVBPC,CVBPN,BPCNTC,DUM22,
     $              ANAER,DUM23,NO3,TAM,DUM24,PO4,DUM25,NUCF4,NUCF5,
     $              NUCF6,NUCF7,DUM26,PKIF,PKIFX,PLAFFP,PLACFP,PLADFG,
     $              PHYFG,ZOOFG,BALFG,SDLTFG,AMRFG,DECFG,NSFG,ZFOOD,
     $              PLAFXM,PLACNM,CVBC,CVBCL,CVNRBO,CVPB,RATCLP,
     $              NONREF,LITSED,ALNPR,EXTB,MALGR,CMMLT,CMMN,CMMNP,
     $              CMMP,TALGRH,TALGRL,TALGRM,ALR20,ALDH,ALDL,OXALD
      COMMON/SCRTCH/NALDH,PALDH,SEED,MXSTAY,OREF,CLALDH,PHYSET,REFSET,
     $              MZOEAT,ZFIL20,ZRES20,ZD,OXZD,TCZFIL,TCZRES,ZEXDEL,
     $              ZOMASS,MBAL,CFBALR,CFBALG,PKECNT,PHYTO,PHYCLA,
     $              LIMPHY,BENAL,BALCLA,LIMBAL,ORN,ORP,ORC,TORN,TORP,
     $              TORC,POTBOD,ZOO,PKST3X,PYFP,ZFP,BAFP,PYCLFP,
     $              BACLFP,PKCF1,PHYCO2,BALCO2,ZCO2,PKCF2,PKCF3,PKCF4,
     $              PKCF1X,PKCF2X,PLADDX,PLADWX,DUM27,TIC,CO2,DUMRCH
      INTEGER       HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ(2),PFLAG(11),DUMY(1),PIVL,
     $              PYREND,RCHPFG,UUNITS,IUNITS,OUNITS,PUNIT(2),MESSU,
     $              MSGFL,RCHNO,RCHID(5),NDAY(12),NDAYS,LKFG,NEXITS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,DUMGEN(15),PRECFP,VOLFP,SAFP,SOLFP,TWFP,
     $              SSEDFP(4),TAMFG,PO4FG,PKIFX(5),PLAFFP(3),
     $              PLACFP(3),PLADFG(6),PHYFG,ZOOFG,BALFG,SDLTFG,
     $              AMRFG,DECFG,NSFG,ZFOOD,PKECNT(4),PKST3X(7),PYFP,
     $              ZFP,BAFP,PYCLFP,BACLFP,PKCF1X(5),PKCF2X(MXEXIT,5),
     $              PLADDX(3),PLADWX(3)
      REAL          DELT,DELT60,DELTS,PREC,SAREA,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),SOLRAD,ELEV,CFSAEX,TW,
     $              SSED(4),DEPCOR,AVDEPE,DOX,BOD,OXCF3(7,5),OXCF4(7,5),
     $              CVBN,CVBO,CVBP,CVBPC,CVBPN,BPCNTC,ANAER,NO3,TAM,PO4,
     $              NUCF4(6,5),NUCF5(7,5),NUCF6(1,5),NUCF7(5,5),
     $              PKIF(5,5),PLAFXM(12,3),PLACNM(12,3),CVBC,CVBCL,
     $              CVNRBO,CVPB,RATCLP,NONREF,LITSED,ALNPR,EXTB,MALGR,
     $              CMMLT,CMMN,CMMNP,CMMP,TALGRH,TALGRL,TALGRM,ALR20,
     $              ALDH,ALDL,OXALD,NALDH,PALDH,SEED,MXSTAY,OREF,
     $              CLALDH,PHYSET,REFSET,MZOEAT,ZFIL20,ZRES20,ZD,OXZD,
     $              TCZFIL,TCZRES,ZEXDEL,ZOMASS,MBAL,CFBALR,CFBALG,
     $              PHYTO,PHYCLA,LIMPHY,BENAL,BALCLA,LIMBAL,ORN,ORP,
     $              ORC,TORN,TORP,TORC,POTBOD,ZOO,PKCF1(5,5),PHYCO2,
     $              BALCO2,ZCO2,PKCF2(MXEXIT,5,5),PKCF3(3,5),PKCF4(3,5),
     $              TIC,CO2
      DOUBLE PRECISION  VOL,VOLS
      INTEGER       DUM1(505),DUM2(102),DUM3(2146),DUM4(713),
     $              DUM5(107),DUM6(605),DUM7(4769),DUM8(1066),DUM9(5),
     $              DUM10(7),DUM11,DUM12(258),DUM13,DUM14(179),
     $              DUM15(11),DUM16(2034),DUM17(31),DUM18(88),
     $              DUM19(72),DUM20,DUM21(76),DUM22(7),DUM23(25),
     $              DUM24,DUM25(204),DUM26(424),DUM27(19),
     $              DUMRCH(3820)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(OXST,DOX),(PHYDOX,OXCF3(5,1)),
     $              (ZOODOX,OXCF3(6,1)),(BALDOX,OXCF3(7,1)),
     $              (PHYBOD,OXCF4(5,1)),(ZOOBOD,OXCF4(6,1)),
     $              (BALBOD,OXCF4(7,1)),(NUPM1,TAMFG),(DNUST,NO3),
     $              (PHYNO3,NUCF4(4,1)),(ZOONO3,NUCF4(5,1)),
     $              (BALNO3,NUCF4(6,1)),(PHYTAM,NUCF5(5,1)),
     $              (ZOOTAM,NUCF5(6,1)),(BALTAM,NUCF5(7,1)),
     $              (PHYPO4,NUCF7(3,1)),(ZOOPO4,NUCF7(4,1)),
     $              (BALPO4,NUCF7(5,1)),(IPHYTO,PKIF(1,1))
      EQUIVALENCE   (IZOO,PKIF(2,1)),(IORN,PKIF(3,1)),
     $              (IORP,PKIF(4,1)),(IORC,PKIF(5,1)),
     $              (IPYFP,PKIFX(1)),(IZFP,PKIFX(2)),(IONFP,PKIFX(3)),
     $              (IOPFP,PKIFX(4)),(IOCFP,PKIFX(5)),(PKFG,PHYFG),
     $              (PKPM1,RATCLP),(PKPM2,CMMLT),(PKPM3,ALR20),
     $              (PKPM4,SEED),(PKPM5,MZOEAT),(PKPM6,TCZFIL),
     $              (PKPM7,MBAL),(PKST1,PHYTO),(PKST2,BENAL),
     $              (PKST3,ORN),(ONFP,PKST3X(1)),(OPFP,PKST3X(2)),
     $              (OCFP,PKST3X(3)),(TONFP,PKST3X(4)),
     $              (TOPFP,PKST3X(5)),(TOCFP,PKST3X(6))
      EQUIVALENCE   (PODFP,PKST3X(7)),(ROPHYT,PKCF1(1,1)),
     $              (ROZOO,PKCF1(2,1)),(ROORN,PKCF1(3,1)),
     $              (ROORP,PKCF1(4,1)),(ROORC,PKCF1(5,1)),
     $              (OPHYT,PKCF2(1,1,1)),(OZOO,PKCF2(1,2,1)),
     $              (OORN,PKCF2(1,3,1)),(OORP,PKCF2(1,4,1)),
     $              (OORC,PKCF2(1,5,1)),(PLADDR,PKCF3(1,1)),
     $              (PLADWT,PKCF4(1,1)),(ROPYFP,PKCF1X(1)),
     $              (ROZFP,PKCF1X(2)),(ROONFP,PKCF1X(3)),
     $              (ROOPFP,PKCF1X(4)),(ROOCFP,PKCF1X(5)),
     $              (OPYFP,PKCF2X(1,1)),(OZFP,PKCF2X(1,2))
      EQUIVALENCE   (OONFP,PKCF2X(1,3)),(OOPFP,PKCF2X(1,4)),
     $              (OOCFP,PKCF2X(1,5)),(PHST,TIC)
      INTEGER       ASVEC(11),UNIT(5),TIMFG(6),DATIM(5),NUPM1(7),
     $              IPYFP,IZFP,IONFP,IOPFP,IOCFP,PKFG(8),ONFP,OPFP,
     $              OCFP,TONFP,TOPFP,TOCFP,PODFP,ROPYFP,ROZFP,ROONFP,
     $              ROOPFP,ROOCFP,OPYFP(MXEXIT),OZFP(MXEXIT),
     $              OONFP(MXEXIT),OOPFP(MXEXIT),OOCFP(MXEXIT)
      REAL          OXST(2),PHYDOX,ZOODOX,BALDOX,PHYBOD,ZOOBOD,BALBOD,
     $              DNUST(6),PHYNO3,ZOONO3,BALNO3,PHYTAM,ZOOTAM,
     $              BALTAM,PHYPO4,ZOOPO4,BALPO4,IPHYTO,IZOO,IORN,IORP,
     $              IORC,PKPM1(6),PKPM2(7),PKPM3(6),PKPM4(6),PKPM5(5),
     $              PKPM6(4),PKPM7(3),PKST1(3),PKST2(3),PKST3(7),
     $              ROPHYT,ROZOO,ROORN,ROORP,ROORC,OPHYT(MXEXIT),
     $              OZOO(MXEXIT),OORN(MXEXIT),OORP(MXEXIT),OORC(MXEXIT),
     $              PLADDR(3),PLADWT(3),PHST(3)
C     end byte:  72000 word:18000
