C     from CRHPL.INC   
C     RCHRES module common
C            PLANK section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
C
      COMMON/SCRTCH/HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ,PFLAG,BFLAG,DUMY,PIVL,BIVL,
     $              PYREND,BYREND,RCHPFG,RCHBFG,UUNITS,IUNITS,OUNITS,
     $              PUNIT,BUNIT,MESSU,MSGFL,RCHNO,RCHID,DELT,DELT60,
     $              DELTS,NDAY,NDAYS,LKFG,NEXITS,HRFG,DAYFG,STFG,
     $              EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,HR,MIN,IVL,
     $              IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,SPOUT,SPNUND,DUMGEN,DUM1,PREC,DUM2,PRECFP,
     $              DUM3,VOL,VOLS,DUM4,SAREA,DUM5,RO,DUM6,VOLFP,DUM7,
     $              SAFP,DUM8,SROVOL,EROVOL,SOVOL,EOVOL,DUM9,SOLRAD,
     $              DUM10,SOLFP,DUM11,ELEV,DUM12,CFSAEX,DUM13,TW,
     $              DUM14,TWFP,DUM15,SSED,DUM16,SSEDFP,DUM17,PHVAL,
     $              DUM18,DEPCOR,AVDEPE,AVVELE,OXIF,DUM19,DOX,BOD,
     $              DUM20,OXCF1,DUM21,OXCF2,DUM22,OXCF3,OXCF4,DUM23,
     $              NUIF1,NUIF2,DUM24,TAMFG,NO2FG,PO4FG,DUM25,ADNHFG,
     $              ADPOFG,DUM26,CVBN,CVBO,CVBP,CVBPC,CVBPN,BPCNTC,
     $              DUM27,ANAER,DUM28,NO3,TAM,NO2,PO4,NH4,NH3,DUM29,
     $              RSNH4,RSPO4,DUM30,NUCF1,NUCF2,TNUCF1,DUM31,NUCF4,
     $              NUCF5,NUCF6,NUCF7,DUM32,NUCF9,NUCF10,TNUCF2,DUM33
      COMMON/SCRTCH/NUADEP,DUM34,PKIF,PKIFX,RCPKFP,TPKIF,RCTPKX,
     $              PLAFFP,PLACFP,PLADFG,PHYFG,ZOOFG,BALFG,SDLTFG,
     $              AMRFG,DECFG,NSFG,ZFOOD,BNPFG,NUMBAL,BFIXFG,BINVFG,
     $              PLAFXM,PLACNM,CVBC,CVBCL,CVNRBO,CVPB,RATCLP,
     $              NONREF,LITSED,ALNPR,EXTB,MALGR,PARADF,CMMLT,CMMN,
     $              CMMNP,CMMP,TALGRH,TALGRL,TALGRM,ALR20,ALDH,ALDL,
     $              OXALD,NALDH,PALDH,NMINGR,PMINGR,CMINGR,LMINGR,
     $              NMINC,SEED,MXSTAY,OREF,CLALDH,PHYSET,REFSET,
     $              MZOEAT,ZFIL20,ZRES20,ZD,OXZD,TCZFIL,TCZRES,ZEXDEL,
     $              ZOMASS,MBAL,CFBALR,CFBALG,MINBAL,CAMPR,FRAVL,
     $              NMAXFX,MBALGR,TCBALG,CMMNB,CMMPB,CMMD1,CMMD2,
     $              CSLIT,BALR20,TCBALR,CSLOF1,CSLOF2,GRORES,CREMVL,
     $              CMMBI,BINV,TCGRAZ,BINVFP,BINVM,CTRBQ1,CTRBQ2,
     $              CKTRB1,CKTRB2,FRRIF,CMMV,RIFCQ1,RIFCQ2,RIFCQ3,
     $              RIFVEL,RIFDEP,PKECNT,JDAT,BALDEP,BALVEL,PHYTO,
     $              PHYCLA,LIMPHY,BENAL,BALCLA,LIMBAL,TBENAL,ORN,ORP,
     $              ORC,TORN,TORP,TORC,POTBOD,ZOO,TN,TP,PKST3X,PYFP,
     $              ZFP,BAFP,PYCLFP,BACLFP,TBALFP,PKST4X,PKCF1,TPKCF1
      COMMON/SCRTCH/PKCF2,TPKCF2,PKCF3,PKCF4,PLADEP,PKCF5,PKCF6,PKCF7,
     $              TPKCF7,PKCF8,PKCF9,PKCF10,PYCO2,ZOCO2,BACO2,
     $              PKCF1X,TPKC1X,PKCF2X,TPKC2X,PLADDX,PLADWX,PLADPX,
     $              PKCF5X,PKCF6X,PKCF7X,TPKC7X,PKCF8X,PKCF9X,PKC10X,
     $              DUM35,TIC,CO2,DUM36,PHCF3,DUMRCH
      INTEGER       HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ(2),PFLAG(11),BFLAG(11),
     $              DUMY(1),PIVL,BIVL,PYREND,BYREND,RCHPFG,RCHBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT(2),BUNIT(2),MESSU,
     $              MSGFL,RCHNO,RCHID(5),NDAY(12),NDAYS,LKFG,NEXITS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,
     $              MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,BIVLNO,NXTMON,
     $              SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,SPNUND,DUMGEN(13),
     $              PRECFP,VOLFP,SAFP,SOLFP,TWFP,SSEDFP(4),TAMFG,
     $              NO2FG,PO4FG,ADNHFG,ADPOFG,PKIFX(5),RCPKFP(5),
     $              RCTPKX(5),PLAFFP(3),PLACFP(3),PLADFG(6),PHYFG,
     $              ZOOFG,BALFG,SDLTFG,AMRFG,DECFG,NSFG,ZFOOD,BNPFG,
     $              NUMBAL,BFIXFG(4),BINVFG,BINVFP,PKECNT(4),JDAT,
     $              PKST3X(7),PYFP,ZFP,BAFP(4),PYCLFP,BACLFP(4),
     $              TBALFP(2),PKST4X(2),PKCF1X(5),TPKC1X(5),
     $              PKCF2X(MXEXIT,5),TPKC2X(MXEXIT,5),PLADDX(3),
     $              PLADWX(3),PLADPX(3),PKCF5X(5),PKCF6X(3),
     $              PKCF7X(3,4),TPKC7X(3),PKCF8X(5),PKCF9X(5)
      INTEGER       PKC10X(5)
      REAL          DELT,DELT60,DELTS,PREC,SAREA,RO,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),SOLRAD,ELEV,CFSAEX,TW,
     $              SSED(4),PHVAL,DEPCOR,AVDEPE,AVVELE,OXIF(2,5),DOX,
     $              BOD,OXCF1(2,5),OXCF2(MXEXIT,2,5),OXCF3(8,5),
     $              OXCF4(8,5),NUIF1(4,5),NUIF2(4,2,5),CVBN,CVBO,CVBP,
     $              CVBPC,CVBPN,BPCNTC,ANAER,NO3,TAM,NO2,PO4,NH4,NH3,
     $              RSNH4(12),RSPO4(12),NUCF1(4,5),NUCF2(4,2,5),
     $              TNUCF1(4),NUCF4(7,5),NUCF5(8,5),NUCF6(1,5),
     $              NUCF7(6,5),NUCF9(MXEXIT,4,5),NUCF10(MXEXIT,4,2,5),
     $              TNUCF2(MXEXIT,4),NUADEP(3),PKIF(5,5),TPKIF(5,5),
     $              PLAFXM(12,3),PLACNM(12,3),CVBC,CVBCL,CVNRBO,CVPB,
     $              RATCLP,NONREF,LITSED,ALNPR,EXTB,MALGR,PARADF,
     $              CMMLT,CMMN,CMMNP,CMMP,TALGRH,TALGRL,TALGRM,ALR20,
     $              ALDH,ALDL,OXALD,NALDH,PALDH,NMINGR,PMINGR,CMINGR,
     $              LMINGR,NMINC,SEED,MXSTAY,OREF,CLALDH,PHYSET,
     $              REFSET,MZOEAT,ZFIL20,ZRES20,ZD,OXZD,TCZFIL,TCZRES,
     $              ZEXDEL,ZOMASS,MBAL,CFBALR,CFBALG,MINBAL,CAMPR,
     $              FRAVL,NMAXFX,MBALGR(4),TCBALG(4),CMMNB(4)
      REAL          CMMPB(4),CMMD1(4),CMMD2(4),CSLIT(4),BALR20(4),
     $              TCBALR(4),CSLOF1(4),CSLOF2(4),GRORES(4),CREMVL,
     $              CMMBI,BINV,TCGRAZ,BINVM(12),CTRBQ1,CTRBQ2,CKTRB1,
     $              CKTRB2,FRRIF,CMMV,RIFCQ1,RIFCQ2,RIFCQ3,RIFVEL(4),
     $              RIFDEP(4),BALDEP,BALVEL,PHYTO,PHYCLA,LIMPHY,
     $              BENAL(4),BALCLA(4),LIMBAL(4),TBENAL(2),ORN,ORP,
     $              ORC,TORN,TORP,TORC,POTBOD,ZOO,TN,TP,PKCF1(5,5),
     $              TPKCF1(5,5),PKCF2(MXEXIT,5,5),TPKCF2(MXEXIT,5,5),
     $              PKCF3(3,5),PKCF4(3,5),PLADEP(3),PKCF5(5,5),
     $              PKCF6(3,5),PKCF7(3,4,5),TPKCF7(3,5),PKCF8(5,5),
     $              PKCF9(5,5),PKCF10(5,5),PYCO2,ZOCO2,BACO2,TIC,CO2,
     $              PHCF3(7,5)
      DOUBLE PRECISION  VOL,VOLS
      INTEGER       DUM1(505),DUM2(207),DUM3(2551),DUM4(715),DUM5(4),
     $              DUM6(102),DUM7(605),DUM8(4781),DUM9(1096),
     $              DUM10(7),DUM11(9),DUM12,DUM13(258),DUM14,
     $              DUM15(191),DUM16(14),DUM17(354),DUM18(4238),
     $              DUM19(22),DUM20(14),DUM21(4),DUM22(10),DUM23(16),
     $              DUM24(42),DUM25(2),DUM26(72),DUM27(7),DUM28(25),
     $              DUM29(12),DUM30(66),DUM31(40),DUM32(40),DUM33(31),
     $              DUM34(143),DUM35(21),DUM36(78),DUMRCH(31791)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(IBOD,OXIF(2,1)),(OXST,DOX),
     $              (ROBOD,OXCF1(2,1)),(OBOD,OXCF2(1,2,1)),
     $              (READOX,OXCF3(1,1)),(BODDOX,OXCF3(2,1)),
     $              (BENDOX,OXCF3(3,1)),(NITDOX,OXCF3(4,1)),
     $              (PHYDOX,OXCF3(5,1)),(ZOODOX,OXCF3(6,1)),
     $              (BALDOX,OXCF3(7,1)),(TOTDOX,OXCF3(8,1)),
     $              (DECBOD,OXCF4(1,1)),(BNRBOD,OXCF4(2,1)),
     $              (SNKBOD,OXCF4(3,1)),(DENBOD,OXCF4(4,1)),
     $              (PHYBOD,OXCF4(5,1)),(ZOOBOD,OXCF4(6,1))
      EQUIVALENCE   (BALBOD,OXCF4(7,1)),(TOTBOD,OXCF4(8,1)),
     $              (INO3,NUIF1(1,1)),(ITAM,NUIF1(2,1)),
     $              (INO2,NUIF1(3,1)),(IPO4,NUIF1(4,1)),
     $              (ISNH4,NUIF2(1,1,1)),(ISPO4,NUIF2(1,2,1)),
     $              (NUPM1,TAMFG),(DNUST,NO3),(RONO3,NUCF1(1,1)),
     $              (ROTAM,NUCF1(2,1)),(RONO2,NUCF1(3,1)),
     $              (ROPO4,NUCF1(4,1)),(ROSNH4,NUCF2(1,1,1)),
     $              (ROSPO4,NUCF2(1,2,1)),(NITNO3,NUCF4(1,1)),
     $              (DENNO3,NUCF4(2,1)),(BODNO3,NUCF4(3,1)),
     $              (PHYNO3,NUCF4(4,1)),(ZOONO3,NUCF4(5,1))
      EQUIVALENCE   (BALNO3,NUCF4(6,1)),(TOTNO3,NUCF4(7,1)),
     $              (NITTAM,NUCF5(1,1)),(VOLNH3,NUCF5(2,1)),
     $              (BNRTAM,NUCF5(3,1)),(BODTAM,NUCF5(4,1)),
     $              (PHYTAM,NUCF5(5,1)),(ZOOTAM,NUCF5(6,1)),
     $              (BALTAM,NUCF5(7,1)),(TOTTAM,NUCF5(8,1)),
     $              (BNRPO4,NUCF7(1,1)),(BODPO4,NUCF7(2,1)),
     $              (PHYPO4,NUCF7(3,1)),(ZOOPO4,NUCF7(4,1)),
     $              (BALPO4,NUCF7(5,1)),(TOTPO4,NUCF7(6,1)),
     $              (ONO3,NUCF9(1,1,1)),(OTAM,NUCF9(1,2,1)),
     $              (ONO2,NUCF9(1,3,1)),(OPO4,NUCF9(1,4,1))
      EQUIVALENCE   (OSNH4,NUCF10(1,1,1,1)),(OSPO4,NUCF10(1,1,2,1)),
     $              (IPHYTO,PKIF(1,1)),(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)),(ITORN,TPKIF(1,1)),
     $              (ITORP,TPKIF(2,1)),(ITORC,TPKIF(3,1)),
     $              (ITOTN,TPKIF(4,1)),(ITOTP,TPKIF(5,1)),
     $              (PKFG,PHYFG),(PKPM1,RATCLP),(PKPM2,CMMLT),
     $              (PKPM3,ALR20),(PKPM12,NMINGR),(PKPM4,SEED)
      EQUIVALENCE   (PKPM5,MZOEAT),(PKPM6,TCZFIL),(PKPM7,MBAL),
     $              (PKPM8,CREMVL),(PKPM9,CTRBQ1),(PKPM10,FRRIF),
     $              (PKPM11,RIFVEL),(PKST1,PHYTO),(PKST2,BENAL),
     $              (PKST3,ORN),(PKST4,TN),(ONFP,PKST3X(1)),
     $              (OPFP,PKST3X(2)),(OCFP,PKST3X(3)),
     $              (TONFP,PKST3X(4)),(TOPFP,PKST3X(5)),
     $              (TOCFP,PKST3X(6)),(PODFP,PKST3X(7)),
     $              (TNFP,PKST4X(1)),(TPFP,PKST4X(2)),
     $              (ROPHYT,PKCF1(1,1)),(ROZOO,PKCF1(2,1)),
     $              (ROORN,PKCF1(3,1)),(ROORP,PKCF1(4,1))
      EQUIVALENCE   (ROORC,PKCF1(5,1)),(ROTORN,TPKCF1(1,1)),
     $              (ROTORP,TPKCF1(2,1)),(ROTORC,TPKCF1(3,1)),
     $              (ROTOTN,TPKCF1(4,1)),(ROTOTP,TPKCF1(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)),(OTORN,TPKCF2(1,1,1)),
     $              (OTORP,TPKCF2(1,2,1)),(OTORC,TPKCF2(1,3,1)),
     $              (OTOTN,TPKCF2(1,4,1)),(OTOTP,TPKCF2(1,5,1)),
     $              (PLADDR,PKCF3(1,1)),(PLADWT,PKCF4(1,1)),
     $              (SNKPHY,PKCF5(1,1)),(ZOOPHY,PKCF5(2,1))
      EQUIVALENCE   (DTHPHY,PKCF5(3,1)),(GROPHY,PKCF5(4,1)),
     $              (TOTPHY,PKCF5(5,1)),(GROZOO,PKCF6(1,1)),
     $              (DTHZOO,PKCF6(2,1)),(TOTZOO,PKCF6(3,1)),
     $              (FLXBAL,PKCF7(1,1,1)),(GROTBA,TPKCF7(1,1)),
     $              (DTHTBA,TPKCF7(2,1)),(TOTTBA,TPKCF7(3,1)),
     $              (SNKORN,PKCF8(1,1)),(PHYORN,PKCF8(2,1)),
     $              (ZOOORN,PKCF8(3,1)),(BALORN,PKCF8(4,1)),
     $              (TOTORN,PKCF8(5,1)),(SNKORP,PKCF9(1,1)),
     $              (PHYORP,PKCF9(2,1)),(ZOOORP,PKCF9(3,1)),
     $              (BALORP,PKCF9(4,1)),(TOTORP,PKCF9(5,1))
      EQUIVALENCE   (SNKORC,PKCF10(1,1)),(PHYORC,PKCF10(2,1)),
     $              (ZOOORC,PKCF10(3,1)),(BALORC,PKCF10(4,1)),
     $              (TOTORC,PKCF10(5,1)),(ROPYFP,PKCF1X(1)),
     $              (ROZFP,PKCF1X(2)),(ROONFP,PKCF1X(3)),
     $              (ROOPFP,PKCF1X(4)),(ROOCFP,PKCF1X(5)),
     $              (ROTONX,TPKC1X(1)),(ROTOPX,TPKC1X(2)),
     $              (ROTOCX,TPKC1X(3)),(ROTNFP,TPKC1X(4)),
     $              (ROTPFP,TPKC1X(5)),(OPYFP,PKCF2X(1,1)),
     $              (OZFP,PKCF2X(1,2)),(OONFP,PKCF2X(1,3)),
     $              (OOPFP,PKCF2X(1,4)),(OOCFP,PKCF2X(1,5))
      EQUIVALENCE   (OTONX,TPKC2X(1,1)),(OTOPX,TPKC2X(1,2)),
     $              (OTOCX,TPKC2X(1,3)),(OTNFP,TPKC2X(1,4)),
     $              (OTPFP,TPKC2X(1,5)),(PHST,TIC),
     $              (BODCO2,PHCF3(1,1)),(PHYCO2,PHCF3(2,1)),
     $              (ZOOCO2,PHCF3(3,1)),(BALCO2,PHCF3(4,1)),
     $              (BENCO2,PHCF3(5,1)),(INVCO2,PHCF3(6,1)),
     $              (TOTCO2,PHCF3(7,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),NUPM1(7),
     $              IPYFP,IZFP,IONFP,IOPFP,IOCFP,PKFG(9),ONFP,OPFP,
     $              OCFP,TONFP,TOPFP,TOCFP,PODFP,TNFP,TPFP,ROPYFP,
     $              ROZFP,ROONFP,ROOPFP,ROOCFP,ROTONX,ROTOPX,ROTOCX,
     $              ROTNFP,ROTPFP,OPYFP(MXEXIT),OZFP(MXEXIT),
     $              OONFP(MXEXIT),OOPFP(MXEXIT),OOCFP(MXEXIT),
     $              OTONX(MXEXIT),OTOPX(MXEXIT),OTOCX(MXEXIT),
     $              OTNFP(MXEXIT),OTPFP(MXEXIT)
      REAL          IBOD,OXST(2),ROBOD,OBOD(MXEXIT),READOX,BODDOX,
     $              BENDOX,NITDOX,PHYDOX,ZOODOX,BALDOX,TOTDOX,DECBOD,
     $              BNRBOD,SNKBOD,DENBOD,PHYBOD,ZOOBOD,BALBOD,TOTBOD,
     $              INO3,ITAM,INO2,IPO4,ISNH4(4),ISPO4(4),DNUST(6),
     $              RONO3,ROTAM,RONO2,ROPO4,ROSNH4(4),ROSPO4(4),
     $              NITNO3,DENNO3,BODNO3,PHYNO3,ZOONO3,BALNO3,TOTNO3,
     $              NITTAM,VOLNH3,BNRTAM,BODTAM,PHYTAM,ZOOTAM,BALTAM,
     $              TOTTAM,BNRPO4,BODPO4,PHYPO4,ZOOPO4,BALPO4,TOTPO4,
     $              ONO3(MXEXIT),OTAM(MXEXIT),ONO2(MXEXIT),
     $              OPO4(MXEXIT),OSNH4(MXEXIT,4),OSPO4(MXEXIT,4),
     $              IPHYTO,IZOO,IORN,IORP,IORC,ITORN,ITORP,ITORC,
     $              ITOTN,ITOTP,PKPM1(7),PKPM2(7),PKPM3(6),PKPM12(5),
     $              PKPM4(6),PKPM5(5),PKPM6(4),PKPM7(7),PKPM8(4),
     $              PKPM9(4),PKPM10(5),PKPM11(8),PKST1(3),PKST2(4,3),
     $              PKST3(7),PKST4(2),ROPHYT,ROZOO,ROORN,ROORP,ROORC,
     $              ROTORN,ROTORP,ROTORC,ROTOTN,ROTOTP,OPHYT(MXEXIT),
     $              OZOO(MXEXIT),OORN(MXEXIT),OORP(MXEXIT),
     $              OORC(MXEXIT),OTORN(MXEXIT),OTORP(MXEXIT)
      REAL          OTORC(MXEXIT),OTOTN(MXEXIT),OTOTP(MXEXIT),
     $              PLADDR(3),PLADWT(3),SNKPHY,ZOOPHY,DTHPHY,GROPHY,
     $              TOTPHY,GROZOO,DTHZOO,TOTZOO,FLXBAL(3,4),GROTBA,
     $              DTHTBA,TOTTBA,SNKORN,PHYORN,ZOOORN,BALORN,TOTORN,
     $              SNKORP,PHYORP,ZOOORP,BALORP,TOTORP,SNKORC,PHYORC,
     $              ZOOORC,BALORC,TOTORC,PHST(3),BODCO2,PHYCO2,ZOOCO2,
     $              BALCO2,BENCO2,INVCO2,TOTCO2
C     end byte: 200000 word:50000
