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

VEnzin.for
c:/dna/source/
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.
CL S Entropy.
CL X Quality.
CL U Internal energy.
CL K_PAR Parameter description.
CL K_LIG Equation description.
CL K_BET Condition description.
CL K_MED Media description.
C
C Subroutines : STATES
C COMINF
C
CP Programmer : Bent Lorentzen 1994
CP Lab. for Energetics, DTU, Denmark.
C***********************************************************************
C
C Include the common "environment"
C
INCLUDE ’ENVIRO.INI’
C
C Parameter variables
C
INTEGER ANTLK, ANTEX, ANTKN, MEDIE(3), ANTPK,
& ANTM1, ANTME, VARME(2)
DOUBLE PRECISION MDOT(2), P(2), H(2), RES(3), ZC(1),PAR(2)
$ ,X_J(MAXME,ANTST)
CHARACTER*80 KOMTY
C
C Local variables
C
INTEGER K_MED(3)
DOUBLE PRECISION MAXF,maxp
CHARACTER*100 K_PAR(1),K_STAT(2)
CHARACTER*500 K_LIG(2), K_BET
CHARACTER*1000 KOMDSC,K_INP
CHARACTER*100 KMEDDS(3)
EXTERNAL COMINF,STATES
C=======================================================================
GOTO (100,200,1,400,400,200) FKOMP
1 RETURN
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component name
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
100 CONTINUE
28/67
19−03−2007