Laserfiche WebLink
<br />ACTIVE TRUE; <br />PRE_EXEC_DIAG FALSE; <br />POST_EXEC_DIAG FALSE; <br />BEGIN <br /> <br />IF ( "GetMonth"( @"Current Timestep" ) < 4.00000000 ) <br />THEN <br />"Max"( $ "HistorieData.TunnelDmdFrcsl" [] . "SumFlowsToVolume"( $ "GunnisonTunneI.Diversion", @"24:00:00 January I, Current Year", @"Current Timestep" ). 0.00000000 ["acre-fl") ) <br />ELSE <br />IF ( "GetMonth"( @"Current Timestep" ) < 8.00000000 ) <br />THEN <br />"Max"( $ "HistoricData.TunnelDmdFrcst" []. "SumFIowsToVolume"( $ "GunnisonTunneI.Diversion", @"24:00:00Aprill. Current Year", @"Current Timestep"), 0.00000000 ["acre-fl")) <br />ELSE . <br />"Max"( $ "HistoricData.TunneIDmdFrcst" [] - "SumFlowsToVolume"( $ "GunnisonTunnel.Diversion", @"24:00:00 August I, Current Year", @"Current Timestep" ), 0.00000000 ["acre-fl"] ) <br />ENDlF <br />ENDlF; <br /> <br />END; <br /> <br />FUNCTION "CanvonRemaininRMinDmd" ( ) <br />RETURN_TYPE NUMERIC; <br />SCALE_UNITS ""; <br />DESCRIPTION ""; <br />ACTIVE TRUE; <br />PRE_EXEC_D1AG FALSE; <br />POST_EXEC_DIAG FALSE; <br />BEGIN <br /> <br />IF ( "GetMonth"( @"Current Timestep" ) < 4.00000ooo ) <br />TlIEN <br />"F1owToVolume"( "CanyonMinTroutTarget"( ), @"CurrentTimestep" ) · ("GetJulianDate"( @"24:oo:00 March 31, Current Year" ) - "GetJulianDate"( @"Previous rimestep" ) ) <br /> <br />~ I <br />IF ( "GetMonth"( @"Current Timestep" ) < 8.0?0ooooo ) <br /> <br />T~~~wTOVOIUme"( 300.0?0ooooo ["efs"). @"Current Timestep"). ("GetJulianDate"( @"24:oo:oo July 31. Current Year" ) - "GetJulianDate"( @"Previous Timesteb" ) ) + "FlowToVolume"( <br />"CanyonMinTroutTarget"( ) - 300.00000000 ["cfs"), @"Current Timestep" ). "Max"( "GetJulianDate"( @"24:oo:ooJune 15, Current Year" ) - "GetJulianDate"( @"Previous Timeslep"). 0.0000??oo) <br />ELSE I <br />"FlowToVolume"( "CanyonMinTroutTarget"( ),@"CurrentTimestep"). ("GetJulianDate"(@"24:00:00 December 31, Current Year") - "GetJulianDate"(@"PreviousTimestep")) <br />ENW I <br />ENDlF; , <br /> <br />END; <br /> <br />FUNCTION "BMOperVolumetoRelease" ( ) <br />RETURN_TYPE NUMERIC; <br />SCALE_UNITS ""; <br />DESCRIPTION H"; <br />ACTIVE TRUE; <br />PRE_EXEC_DIAG FALSE; <br />POS1"..EXEC_DIAG FALSE; <br />BEGIN <br /> <br />"BMVo]umetoRe]ease"( ) - "Max"( "CanyonRemainingMinDmd"( ) + "TunneIRemainingDmd"( ) - "BMtoCRRemaininglnflow"( ),0.00000000 ["acre-fl") ); <br /> <br />END; <br /> <br />FUNCTION "CROperVolumetoRelease" ( ) <br />