Design og modellering af metanolanlæg til VEnzin-visionen Bilag
Design og modellering af metanolanlæg til VEnzin-visionen Bilag Design og modellering af metanolanlæg til VEnzin-visionen Bilag
VEnzin.for c:/dna/source/ CA ANTPK − OUTPUT − Number of parameters for the component. CA ANTLK − OUTPUT − Number of equations in the component. CA ANTEX − OUTPUT − Number of independent equations in the component. CA ANTED − OUTPUT − Number of differential independent equations. CA ANTKN − OUTPUT − Number of nodes connected to the component. CA ANTM1 − OUTPUT − Number of massflows in the first conservation of CA mass equation. CA MEDIE − IN/OUT − Media (fluid) of the connected nodes. CA The values mean : CA 2 : Coal. CA 8 : Water (liquid). CA 27 : Oxygen rich gas. CA 25 : Raw gas. CA 300 : Heat. CA ANTME − OUTPUT − Number of fluids with variable composition. CA VARME − OUTPUT − Fluid numbers (with variable composition). CA ANTEL − OUTPUT − Number of compounds in these variable fluids. CA VAREL − OUTPUT − Compound numbers in variable fluids. CA RES − OUTPUT − Residuals for the component. C CL M4 Mass flow of raw gas. CL DELP Pressure drop through the plant. CL PGAS Gasifier pressure. CL TGAS Gasifier temperature. CL DMVC Amount of water relative to amount of coal. CL XRAW Composition of raw gas. CL K_PAR Parameter description. CL K_LIG Equation description. CL K_BET Condition description. CL K_MED Media description. C C Subroutines : COMINF C REAC C CP Programmer : Brian Elmegaard 2000 (Bent Lorentzen 1994, Niels Emsholm 1991) CP Dept. Energy Engr., DTU, Denmark. C*********************************************************************** C C Include the common "environment" C INCLUDE ’ENVIRO.INI’ INCLUDE ’THERPROP.DEC’ INCLUDE ’GASI.DEC’ C C Parameter variables C INTEGER ANTLK, ANTEX, ANTKN, MEDIE(7), ANTPK, : ANTM1, ANTME, VARME(4), ANTEL(4), : VAREL(ANTST,4),MMVAR(MAXMM) DOUBLE PRECISION X_J(MAXME,ANTST), PAR(20), RES(30), : MDOT(5),P(5),Q(1),CP(MAXME),HV(MAXNM),HF(MAXME), : H(5),ZA(7),ZC(1) CHARACTER*80 KOMTY CHARACTER*80 ZANAM(7),PARNAM(20) C C Local variables C INTEGER K_MED(6),I,J,CALCOM(ANTST) DOUBLE PRECISION DELP, PGAS, TGAS, DMVC, : T4,H5,V,S,X,U,CC,NIN(ANTST+1),NOUT(ANTST+1), : M_BL(5),G(15),R,METH,XEQ(ANTST) CHARACTER*100 K_PAR(5),K_STAT(1) CHARACTER*500 K_LIG(30), K_BET,K_GRAF $ ,warnstring CHARACTER*1000 KOMDSC,K_INP CHARACTER*100 KMEDDS(7) EXTERNAL COMINF,GIBBS,STATES INTRINSIC DABS,DLOG,NINT,EXP INCLUDE ’THERPROP.INI’ INCLUDE ’GASI.INI’ C======================================================================= GOTO (100,200,1,400,400,200,350,1,250) FKOMP 1 RETURN C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− C Component name C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 100 CONTINUE KOMTY = ’GASIFI_3_VENZIN’ 7/67 19−03−2007
VEnzin.for c:/dna/source/ MMVAR(1) = 15 GOTO 9999 C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− C Component characteristics C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 200 CONTINUE KOMTY = ’GASIFI_3_VENZIN’ ANTKN = 7 ANTPK = 5+MMVAR(1) ANTLK = 23 ANTEX = 7 ANTM1 = 5 ZANAM(1) = ’MULTIPLIER H’ ZANAM(2) = ’MULTIPLIER C’ ZANAM(3) = ’MULTIPLIER N’ ZANAM(4) = ’MULTIPLIER O’ ZANAM(5) = ’MULTIPLIER S’ ZANAM(6) = ’MULTIPL Ar’ ZANAM(7) = ’GIBBS ENERGY’ DO I=1,ANTM1 PARNAM(I) = ’CAL COMPOUND’ ENDDO PARNAM(ANTM1+1) = ’EQ PRESSURE’ PARNAM(ANTM1+2) = ’EQ TEMPERAT’ PARNAM(ANTM1+3) = ’PRESSURELOSS’ c PARNAM(ANTM1+4) = ’STEAM FLOW’ PARNAM(ANTM1+4) = ’UNCONV CARBO’ PARNAM(ANTM1+5) = ’METHANE PERC’ MEDIE(1) = −5 MEDIE(2) = 97 MEDIE(3) = −4 MEDIE(4) = −4 MEDIE(5) = −5 MEDIE(6) = 300 MEDIE(7) = 999 ANTME = 4 VARME(1) = −1 VARME(2) = −3 VARME(3) = −4 VARME(4) = −5 ANTEL(1) = 0 ANTEL(2) = 0 ANTEL(3) = 15 ANTEL(4) = 2 VAREL(1,3) = 1 VAREL(2,3) = 2 VAREL(3,3) = 3 VAREL(4,3) = 4 VAREL(5,3) = 5 VAREL(6,3) = 6 VAREL(7,3) = 7 VAREL(8,3) = 8 VAREL(9,3) = 9 VAREL(10,3) = 10 VAREL(11,3) = 11 VAREL(12,3) = 30 VAREL(13,3) = 31 VAREL(14,3) = 32 VAREL(15,3) = 36 VAREL(1,4) = 28 VAREL(2,4) = 38 IF (FKOMP.EQ.6) GOTO 600 *** FKOMP = 3 GOTO 9999 C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− C Initialization of algebraic variables. C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 250 CONTINUE ZA(7) = −.1D+1 C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− C Specific heat, heat of formation, heating value of ashes C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 350 CONTINUE CP(MEDIE(5)) = 1 HF(MEDIE(5)) = −5083.0D0 HV(MEDIE(5)) = X_J(MEDIE(5),28)*NED_H(28)/M_MOL(28) GOTO 9999 C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 8/67 19−03−2007
- Page 227 and 228: 13. - 14. - 15. - 16. - 17. - 18. -
- Page 229 and 230: 17.124 GASCLE_2 Syngas cleaning. Th
- Page 231 and 232: 38. Compound number 39. Compound nu
- Page 233 and 234: 43. - 44. - 45. - 46. - 47. - 48. -
- Page 235 and 236: 17.124.5 Example struc Cleaner GASC
- Page 237 and 238: 10. - 11. - 12. - 13. - 17.125.4 Co
- Page 239 and 240: 7. - 8. - 9. - 10. - 11. - 12. - 13
- Page 241 and 242: 17.126.4 Conditions ˙m1 > 0 ˙m2 <
- Page 243 and 244: 11. - 12. - 13. - 14. - 15. - 16. -
- Page 245 and 246: 17.128 SET_M Utility component for
- Page 247 and 248: 4. - 5. - 6. - 7. - 8. - 9. - 10. -
- Page 249 and 250: 17.129.4 Conditions ˙m1 > 0 ˙m2 <
- Page 251 and 252: 17.130.4 Conditions ˙m1 > 0 ˙m2 <
- Page 253 and 254: 17.131.2 Equations Number of equati
- Page 255 and 256: 17.132 EL-MOTOR Motor with efficien
- Page 257 and 258: 8. - 9. - 17.133.3 Conditions ˙m1
- Page 259 and 260: 17.135 MIXER_03 Mixer for ideal gas
- Page 261 and 262: 33. - 34. - 35. - 36. - 37. - 38. -
- Page 263 and 264: 17.137 SET_X Utility component for
- Page 265 and 266: 17.138.4 Conditions ˙m1 > 0 ˙m2 <
- Page 267 and 268: 17.140 SET_FLOW Utillity component
- Page 269 and 270: 17.142 SET_TEMP2 Utillity component
- Page 271 and 272: 34. Tilføjede komponenter til DNA
- Page 273 and 274: VEnzin.for c:/dna/source/ C C Param
- Page 275 and 276: VEnzin.for c:/dna/source/ CA ANTED
- Page 277: VEnzin.for c:/dna/source/ IF (MDOT(
- Page 281 and 282: VEnzin.for c:/dna/source/ ENDDO DO
- Page 283 and 284: VEnzin.for c:/dna/source/ $fluid O2
- Page 285 and 286: VEnzin.for c:/dna/source/ C−−
- Page 287 and 288: VEnzin.for c:/dna/source/ CA FKOMP
- Page 289 and 290: VEnzin.for c:/dna/source/ ENDDO NIN
- Page 291 and 292: VEnzin.for c:/dna/source/ C Subrout
- Page 293 and 294: VEnzin.for c:/dna/source/ CALL STAT
- Page 295 and 296: VEnzin.for c:/dna/source/ CA 3: Flu
- Page 297 and 298: VEnzin.for c:/dna/source/ C C C M_B
- Page 299 and 300: VEnzin.for c:/dna/source/ C C SETFL
- Page 301 and 302: VEnzin.for c:/dna/source/ C C GASCO
- Page 303 and 304: VEnzin.for c:/dna/source/ RES(5) =
- Page 305 and 306: VEnzin.for c:/dna/source/ c c c E2=
- Page 307 and 308: VEnzin.for c:/dna/source/ C C HEATE
- Page 309 and 310: VEnzin.for c:/dna/source/ $ ’$\\d
- Page 311 and 312: VEnzin.for c:/dna/source/ c 1 = Wat
- Page 313 and 314: VEnzin.for c:/dna/source/ CA 4: Fin
- Page 315 and 316: VEnzin.for c:/dna/source/ CL K_MED
- Page 317 and 318: VEnzin.for c:/dna/source/ CA MEDIE
- Page 319 and 320: VEnzin.for c:/dna/source/ CA −4 :
- Page 321 and 322: VEnzin.for c:/dna/source/ C ENDDO E
- Page 323 and 324: VEnzin.for c:/dna/source/ MEDIE(2)
- Page 325 and 326: VEnzin.for c:/dna/source/ C C 400 C
- Page 327 and 328: VEnzin.for c:/dna/source/ GOTO 9999
<strong>VEnzin</strong>.for<br />
c:/dna/source/<br />
CA ANTPK − OUTPUT − Number of parameters for the component.<br />
CA ANTLK − OUTPUT − Number of equations in the component.<br />
CA ANTEX − OUTPUT − Number of independent equations in the component.<br />
CA ANTED − OUTPUT − Number of differential independent equations.<br />
CA ANTKN − OUTPUT − Number of nodes connected to the component.<br />
CA ANTM1 − OUTPUT − Number of massflows in the first conservation of<br />
CA mass equation.<br />
CA MEDIE − IN/OUT − Media (fluid) of the connected nodes.<br />
CA The values mean :<br />
CA 2 : Coal.<br />
CA 8 : Water (liquid).<br />
CA 27 : Oxygen rich gas.<br />
CA 25 : Raw gas.<br />
CA 300 : Heat.<br />
CA ANTME − OUTPUT − Number of fluids with variable composition.<br />
CA VARME − OUTPUT − Fluid numbers (with variable composition).<br />
CA ANTEL − OUTPUT − Number of compounds in these variable fluids.<br />
CA VAREL − OUTPUT − Compound numbers in variable fluids.<br />
CA RES − OUTPUT − Residuals for the component.<br />
C<br />
CL M4 Mass flow of raw gas.<br />
CL DELP Pressure drop through the plant.<br />
CL PGAS Gasifier pressure.<br />
CL TGAS Gasifier temperature.<br />
CL DMVC Amount of water relative to amount of coal.<br />
CL XRAW Composition of raw gas.<br />
CL K_PAR Parameter description.<br />
CL K_LIG Equation description.<br />
CL K_BET Condition description.<br />
CL K_MED Media description.<br />
C<br />
C Subroutines : COMINF<br />
C REAC<br />
C<br />
CP Pr<strong>og</strong>rammer : Brian Elmegaard 2000 (Bent Lorentzen 1994, Niels Emsholm 1991)<br />
CP Dept. Energy Engr., DTU, Denmark.<br />
C***********************************************************************<br />
C<br />
C Include the common "environment"<br />
C<br />
INCLUDE ’ENVIRO.INI’<br />
INCLUDE ’THERPROP.DEC’<br />
INCLUDE ’GASI.DEC’<br />
C<br />
C Parameter variables<br />
C<br />
INTEGER ANTLK, ANTEX, ANTKN, MEDIE(7), ANTPK,<br />
: ANTM1, ANTME, VARME(4), ANTEL(4),<br />
: VAREL(ANTST,4),MMVAR(MAXMM)<br />
DOUBLE PRECISION X_J(MAXME,ANTST), PAR(20), RES(30),<br />
: MDOT(5),P(5),Q(1),CP(MAXME),HV(MAXNM),HF(MAXME),<br />
: H(5),ZA(7),ZC(1)<br />
CHARACTER*80 KOMTY<br />
CHARACTER*80 ZANAM(7),PARNAM(20)<br />
C<br />
C Local variables<br />
C<br />
INTEGER K_MED(6),I,J,CALCOM(ANTST)<br />
DOUBLE PRECISION DELP, PGAS, TGAS, DMVC,<br />
: T4,H5,V,S,X,U,CC,NIN(ANTST+1),NOUT(ANTST+1),<br />
: M_BL(5),G(15),R,METH,XEQ(ANTST)<br />
CHARACTER*100 K_PAR(5),K_STAT(1)<br />
CHARACTER*500 K_LIG(30), K_BET,K_GRAF<br />
$ ,warnstring<br />
CHARACTER*1000 KOMDSC,K_INP<br />
CHARACTER*100 KMEDDS(7)<br />
EXTERNAL COMINF,GIBBS,STATES<br />
INTRINSIC DABS,DLOG,NINT,EXP<br />
INCLUDE ’THERPROP.INI’<br />
INCLUDE ’GASI.INI’<br />
C=======================================================================<br />
GOTO (100,200,1,400,400,200,350,1,250) FKOMP<br />
1 RETURN<br />
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−<br />
C Component name<br />
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−<br />
100 CONTINUE<br />
KOMTY = ’GASIFI_3_VENZIN’<br />
7/67<br />
19−03−2007