00030	C            #####################################################¶
00040	C            ###                 UCB DAVIS HALL                ###¶
00050	C	   ###		    BERKELEY, CA                 ###¶
00060	C	   ###	                 MBC03		   ###¶
00070	C            ###           CHILLED WATER SYSTEM PPCL           ###¶
00080	C            ###                  		             ###¶
00090	C            #####################################################¶
00100	C¶
00110	C¶
00120	C	$LOC1  = BOTH CHILLERS RUNNING EVAPORATOR BUNDLE DELTA T LOAD CALCULATION¶
C         $LOC2  = CONDENSER WATER PUMP 1/2 PROOF OF RUNNING TRIGGER¶
00380	C ********************************************************************************¶
00390	C¶
00400	C *** POWER FAILURE AND DEFINE STATEMENT CONTROL ***¶
00410	C¶
01000	ONPWRT(1020)¶
01010	GOTO 1040¶
01020	SET(0.0,SECNDS)¶
01030	LOCAL(LOC16)¶
01040	DEFINE(A,"SDH.CHW1.")¶
01045	$LOC16 = "SDH.CH1.CHW.FLOW"¶
01050	IF("SDH.CH1.CHW.FLOW" .OR. "SDH.CH2.CHW.FLOW") THEN ON("SDH.CHX.CHW.FLOW") ELSE OFF("SDH.CHX.CHW.FLOW")¶
01052	"SDH.CHW_BYPASS_VLV_LOOPOUT" = $LOC13¶
01060	C IF("!PXCM03:BATT" .EQ. DEAD) THEN ON("MBC03.BATTERY") ELSE OFF("MBC03.BATTERY")¶
01070	C *** CHILLER EMERGENCY POWER LOAD STAGGER CONTROL ***¶
01080	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "SDH.CH1.START.STOP" .EQ. @OPER) THEN RELEAS(@OPER,"SDH.CH1.START.STOP")¶
01090	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "SDH.CH2.START.STOP" .EQ. @OPER) THEN RELEAS(@OPER,"SDH.CH2.START.STOP")¶
01100	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CH_SEQ" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CH_SEQ")¶
01110	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CHP1_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CHP1_SS")¶
01120	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CHP2_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CHP2_SS")¶
01130	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CHP3_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CHP3_SS")¶
01140	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CWP1_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CWP1_SS")¶
01150	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CWP2_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CWP2_SS")¶
01160	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CWP3_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CWP3_SS")¶
01170	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CWP4_SS" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CWP4_SS")¶
01180	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "%A%CWP34_LEAD" .EQ. @OPER) THEN RELEAS(@OPER,"%A%CWP34_LEAD")¶
01190	C¶
01200	C IF("SDH.ATS_E01.NORM" .EQ. OFF .AND. "SDH.ATS_E01.EMER" .EQ. OFF) THEN OFF(@EMER,"%A%CWP34_LEAD","%A%CHP2_SS","SDH.CH1.START.STOP")¶
01210	C IF("SDH.ATS_E01.EMER" .EQ. ON) THEN ON(@EMER,"SDH.CH1.START.STOP")¶
01220	C IF("SDH.ATS_E01.NORM" .EQ. OFF) THEN OFF(@EMER,"%A%CWP1_SS","%A%CWP2_SS","%A%CHP1_SS","SDH.CH2.START.STOP")¶
01230	C¶
01240	C IF("SDH.ATS_E01.NORM" .EQ. ON .AND. "SDH.CH1.START.STOP" .EQ. @EMER) THEN RELEAS(@EMER,"SDH.CH1.START.STOP")¶
01245	C IF("SDH.ATS_E01.NORM" .EQ. ON .AND. "SDH.CH2.START.STOP" .EQ. @EMER) THEN RELEAS(@EMER,"SDH.CH2.START.STOP")¶
01250	C IF("SDH.ATS_E01.NORM" .EQ. ON .OR. "SDH.ATS_E01.EMER" .EQ. ON) THEN RELEAS(@EMER,"%A%CWP34_LEAD","%A%CHP2_SS")¶
01255	C IF("SDH.ATS_E01.NORM" .EQ. ON) THEN RELEAS(@EMER,"%A%CWP1_SS","%A%CWP2_SS","%A%CHP1_SS")¶
01260	C¶
01270	C *** CHILLER SEASONAL SEQUENCE CHANGE CONTROL ***¶
01280	IF(MONTH .GE. 4.0 .AND. MONTH .LE. 9.0) THEN ON("%A%CH_SEASON") ELSE OFF("%A%CH_SEASON")¶
01290	IF(("%A%CH_SEASON" .EQ. ON .OR. "%A%CH2_FAIL" .EQ. ON) .AND. "%A%CH1_FAIL" .EQ. OFF) THEN "%A%CH_SEQ" = 12.0¶
01300	IF(("%A%CH_SEASON" .EQ. OFF .OR. "%A%CH1_FAIL" .EQ. ON) .AND. "%A%CH2_FAIL" .EQ. OFF) THEN "%A%CH_SEQ" = 21.0¶
01310	C