C     from CRHNU.INC   
C     RCHRES module common
C            NUTRX 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,VOLFP,DUM6,SAFP,
     $              DUM7,SROVOL,EROVOL,SOVOL,EOVOL,DUM8,WIND,DUM9,
     $              WDFP,DUM10,TW,DUM11,TWFP,DUM12,RSED,SSED,DUM13,
     $              SSEDFP,DUM14,SDCF1,SDCF2,DUM15,SDCF3,DUM16,PHVAL,
     $              DUM17,PHVFP,DUM18,PHFLAG,DUM19,PHVALM,DUM20,
     $              BENRFG,DUM21,SCRFAC,DEPCOR,AVDEPE,DUM22,DOX,BOD,
     $              DUM23,KOREA,BODOX,DUM24,OXCF3,OXCF4,DUM25,NUIF1,
     $              NUIF2,TNUIF,NUIF1X,RCDNUX,NUIF2X,RCSNUX,TNUIFX,
     $              NUAFFP,NUACFP,NUADFG,TAMFG,NO2FG,PO4FG,AMVFG,
     $              DENFG,ADNHFG,ADPOFG,NUAFXM,NUACNM,CVBN,CVBO,CVBP,
     $              CVBPC,CVBPN,BPCNTC,CVOC,CVON,CVOP,BRTAM,BRPO4
      COMMON/SCRTCH/ANAER,BNH4,BPO4,KTAM20,KNO220,TCNIT,KNO320,TCDEN,
     $              DENOXT,EXPNVG,EXPNVL,ADNHPM,ADPOPM,NUECNT,NUWCNT,
     $              NO3,TAM,NO2,PO4,NH4,NH3,SNH4,SPO4,RNO3,RTAM,RNO2,
     $              RPO4,RNH4,RNH3,RSNH4,RSPO4,NUST,DNUSTX,SNH4X,
     $              SPO4X,DNUS2X,RSNH4X,RSPO4X,NUSTX,NUCF1,NUCF2,
     $              TNUCF1,NUCF3,NUCF4,NUCF5,NUCF6,NUCF7,NUCF8,NUCF9,
     $              NUCF10,TNUCF2,DECCO2,NUCF11,NUCF12,NUADEP,NUCF1X,
     $              NUCF2X,TNUC1X,NUCF3X,NUCF4X,NUCF5X,NUCF6X,NUCF7X,
     $              NUCF8X,NUCF9X,NUC10X,TNUC2X,NUADDX,NUADWX,NUADPX,
     $              DUM26,PH,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,WDFP,TWFP,SSEDFP(4),PHVFP,
     $              PHFLAG,BENRFG,NUIF1X(4),RCDNUX(4),NUIF2X(3,2),
     $              RCSNUX(4,2),TNUIFX(4),NUAFFP(3),NUACFP(3),
     $              NUADFG(6),TAMFG,NO2FG,PO4FG,AMVFG,DENFG,ADNHFG,
     $              ADPOFG,NUECNT(4),NUWCNT(1),DNUSTX(6),SNH4X(3),
     $              SPO4X(3),DNUS2X(6),RSNH4X(12),RSPO4X(12),NUSTX(4),
     $              NUCF1X(4),NUCF2X(4,2),TNUC1X(4),NUCF3X(4,2),
     $              NUCF4X(7),NUCF5X(8),NUCF6X(1),NUCF7X(6),
     $              NUCF8X(4,2),NUCF9X(MXEXIT,4),NUC10X(MXEXIT,4,2),
     $              TNUC2X(MXEXIT,4),NUADDX(3),NUADWX(3),NUADPX(3)
      REAL          DELT,DELT60,DELTS,PREC,SAREA,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),WIND,TW,RSED(10),
     $              SSED(4),SDCF1(4,5),SDCF2(4,5),SDCF3(MXEXIT,4,5),
     $              PHVAL,PHVALM(12),SCRFAC,DEPCOR,AVDEPE,DOX,BOD,
     $              KOREA,BODOX,OXCF3(8,5),OXCF4(8,5),NUIF1(4,5),
     $              NUIF2(4,2,5),TNUIF(4),NUAFXM(12,3),NUACNM(12,3),
     $              CVBN,CVBO,CVBP,CVBPC,CVBPN,BPCNTC,CVOC,CVON,CVOP,
     $              BRTAM(2),BRPO4(2),ANAER,BNH4(3),BPO4(3),KTAM20,
     $              KNO220,TCNIT,KNO320,TCDEN,DENOXT,EXPNVG,EXPNVL,
     $              ADNHPM(3),ADPOPM(3),NO3,TAM,NO2,PO4,NH4,NH3,
     $              SNH4(3),SPO4(3),RNO3,RTAM,RNO2,RPO4,RNH4,RNH3,
     $              RSNH4(12),RSPO4(12),NUST(4,5),NUCF1(4,5),
     $              NUCF2(4,2,5),TNUCF1(4),NUCF3(4,2,5),NUCF4(7,5),
     $              NUCF5(8,5),NUCF6(1,5),NUCF7(6,5),NUCF8(4,2,5),
     $              NUCF9(MXEXIT,4,5),NUCF10(MXEXIT,4,2,5),
     $              TNUCF2(MXEXIT,4),DECCO2,NUCF11(3,5),NUCF12(3,5),
     $              NUADEP(3),PH
      DOUBLE PRECISION  VOL,VOLS
      INTEGER       DUM1(505),DUM2(207),DUM3(2551),DUM4(715),
     $              DUM5(107),DUM6(605),DUM7(4781),DUM8(1100),DUM9(7),
     $              DUM10(266),DUM11,DUM12(181),DUM13(14),DUM14(4),
     $              DUM15(8),DUM16(202),DUM17(78),DUM18(24),
     $              DUM19(395),DUM20(3721),DUM21(4),DUM22(33),
     $              DUM23(26),DUM24(60),DUM25(16),DUM26(1009),
     $              DUMRCH(31903)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(DEPSCR,SDCF1(1,1)),(ROSED,SDCF2(1,1)),
     $              (OSED,SDCF3(1,1,1)),(OXST,DOX),
     $              (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)),
     $              (INO3FP,NUIF1X(1)),(ITAMFP,NUIF1X(2)),
     $              (INO2FP,NUIF1X(3)),(IPO4FP,NUIF1X(4)),
     $              (ISNHFP,NUIF2X(1,1)),(ISPOFP,NUIF2X(1,2)),
     $              (NUPM1,TAMFG),(NUPM2,BRTAM(1)),(NUPM3,BNH4(1)),
     $              (NUPM4,KTAM20),(NUPM5,EXPNVG),(NUADPM,ADNHPM(1)),
     $              (DNUST,NO3),(DNUST2,RNO3),(RRNO3,NUST(1,1))
      EQUIVALENCE   (RRTAM,NUST(2,1)),(RRNO2,NUST(3,1)),
     $              (RRPO4,NUST(4,1)),(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)),(DSNH4,NUCF3(1,1,1)),
     $              (DSPO4,NUCF3(1,2,1)),(NITNO3,NUCF4(1,1)),
     $              (DENNO3,NUCF4(2,1)),(BODNO3,NUCF4(3,1)),
     $              (PHYNO3,NUCF4(4,1)),(ZOONO3,NUCF4(5,1)),
     $              (BALNO3,NUCF4(6,1)),(TOTNO3,NUCF4(7,1)),
     $              (NITTAM,NUCF5(1,1)),(VOLNH3,NUCF5(2,1))
      EQUIVALENCE   (BNRTAM,NUCF5(3,1)),(BODTAM,NUCF5(4,1)),
     $              (PHYTAM,NUCF5(5,1)),(ZOOTAM,NUCF5(6,1)),
     $              (BALTAM,NUCF5(7,1)),(TOTTAM,NUCF5(8,1)),
     $              (NITNO2,NUCF6(1,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)),(ADNH4,NUCF8(1,1,1)),
     $              (ADPO4,NUCF8(1,2,1)),(ONO3,NUCF9(1,1,1)),
     $              (OTAM,NUCF9(1,2,1)),(ONO2,NUCF9(1,3,1)),
     $              (OPO4,NUCF9(1,4,1)),(OSNH4,NUCF10(1,1,1,1))
      EQUIVALENCE   (OSPO4,NUCF10(1,1,2,1)),(NUADDR,NUCF11(1,1)),
     $              (NUADWT,NUCF12(1,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),INO3FP,ITAMFP,
     $              INO2FP,IPO4FP,ISNHFP(4),ISPOFP(4),NUPM1(7)
      REAL          DEPSCR(4),ROSED(4),OSED(MXEXIT,4),OXST(2),READOX,
     $              BODDOX,BENDOX,NITDOX,PHYDOX,ZOODOX,BALDOX,TOTDOX,
     $              DECBOD,BNRBOD,SNKBOD,DENBOD,PHYBOD,ZOOBOD,BALBOD,
     $              TOTBOD,INO3,ITAM,INO2,IPO4,ISNH4(4),ISPO4(4),
     $              NUPM2(5),NUPM3(6),NUPM4(6),NUPM5(2),NUADPM(6),
     $              DNUST(6),DNUST2(6),RRNO3,RRTAM,RRNO2,RRPO4,RONO3,
     $              ROTAM,RONO2,ROPO4,ROSNH4(4),ROSPO4(4),DSNH4(4),
     $              DSPO4(4),NITNO3,DENNO3,BODNO3,PHYNO3,ZOONO3,
     $              BALNO3,TOTNO3,NITTAM,VOLNH3,BNRTAM,BODTAM,PHYTAM,
     $              ZOOTAM,BALTAM,TOTTAM,NITNO2,BNRPO4,BODPO4,PHYPO4,
     $              ZOOPO4,BALPO4,TOTPO4,ADNH4(4),ADPO4(4),
     $              ONO3(MXEXIT),OTAM(MXEXIT),ONO2(MXEXIT),
     $              OPO4(MXEXIT),OSNH4(MXEXIT,4),OSPO4(MXEXIT,4),
     $              NUADDR(3),NUADWT(3)
C     end byte: 200000 word:50000
