12.07.2015 Views

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

&&ElseEnd IfActPow=0ActPow = PCONDR(ICON1)*CONVAR(ICON1,2)*(SHTFLD(3,CONVAR(ICON1,1))*CONVAR(ICON1,1)- SHTFLD(3,CSVF(INOD1,1))*CSVF(INOD1,1))C Absorption chiller actual ON/OFF statePCDATF(IPCOMP,1)=IONOFFC Establish heat capacity (J/K) <strong>of</strong> the thermal masses <strong>of</strong> Node 1, CW1,C Node 2, CW2, and Node 3, CW3.CW1 = ADATA(IPCOMP,1)*ADATA(IPCOMP,2)CW2 = ADATA(IPCOMP,3)*ADATA(IPCOMP,4)CW3 = ADATA(IPCOMP,5)*ADATA(IPCOMP,6)C Establish fluid heat capacity rates for the three stream flows (W/K)C For chilled water streamC1=PCONDR(ICON1)*CONVAR(ICON1,2)*SHTFLD(3,CONVAR(ICON1,1))C For cooling water streamC2=PCONDR(ICON2)*CONVAR(ICON2,2)*SHTFLD(3,CONVAR(ICON2,1))C For hot water streamC3=PCONDR(ICON3)*CONVAR(ICON3,2)*SHTFLD(3,CONVAR(ICON3,1))C Calculate Time ConstantTC(IPCOMP)=AMAX1& (CW1/AMAX1(Small,C1),CW2/AMAX1(Small,C2),& CW3/AMAX1(Small,(C3+UA)))C Set up implicit/explicit weighting factor ALPHA (1 = fully implicit)IF(IMPEXP.EQ.1) THENALPHA=1298

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!