C150227 Final Report

• Applicant: South Platte Ditch Company
• Grant Type: Non-Reimbursable
• Fiscal Year ‎(i.e. 2008)‎: 2006
• Project Name: Canal Modernization and Radio Telemetry Demonstration Project
• CWCB Section: Finance
• Contract/PO #: C150227
• Grants - Doc Type: Final Deliverables

REM 11505 IF REGREAD(4101) =1 THEN 11510 ELSE 11600
REM if alarm type reg =1, process flow alarms
REM check alarms, if true, write alarm value
REM 11510 IF Q1 <REGREAD(7070) THEN REGWRITE 4111,3
REM check hi alarm
REM 11520 IF Ql >REGREAD(7071) THEN REGWRITE 4111,4
REM--------------- - - - - --
REM calculate volume since last reading
rem get measurement interval
11590 pt = regread(7094)
rem flume 1
11600 IF Q1 >0 THEN VOL1= (Q1 *PT) *60/43560
rem flume 2
11605 IF Q2 >0 THEN VOL2= (Q2 *PT) *60/43560
REM retrieve previous volume sum
rem flume 1
11610 VOLSUMI= REGREAD(7049)
rem Flume 2
11615 VOLSUM2= REGREAD(7050)
REM add current volume to previous volume
rem flume 1
11620 IF Q1 >0 THEN volsuml= VOLSUMI +VOL1
rem flume 2
11625 IF Q2 >0 THEN VOLSUM2= VOLSUM2 +VOL2
REM save volume sum to non - volatile register
rem flume 1
11630 IF Q1>0 THEN REGWRITE 7049,VOLSUMI
rem flume 2
11635 IF Q2 >0 THEN REGWRITE 7050,VOLSUM2
REM print totalized volume to computer screen
11640 PRINT USING( # # #. # # # # #),
11650 PRINT "Flume 1 Calculated Acre Ft Volume = ", VOLSUMI," AF"
11660 PRINT "Flume 2 Calculated Acre Ft Volume = ", VOLSUM2," AF"
rem YTD volumes
11661 print using(0),
11663 print "Flume 1 YTD acre Ft Volume= ",regread(ytd) +volsuml
11667 print "Flume 2 YTD acre Ft Volume= ",regread(ytd +10) +volsum2
REM print depth, discharge and volume to lcd
11670 PRINT USING( # # # #. # #),
REM reset wdt
11680 REGWRITE 31,0
11690 PRINT #2, CHR(12),
11700 PRINT #2, "Flume 1 Readings:"
11705 PRINT #2, " Dpth = ",(Y1 +0.001), "FT"
11710 PRINT #2, " Flow = ",(Q1 +0.001), "CFS"
11715 PRINT #2, " Vol = ",(VOLSUMI), "AF"
REM delay then display 2nd flume
11720 CLEAR TICK(0)
11730 DO : UNTIL TICK(0)> 5
REM display flume 2
11740 PRINT #2, CHR(12),
11745 PRINT #2, "Flume 2 Readings:"
39