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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

&COMMON/PCOND/CONVAR(MPCON,MCONVR),ICONTP(MPCON),ICONDX(MPCOM,MNODEC,MPCONC)COMMON/PCDAT/PCDATF(MPCOM,MPCDAT),PCDATP(MPCOM,MPCDAT)COMMON/PCRES/QDATA(MPCOM),PCAOUT(MPCOM,MPCRES),napdat(mpcom)COMMON/WRNOFF/IWMOFFREALINTEGER napdatQDATA,PCAOUTPARAMETER (SMALL=1.0E-15)REAL COUT(MPCOE)Logical closeacharacter outs*124C Values used throughout the calculationsREAL zmref, zmwk, zmst, f, XST, XWK,& T1, T3, T4, T5, T7, T8, T10,& h1, h2, h3, h4, h5, h7, h8, h10,& zlPst, Pscst, GST, DST, COP,& zlPwk, Pscwk, GWK, DWK, EEPump,& rB, rE, rF, rG, rD, Wpump, ActPow,& Phigh, Plow, ChPowC Trace outputIF(ITC.GT.0.AND.NSINC.GE.ITC.AND.NSINC.LE.ITCF.AND.& ITRACE(37).NE.0) WRITE(ITU,*) 'Entering subroutine CMP73C'C Check control data for relevant balance typeIF(ISTATS.EQ.1.AND.& (CDATA(IPCOMP,1).LT.0..OR.CDATA(IPCOMP,1).GT.1.)) THENCALL DAYCLK(IDYP,PTIMEF,IUOUT)WRITE(outs,*) ' CMP73C: invalid control data for component ',& IPCOMP,' : ',CDATA(IPCOMP,1)call edisp(iuout,outs)284

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

Saved successfully!

Ooh no, something went wrong!