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

VEnzin.for
c:/dna/source/
C
RES(49) = TPH − TPL − ZC(1)
C
RES(3) = ZA(7) − MDOT(5)*(H(6)−H(5))
C
IF (FKOMP.EQ.5) GOTO 500
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Solution check
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
500 CONTINUE
CALL STATES(P(1),H(1),T1,V,S,X,U,1,2,MEDIE(1))
CALL STATES(P(2),H(2),T2,V,S,X,U,1,2,MEDIE(2))
CALL STATES(P(5),H(5),T5,V,S,X,U,1,2,MEDIE(5))
CALL STATES(P(6),H(6),T6,V,S,X,U,1,2,MEDIE(6))
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 (MDOT(4).GT.1D−10) GOTO 550
IF (MDOT(5).LT.−1D−10) GOTO 550
IF (MDOT(6).GT.1D−10) GOTO 550
IF (T1−T2.LT.−1.D−10) GOTO 550
IF (T1−T6.LT.−1.D−10) GOTO 550
IF (T6−T5.LT.−1.D−10) GOTO 550
IF (T2−T5.LT.−1.D−10) GOTO 550
IF (T.GT.T1) GOTO 550
IF (ZC(1).LT.PAR(3)−1D−2) GOTO 550
GOTO 9999
550 FBETI = .FALSE.
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Write component information
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
600 CONTINUE
KOMDSC = ’Gas cooler with outlet for condensed water and
$ methanol. The pinch point temperature is set as a parameter.
$ The component checks if the pinch point is at the inlet or
$ outlet − or where the condensation starts. If the cooling
$ medium evaporates the component also checks if the pinch
$ point is where the evaporation starts.’
K_PAR(1) = ’Pressure loss side 1: $\\Delta p$ [bar]’
K_PAR(2) = ’Pressure loss side 2: $\\Delta p$ [bar]’
K_PAR(3) = ’Minimum pinch point temperature diffence’
K_BET = ’$\\dot{m}_1 \\gt 0 \\\\ \\dot{m}_2 \\lt 0 \\\\
$\\dot{m}_3 \\lt 0 \\\\ \\dot{m}_4 \\lt 0 \\\\ \\dot{m}_5 \\gt 0
$\\\\ \\dot{m}_6 \\lt 0 \\\\ T_1 \\gt T_2 \\\\ T_1 \\gt T_6 \\\\ T_
$2 \\gt T_5 \\\\ T_6 \\gt T_5 \\\\ T_1 \\gt T_{condensation} \\\\$
$node 7 $\\gt$ Parameter 3’
KMEDDS(1) = ’Hot gas inlet’
KMEDDS(2) = ’Hot gas outlet’
KMEDDS(3) = ’Water condensate outlet’
KMEDDS(4) = ’Methanol condensate outlet’
KMEDDS(5) = ’Coolant inlet’
KMEDDS(6) = ’Coolant outlet’
KMEDDS(7) = ’Pinch point temperature diffence’
K_INP=’STRUC Cooler GASCOOL4 3 5 6 7 10 11 901 0 0 10\\\\
$MEDIA 10 STEAM 5 Coolgas 3 FG\\\\
$FLUID FG H2 0.4844 CO2 0.2815 7 0.10 CH3OH 0.10 N2 0.0341\\\\
$addco p 3 144 t Cooler 3 410 m Cooler 3 22.1\\\\
$addco P 10 400 t Cooler 5 109 t Cooler 11 300\\\\
$addco ZC 901 10\\\\
$START M Cooler 5 −16 M Cooler 6 −1.9 M Cooler 10 19\\\\
$START t Cooler 6 109 t Cooler 10 50\\\\
$START ZA Cooler 4 207\\\\
$START Y_J Coolgas H2 0.59 Y_J Coolgas N2 0.04 Y_J Coolgas CO2 0.34
$’
C
9999 CONTINUE
RETURN
END
C=======================================================================
C***********************************************************************
SUBROUTINE MIXING_TANK(KOMTY,ANTLK,ANTEX,ANTKN,ANTPK,ANTM1,
& ANTM2,MEDIE,ANTME,VARME,
& MDOT,P,H,Q,ZA,PAR,RES,PARNAM,ZANAM,
$ KOMDSC,KMEDDS,K_PAR,K_LIG,K_STAT,K_BET,k_inp)
C***********************************************************************
35/67
19−03−2007