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

VEnzin.for
c:/dna/source/
MEDIE(1) = ANYFLU$
MEDIE(2) = ANYFLU$
MEDIE(3) = 999
ANTME = 2
VARME(1) = NODE1$
VARME(2) = NODE1$
IF (FKOMP.EQ.6) GOTO 600
** FKOMP = 3
GOTO 9999
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) − 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 converting a massflow to a
$ control signal (ZC). Could be used with the component
$ SET_FLOW’
K_LIG(1) = ’Equal pressures: $p_1 = p_2$’
K_LIG(2) = ’Massflow: $\\dot{m_1} = ZC(1)$’
K_BET = ’$\\dot{m_1} \\gt 0 \\\\ \\dot{m_2} \\lt 0 $’
KMEDDS(1) = ’Fluid in’
KMEDDS(2) = ’Fluid out’
KMEDDS(3) = ’Measured massflow’
K_INP=’struc meas_flow MEASURE_FLOW 635 636 990\\\\
$MEDIA 635 STEAM\\\\
$addco t meas_flow 635 50 m meas_flow 635 1 p 635 1’
C
GOTO 9999
C
9999 CONTINUE
RETURN
END
C***********************************************************************
SUBROUTINE SET_FLOW(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.
58/67
19−03−2007