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

VEnzin.for
c:/dna/source/
RES(3) = P(1) − P(3)
RES(4) = MDOT(1)*PAR(1) + MDOT(2)
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
GOTO 9999
550 FBETI = .FALSE.
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Write component information
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
600 CONTINUE
KOMDSC = ’Flow splitter. The distribution of the inlet massflow
$ between the outlets is set by the parameter.’
K_PAR(1) = ’Fraction: $\\frac{−\\dot{m_2}}{\\dot{m_1}}$’
K_LIG(1) = ’Equal enthalpy of outlets: $h_2 = h_3$’
K_LIG(2) = ’Equal pressures: $p_1 = p_2$’
K_LIG(3) = ’Equal pressures: $p_1 = p_3$’
K_BET =
$ ’$\\dot{m}_1 \\gt 0 \\\\ \\dot{m}_2 \\lt 0 \\\\ \\dot{m}_3
$\\lt 0 $’
KMEDDS(1) = ’Fluid in’
KMEDDS(2) = ’Fluid out’
KMEDDS(3) = ’Fluid out’
k_inp= ’struc split splitter3 1 2 3 0.4\\\\
$media 1 SIMPLE_AIR\\\\
$addco m split 1 10 t split 1 50 p 1 1\\\\
$START M split 2 −4 t split 2 50’
C
GOTO 9999
C
9999 CONTINUE
RETURN
END
C
C=======================================================================
C**********************************************************************
SUBROUTINE MIXER_03(KOMTY,ANTLK,ANTKN,ANTM1, MEDIE,ANTME,VARME
$ ,ANTEL, VAREL,MDOT,P,RES,X_J,komdsc,k_lig,k_bet,kmedds,k_inp
$ ,MMVAR)
C**********************************************************************
C
C MIXER_01 mixes two gasses. Same pressure in all nodes.
C
C***********************************************************************
C
CA FKOMP − INPUT − Flag with the value:
CA 1: Initialize the component.
CA 2: Initialize with actual system.
CA 3: Fluid composition calculation (constant).
CA 4: Find residuals.
CA 5: Find residuals and check variables.
CA 6: Output information about component.
CA MDOT − INPUT − Massflows from nodes.
CA P − INPUT − Pressure in nodes.
CA X_J − INPUT − Fluid composition.
CA KOMTY − OUTPUT − Component name.
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 ANTM2 − OUTPUT − Number of massflows in the second.
CA DYCOM − OUTPUT − Type of conservation equations (static or dynamic
CA mass and internal energy on side 1 and 2 respectively;
CA and dynamic solid internal energy).
CA MEDIE − IN/OUT − Media (fluid) of the connected nodes.
CA The values mean :
47/67
19−03−2007