C     from CPLSN.INC   
C     PERLND module common
C            SNOW 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,
     $              AIRTMP,DUM3,AIRTFP,SNIF,DTMPG,WINMOV,SOLRAD,DTGFP,
     $              WINMFP,SOLRFP,CCFP,ICEFG,SNOPFG,VKMFG,SVP,LAT,
     $              MELEV,SHADE,SNOWCF,COVIND,KMELT,TBASE,RDCSN,TSNOW,
     $              SNOEVP,CCFACT,MWATER,MGMELT,KMELTM,DRYFG,IREGFG,
     $              SNOFFG,RAINFG,HR6FG,SNWCNT,SNECNT,PACKF,PACKW,
     $              PACKI,PDEPTH,COVINX,NEGHTS,XLNMLT,RDENPF,SKYCLR,
     $              SNOCOV,DULL,ALBEDO,PAKTMP,DEWTMP,SNOTMP,SNST4,
     $              RDNSN,MNEGHS,PACKWC,NEGHT,GMELTR,COMPCT,SNOWEP,
     $              MOSTHT,VAP,PACKFP,PFFP,PWFP,PIFP,PDEPFP,COVXFP,
     $              NHTSFP,XLNMFP,RDPFFP,SKYCFP,SNOCFP,DULLFP,ALBFP,
     $              PAKTFP,DEWTFP,SNOTFP,SNCF1,SNCF2,RAINF,SNFFP
      COMMON/SCRTCH/PRNFP,SNEFP,WYFP,MELTFP,RNFFP,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,
     $              AIRTFP,DTGFP,WINMFP,SOLRFP,CCFP,ICEFG,SNOPFG,
     $              VKMFG,DRYFG,IREGFG,SNOFFG,RAINFG,HR6FG,SNWCNT(1),
     $              SNECNT(2),PACKFP,PFFP,PWFP,PIFP,PDEPFP,COVXFP,
     $              NHTSFP,XLNMFP,RDPFFP,SKYCFP,SNOCFP,DULLFP,ALBFP,
     $              PAKTFP,DEWTFP,SNOTFP,SNFFP,PRNFP,SNEFP,WYFP,
     $              MELTFP,RNFFP
      REAL          DELT,DELT60,DELT5,AIRTMP,SNIF(5),DTMPG,WINMOV,
     $              SOLRAD,SVP(40),LAT,MELEV,SHADE,SNOWCF,COVIND,
     $              KMELT,TBASE,RDCSN,TSNOW,SNOEVP,CCFACT,MWATER,
     $              MGMELT,KMELTM(12),PACKF,PACKW,PACKI,PDEPTH,COVINX,
     $              NEGHTS,XLNMLT,RDENPF,SKYCLR,SNOCOV,DULL,ALBEDO,
     $              PAKTMP,DEWTMP,SNOTMP,SNST4(5),RDNSN,MNEGHS,PACKWC,
     $              NEGHT,GMELTR,COMPCT,SNOWEP,MOSTHT,VAP,SNCF1(5,5),
     $              SNCF2(2,5),RAINF
      INTEGER       DUM1(3),DUM2(25),DUM3,DUMPER(17681)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SNPM1,LAT),(SNPM2,RDCSN),
     $              (SNST1,PACKF),(SNST2,RDENPF),(SNST3,PAKTMP),
     $              (PACK,SNST4),(SNOWF,SNCF1(1,1)),
     $              (PRAIN,SNCF1(2,1)),(SNOWE,SNCF1(3,1)),
     $              (WYIELD,SNCF1(4,1)),(MELT,SNCF1(5,1)),
     $              (PAKIN,SNCF2(1,1)),(PAKDIF,SNCF2(2,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5)
      REAL          PREC,SNPM1(7),SNPM2(6),SNST1(7),SNST2(5),SNST3(3),
     $              PACK,SNOWF,PRAIN,SNOWE,WYIELD,MELT,PAKIN,PAKDIF
C     end byte:  72000 word:18000
