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

VEnzin.for
c:/dna/source/
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),temp
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
KOMTY = ’SET_X’
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component characteristics
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
200 CONTINUE
KOMTY = ’SET_X’
ANTKN = 3
ANTPK = 1
ANTLK = 2
ANTM1 = 2
MEDIE(1) = ANYGAS$
MEDIE(2) = ANYGAS$
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−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
53/67
19−03−2007