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

VEnzin.for
c:/dna/source/
C
CL T1,T2 Temperature in first and second node.
CL T3,T4 Temperature in third and fourth node.
CL S Entropy.
CL V Specific volume.
CL X Quality.
CL U Internal energy.
CL DPA,DPB Pressure loss in heat exchanger.
CL K_PAR Parameter description.
CL K_LIG Equation description.
CL K_BET Condition description.
CL K_MED Media description.
C
C STATES
C
CP Programmer : Bent Lorentzen 1994
CP Lab. for Energetics, DTU, Denmark.
C***********************************************************************
C
C Include the common "environment"
C
INCLUDE ’ENVIRO.INI’
INCLUDE ’REALPROP.DEC’
C
C Parameter variables
C
INTEGER ANTLK, ANTEX, ANTKN, MEDIE(5), ANTPK,
& ANTM1, ANTM2, ANTME, VARME(4)
DOUBLE PRECISION RES(6),MDOT(4),P(4),H(4),PAR(2),Q,ZA(2),ZC(2)
CHARACTER*80 KOMTY,PARNAM(2),ZANAM(2)
C
C Local variables
C
INTEGER K_MED(5)
DOUBLE PRECISION T1, T2, T3, T4, V, X, S, U, DPA, DPB
CHARACTER*100 K_PAR(2),K_STAT(1)
CHARACTER*500 K_LIG(3), K_BET
CHARACTER*1000 KOMDSC,K_INP
CHARACTER*100 KMEDDS(5)
EXTERNAL STATES
INCLUDE ’REALPROP.INI’
C=======================================================================
GOTO (100,200,1,400,400,200) FKOMP
1 RETURN
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component name
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
100 CONTINUE
KOMTY = ’SET_X_REALFLUID’
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component characteristics
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
200 CONTINUE
KOMTY = ’SET_X_REALFLUID’
ANTKN = 5
ANTPK = 2
ANTLK = 4
ANTEX = 2
ANTM1 = 2
ANTM2 = 2
MEDIE(1) = REALFL$
MEDIE(2) = REALFL$
MEDIE(3) = REALFL$
MEDIE(4) = REALFL$
MEDIE(5) = 999
ANTME = 4
VARME(1) = NODE1$
VARME(2) = NODE1$
VARME(3) = NODE3$
VARME(4) = NODE3$
PARNAM(1) = ’Pressure loss side 1’
PARNAM(2) = ’Pressure loss side 2’
ZANAM(1) = ’Flu 2 mass−%’
ZANAM(2) = ’Flu 2 vol−%’
IF (FKOMP.EQ.6) GOTO 600
** FKOMP = 3
55/67
19−03−2007