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 check for minimum depth to do calcs
11240 IF Y1<YMIN1 THEN Y1 =0
11245 IF Y2<YMIN2 THEN Y2 =0
REM ---------------- - - - - --
REM * * ** DEPTH ALARMS * * **
REM ---------------- - - - - --
REM check depth alarms, check alarm enable
REM 11300 IF REGREAD(4100) =0 THEN 11400
REM check alarm type
REM 11305 IF REGREAD(4101) =0 THEN 11310 ELSE 11400
REM if alarm type reg =0, process depth alarms
REM check for local alarm reset. if true, do not
REM read alarms for x minutes after local reset.
11300 IF TAG= I.AND.TICK(1)<600 THEN GOTO 11400 ELSE 11310
REM clear local alarm reset tag
11310 TAG =O
REM check alarms, if true, write alarm value
REM check to alarm for enabled value
11350 IF REGREAD(7070) >O THEN 11360 ELSE 11370
REM compare to alarm status, set alarm
11360 IF Y1<REGREAD(7070) THEN REGWRITE 4111,1
REM check hi alarm for enabled value
11370 IF REGREAD(7071) >O THEN 11380 ELSE 11400
REM compare hi alarm status, set alarm
11380 IF Y1 >REGREAD(7071) THEN REGWRITE 4111,2
REM ----------------- - - - - --
REM calculate (Q) discharge (flow)
REM get multipliers & exponents from modbus registers
11400 K1= REGREAD(7041) : K2= REGREAD(7042)
11405 K3= REGREAD(7043) : K4= REGREAD(7044)
11410 U1= REGREAD(7045) : U2= REGREAD(7046)
REM calculate flow (if Y >O)
REM power equation formula
11420 IF Y1>0 THEN Q1= K1 *(Y1 +K3) * *U1
11425 IF Y2 >0 THEN Q2= K2 *(Y2 +K4) * *U2
REM set q =0 when sensor output < =0
11430 IF Y1< =0 THEN Q1 =0
11435 IF Y2< =0 THEN Q2 =0
REM print flow to computer screen
11440 PRINT "Flume 1 Calculated Flow Volume(Q1) = ", Q1," CFS"
11445 PRINT "Flume 2 Calculated Flow Volume(Q2) = ", Q2," CFS"
REM--------------- - - - - --
REM * * ** FLOW ALARMS * * **
REM --------------- - - - - --
REM check flow alarms, check alarm enable
REM 11500 IF REGREAD(4100) =0 THEN 11600
REM check alarm type
38