Design og modellering af metanolanlæg til VEnzin-visionen Bilag

VEnzin.for
c:/dna/source/
CALL STATES(P(3),H(3),T3,V,S,X,U,1,2,MEDIE(3))
C
C Pressure
C
RES(1) = P(3) − P(2)
RES(2) = P(1) − P(2) − DELP
C
C Outlet temperatures are identical
C
RES(3) = T2 − T3
C
C Mass flow of removed gas found using M1 and X_J
C
RES(4) = MDOT(3) + M3
C
C Variable mole ratios (first removed gas, then syngas)
C
DO I = 1,ANTST
RES(4+I)=X_J(MEDIE(3),I)−XUD(I)
RES(4+ANTST+I)=X_J(MEDIE(2),I)−N(I)/T_SUM
ENDDO
C
IF (FKOMP.EQ.5) GOTO 500
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Solution check
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
500 CONTINUE
IF (MDOT(1).LT.−1D−10) GOTO 550
IF (MDOT(2).GT.1D−10) GOTO 550
IF (MDOT(3).GT.1D−10) GOTO 550
IF (Q(1).GT.1D−10) GOTO 550
GOTO 9999
550 FBETI = .FALSE.
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Write component information
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
600 CONTINUE
KOMDSC = ’Syngas cleaning. The syntax is struc Componentname
$ GASCLE_2 7 1 2 3 301 0 8 9 10 31 32 38 39. So the first
$ number determines how many compounds is off−seperated. The
$ 7 numbers from 8 to 39 is therefore compound numbers (8
$ is $NH_3$).’
K_PAR(1) = ’Pressure loss: $\\Delta p$ [bar]’
DO I = 2,ANTST+1
K_PAR(I) = ’Compound number’
ENDDO
K_BET = ’$\\dot{m}_1 \\gt 0 \\\\ \\dot{m}_2 \\lt 0
$\\\\ \\dot{m}_3 \\lt 0 \\\\ \\dot{Q} \\lt 0$’
KMEDDS(1) = ’Dirty gas in’
KMEDDS(2) = ’Clean gas out’
KMEDDS(3) = ’Off−separated gas’
KMEDDS(4) = ’Heat loss’
k_inp=’struc Cleaner GASCLE_2 7 13 14 15 308 0 8 9 10 31 32 38 39
$\\\\media 13 GG 14 GG−clean 15 H2S\\\\
$fluid GG H2 0.5 CO 0.3 CO2 0.1 H2O−G 0.05 CH4 0.02 H2S 0.03\\\\
$addco Q Cleaner 308 0\\\\
$addco t Cleaner 13 70 p 13 1 m Cleaner 13 1\\\\
$START M Cleaner 14 −0.93 t Cleaner 14 70\\\\
$START Y_J GG−clean H2 0.5 Y_J GG−clean CO 0.30\\\\
$start Y_J GG−clean CO2 0.1 Y_J H2S H2S 1’
C
9999 CONTINUE
RETURN
END
C=======================================================================
C***********************************************************************
SUBROUTINE STEAM_REFORMER(KOMTY,ANTLK,ANTEX,ANTKN,ANTPK,ANTM1,
$ MMVAR,PARNAM,ZANAM,MEDIE, ANTME,VARME,ANTEL,VAREL,MDOT,P,H,Q
$ ,PAR,ZA, RES,X_J,KOMDSC,KMEDDS,K_PAR,K_LIG ,K_BET,k_inp)
C***********************************************************************
C
C STEREF_0 is a model of a steam reformer. The outlet composition is
C based on an assumption of chemical equilibrium.
C
C***********************************************************************
C
15/67
19−03−2007