C     from CPLPH.INC   
C     PERLND module common
C            PHOS section
      COMMON/SCRTCH/AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG,
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT,
     $              MESSU,MSGFL,LSNO,LSID,DELT,DELT60,DELT5,NDAY,
     $              NDAYS,NBLKSI,NBLKS,HRFG,DAYFG,STFG,EDAYFG,EMONFG,
     $              EPYRFG,YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,NXTMON,
     $              SPAFP,SPAKND,SPIVL,SPOPNO,DUMGEN,DUM1,PRECFP,DUM2,
     $              SNIF,DUM3,SURS,UZS,DUM4,LZS,AGWS,DUM5,SURSB,UZSB,
     $              DUM6,SOSED,DUM7,SOSDFP,DUM8,SOSDB,DUM9,SOSDBX,
     $              DUM10,SLTMP,ULTMP,LGTMP,DUM11,SLTFP,ULTFP,LGTFP,
     $              DUM12,MST,FRAC,MSTFP,FRACFP,MSTB,FRACB,MSTBFP,
     $              FRACBX,DUM13,SLME,SLSM,ULSM,LLSM,ALSM,DUM14,
     $              AGGTFG,PSWCNT,DUM15,NUPTFG,DUM16,NCRP,CRPDAT,
     $              CRPDAY,CRPFRC,DUM17,WILTPT,DUM18,PHOIF,PHAFFP,
     $              PHACFP,VPUTFG,FORPFG,ITMAXP,BNUMP,CNUMP,PUPTFG,
     $              PHADFG,PUPTGT,PMXRAT,PHAFXM,PHACNM,SKPLPM,UKPLPM,
     $              LKPLPM,AKPLPM,PUPTFM,SPUPTM,UPUPTM,LPUPTM,APUPTM,
     $              GPPM,SPPM,UPPM,LPPM,APPM,BIVLP,CIVLP,PWCNT,PECNT,
     $              SP,UP,IP,LP,AP,TP,TOTP,SPDFC,UPDFC,LPDFC,APDFC
      COMMON/SCRTCH/TPDFC,SPFP,UPFP,IPFP,LPFP,APFP,TPFP,TPHOFP,PDFCTX,
     $              SPB,UPB,IPB,SKPLP,UKPLP,LKPLP,AKPLP,SPUPTG,UPUPTG,
     $              LPUPTG,APUPTG,PUPTGX,SPPUTG,UPPUTG,LPPUTG,APPUTG,
     $              SPRXF,UPRXF,LPRXF,APRXF,SPRXFB,UPRXFB,PCFX1,PCFX2,
     $              PCFX3,PCFX4,PCFX5,SOSEDP,POPHOS,PCFX6,PCFX7,SDPFP,
     $              TSP4SX,SSP4SX,OSDPFP,POPFP,PHADDX,PHADWX,DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT(2),
     $              MESSU,MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,NBLKS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,DUMGEN(15),PRECFP,SOSDFP,SOSDBX(5),SLTFP,
     $              ULTFP,LGTFP,MSTFP(5),FRACFP(8),MSTBFP(3,5),
     $              FRACBX(5,5),AGGTFG,PSWCNT(6),NUPTFG,NCRP,
     $              CRPDAT(4,3),CRPDAY(13,3),PHAFFP(2,2),PHACFP(2,2),
     $              VPUTFG,FORPFG,ITMAXP,BNUMP,CNUMP,PUPTFG,PHADFG(8),
     $              BIVLP,CIVLP,PWCNT(6),PECNT(1),SPFP(4),UPFP(4),
     $              IPFP,LPFP(4),APFP(4),TPFP(4),TPHOFP,PDFCTX(5),
     $              PUPTGX(4),SDPFP(2),TSP4SX(5),SSP4SX(3),OSDPFP,
     $              POPFP,PHADDX(2,2),PHADWX(2,2)
      REAL          DELT,DELT60,DELT5,NBLKSI,SNIF(5),SURS,UZS,LZS,
     $              AGWS,SURSB(5),UZSB(5),SOSED,SOSDB(5),SLTMP,ULTMP,
     $              LGTMP,MST(5),FRAC(8),MSTB(3,5),FRACB(5,5),SLME,
     $              SLSM,ULSM,LLSM,ALSM,CRPFRC(13,3),WILTPT(4),
     $              PHOIF(2,5),PUPTGT,PMXRAT,PHAFXM(12,2,2),
     $              PHACNM(12,2,2),SKPLPM(12),UKPLPM(12),LKPLPM(12),
     $              AKPLPM(12),PUPTFM(12),SPUPTM(12),UPUPTM(12),
     $              LPUPTM(12),APUPTM(12),GPPM(6),SPPM(8),UPPM(8),
     $              LPPM(8),APPM(8),SP(4),UP(4),IP,LP(4),AP(4),TP(4),
     $              TOTP(5),SPDFC,UPDFC,LPDFC,APDFC,TPDFC,SPB(4,5),
     $              UPB(4,5),IPB(5),SKPLP,UKPLP,LKPLP,AKPLP,SPUPTG,
     $              UPUPTG,LPUPTG,APUPTG,SPPUTG,UPPUTG,LPPUTG,APPUTG,
     $              SPRXF(5),UPRXF(5),LPRXF(5),APRXF(5),SPRXFB(5,5),
     $              UPRXFB(5,5),PCFX1(2,5),PCFX2(5,5),PCFX3(3,5),
     $              PCFX4(5,5),PCFX5(5,5),SOSEDP,POPHOS,PCFX6(2,2,5),
     $              PCFX7(2,2,5)
      INTEGER       DUM1(3),DUM2(28),DUM3(289),DUM4,DUM5(30),
     $              DUM6(438),DUM7(12),DUM8(51),DUM9(10),DUM10(77),
     $              DUM11(8),DUM12(1544),DUM13(259),DUM14(120),
     $              DUM15(774),DUM16(16),DUM17(2),DUM18(1867),
     $              DUMPER(11490)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(UNIT,UUNITS),
     $              (TIMFG,HRFG),(DATIM,YR),(PREC,SNIF),(SOILM,SLME),
     $              (PHOFG,VPUTFG),(PYLDPM,PUPTGT),(TOTPHO,TOTP(1)),
     $              (PDFCT,SPDFC),(KPLP,SKPLP),(PUPTG,SPUPTG),
     $              (SEDP,PCFX1(1,1)),(TSP4S,PCFX2(1,1)),
     $              (SSP4S,PCFX3(1,1)),(P4IMB,PCFX4(1,1)),
     $              (ORPMN,PCFX5(1,1)),(PHADDR,PCFX6(1,1,1)),
     $              (PHADWT,PCFX7(1,1,1))
      INTEGER       ASVEC(12),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5),
     $              PHOFG(6)
      REAL          PREC,SOILM(5),PYLDPM(2),TOTPHO,PDFCT(5),KPLP(4),
     $              PUPTG(4),SEDP(2),TSP4S(5),SSP4S(3),P4IMB(5),
     $              ORPMN(5),PHADDR(2,2),PHADWT(2,2)
C     end byte:  72000 word:18000
