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,
     $              BFLAG,PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT,BUNIT,MESSU,MSGFL,LSNO,
     $              LSID,DELT,DELT60,DELT5,NDAY,NDAYS,DUMW,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,PRECFP,DUM2,
     $              SNIF,DUM3,NCRP,CRPDAT,DUM4,SOILD,SLME,SLSM,ULSM,
     $              LLSM,ALSM,WILTPT,DUM5,SURS,UZS,DUM6,LZS,AGWS,DUM7,
     $              SOSED,DUM8,SOSDFP,DUM9,SLTMP,ULTMP,LGTMP,DUM10,
     $              SLTFP,ULTFP,LGTFP,DUM11,MST,FRAC,MSTFP,FRACFP,
     $              DUM12,AGGTFG,PSWCNT,DUM13,NUPTFG,DUM14,CRPDAY,
     $              CRPFRC,DUM15,PHOIF,PHOIFX,PHOLIF,PSDIF,LIP4SX,
     $              LISDPX,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,TPHO,TOTP
      COMMON/SCRTCH/SPDFC,UPDFC,LPDFC,APDFC,TPDFC,SPFP,UPFP,IPFP,LPFP,
     $              APFP,TPFP,TPHFP,TPHOFP,PDFCTX,SKPLP,UKPLP,LKPLP,
     $              AKPLP,SPUPTG,UPUPTG,LPUPTG,APUPTG,PUPTGX,SPPUTG,
     $              UPPUTG,LPPUTG,APPUTG,SPRXF,UPRXF,LPRXF,APRXF,
     $              PCFX1,PCFX2,PCFX3,PCFX4,PCFX5,SOSEDP,POPHOS,PCFX6,
     $              PCFX7,PHADEP,SDPFP,TSP4SX,SSP4SX,P4IMBX,ORPMNX,
     $              OSDPFP,POPFP,PHADDX,PHADWX,PHADPX,DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              BFLAG(12),PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT(2),BUNIT(2),MESSU,
     $              MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,DUMW(2),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,NCRP,
     $              CRPDAT(4,3),SOSDFP,SLTFP,ULTFP,LGTFP,MSTFP(5),
     $              FRACFP(8),AGGTFG,PSWCNT(6),NUPTFG,CRPDAY(13,3),
     $              PHOIFX(3),LIP4SX(5),LISDPX(2),PHAFFP(2,2),
     $              PHACFP(2,2),VPUTFG,FORPFG,ITMAXP,BNUMP,CNUMP,
     $              PUPTFG,PHADFG(8),BIVLP,CIVLP,PWCNT(7),PECNT(1),
     $              SPFP(4),UPFP(4),IPFP,LPFP(4),APFP(4),TPFP(4),
     $              TPHFP(5),TPHOFP,PDFCTX(5),PUPTGX(4),SDPFP(2),
     $              TSP4SX(5),SSP4SX(3),P4IMBX(5),ORPMNX(5),OSDPFP,
     $              POPFP,PHADDX(2,2),PHADWX(2,2),PHADPX(2,2)
      REAL          DELT,DELT60,DELT5,SNIF(5),SOILD(4),SLME,SLSM,ULSM,
     $              LLSM,ALSM,WILTPT(4),SURS,UZS,LZS,AGWS,SOSED,SLTMP,
     $              ULTMP,LGTMP,MST(5),FRAC(8),CRPFRC(13,3),
     $              PHOIF(3,5),PHOLIF(5,5),PSDIF(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),TPHO(5),TOTP(5),SPDFC,
     $              UPDFC,LPDFC,APDFC,TPDFC,SKPLP,UKPLP,LKPLP,AKPLP,
     $              SPUPTG,UPUPTG,LPUPTG,APUPTG,SPPUTG,UPPUTG,LPPUTG,
     $              APPUTG,SPRXF(5),UPRXF(5),LPRXF(5),APRXF(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),PHADEP(2,2)
      INTEGER       DUM1(3),DUM2(28),DUM3(223),DUM4(352),DUM5(110),
     $              DUM6,DUM7(297),DUM8(12),DUM9(79),DUM10(8),
     $              DUM11(2186),DUM12(505),DUM13(780),DUM14(16),
     $              DUM15(1700),DUMPER(10812)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SOILM,SLME),
     $              (LIP4S,PHOLIF(1,1)),(LISEDP,PSDIF(1,1)),
     $              (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),UNIT(7),TIMFG(6),DATIM(5),PHOFG(6)
      REAL          PREC,SOILM(5),LIP4S(5),LISEDP(2),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
