Laserfiche WebLink
<br />ENDDO <br />IF (SNSTD.NE.' ') THEN <br />DO M=1,360 ! all azimuths <br />READ(9, REC=K3D+M) DPI2 <br />DO L=1,230 <br />DO L=l,LIMITVUE <br />C extrap. to full 3-hour period, depth <br />DPI2(L) = NINT(F*FLOAT(DPI2(L))) <br />ENDDO <br />WRITE(17,REC=M)DPI2 <br />ENDDO <br />ENDIF <br />ENDIF <br /> <br />!! if want snow depth files <br /> <br />C <br /> <br />!! all 230 km <br />!! all ranges <br />!! all ranges @@@ <br /> <br />!! all 230 km <br /> <br />(SUBROUTINE FULLHOUR, lines 2529-2549, two more range restrictions) <br /> <br />DO M=L 360 !! all azimuths <br />READ (9 , REC=KIP+M) PPI2 !! all <br />DO L=1,230 !! all <br />DO L=l, LIMITVUE !! all <br />C extrap. to full I-hour period, precip <br />PPI2(L). = NINT(F*FLOAT(PPI2(L))) <br />ENDDO <br />WRITE(18,REC=M) PPI2 !! all 230 kID <br />ENDDO <br />IF (SNSTD.EQ.' ') RETURN <br />DO M=1,360 !! all <br />READ(9, REC=KID+M) DPI2 <br />DO L=I,230 <br />DO L=l,LIMITVUE <br />C extrap. to full I-hour period, depth <br />DPI2(L) = NINT(F*FLOAT(DPI2(L))) <br />ENDDO <br />WRITE(19,REC=M) DPI2 !! all 230 kID <br />ENDDO <br />RETURN <br />END <br /> <br />C <br /> <br />C <br /> <br />!! if <br />azimuths <br />!! all <br />!! all <br />!! all <br /> <br />230 kID <br />ranges <br />ranges @@@ <br /> <br />no snow depth files wanted <br /> <br />230 km <br />ranges <br />ranges @@@ <br /> <br />30 <br />