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

VEnzin.for
c:/dna/source/
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component equations. All in residual form.
C Do not include the conservation laws. These are treated automatically
C by DNA.
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
400 CONTINUE
C
RES(1) = P(1) − P(2)
RES(2) = ZC(1)*ZC(2) − MDOT(1)
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
GOTO 9999
550 FBETI = .FALSE.
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Write component information
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
600 CONTINUE
KOMDSC = ’Utillity component for setting the massflow based on 2
$ control signals (ZC) − typicly one control signal for a
$ measured massflow and the other a fraction. The component
$ MEASURE_FLOW can be used.’
K_LIG(1) = ’Equal pressures: $p_1 = p_2$’
K_LIG(2) = ’Massflow: $\\dot{m_1} = ZC(1)*ZC(2)$’
K_BET = ’$\\dot{m_1} \\gt 0 \\\\ \\dot{m_2} \\lt 0 $’
KMEDDS(1) = ’Fluid in’
KMEDDS(2) = ’Fluid out’
KMEDDS(3) = ’Measured massflow’
KMEDDS(4) = ’Fraction’
K_INP=’STRUC Flow SET_FLOW 2 3 900 901\\\\
$MEDIA 2 STEAM\\\\
$addco t Flow 2 50 p 2 1 m Flow 2 10\\\\
$addco ZC 901 2\\\\
$START ZC 901 2’
C
GOTO 9999
C
9999 CONTINUE
RETURN
END
C***********************************************************************
SUBROUTINE SET_TEMP(KOMTY,ANTLK,ANTKN,ANTPK,ANTM1,MEDIE,ANTME
$ ,VARME,MDOT,P,H,ZC,PAR,RES,KOMDSC,K_PAR,K_lig,K_bet,KMEDDS
$ ,K_inp)
C***********************************************************************
C
C SETFLOW1 is a model of a control valve. The valve controls massflow
C using an error input from a controller.
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 H − INPUT − Enthalpy of massflows.
CA ZC − INPUT − Control variables.
CA PAR − INPUT − Parameters of the component.
CA KOMTY − OUTPUT − Component name.
CA ANTPK − OUTPUT − Number of parameters.
CA ANTLK − OUTPUT − Number of equations.
CA ANTEX − OUTPUT − Number of algebraic 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 of the connected nodes.
60/67
19−03−2007