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

VEnzin.for
c:/dna/source/
RES(1) = P(1) − P(2)
C
CALL STATES(P(1),H(1),T,V,S,X,U,1,2,MEDIE(1))
C
RES(2) = ZC(1) − T
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 or measuring the
$ temperature by use of a control signal (ZC).’
K_LIG(1) = ’Equal pressures: $p_1 = p_2$’
K_LIG(2) = ’Temperature: T = ZC(1)’
K_BET = ’$\\dot{m_1} \\gt 0 \\\\ \\dot{m_2} \\lt 0 $’
KMEDDS(1) = ’Fluid in’
KMEDDS(2) = ’Fluid out’
KMEDDS(3) = ’Temperature’
K_INP=’struc set_temp SET_TEMP 1 2 900\\\\
$media 1 STEAM\\\\
$addco p 1 1 m set_temp 1 60 t set_temp 1 60’
C
GOTO 9999
C
9999 CONTINUE
RETURN
END
C***********************************************************************
SUBROUTINE SET_TEMP2(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.
CA The values mean:
CA 99 : Water.
CA 999 : Control.
CA ANTME − OUTPUT − Number of fluids with variable composition.
CA RES − OUTPUT − Residuals for the component.
C
CL CV Valve friction coefficient.
CL V1 Specific volume for water entering the valve.
CL T Temperature.
62/67
19−03−2007