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

VEnzin.for
c:/dna/source/
CA MEDIE − IN/OUT − Media (fluid) of the connected nodes.
CA The values mean:
CA 99 : Water.
CA ANTME − OUTPUT − Number of fluids with variable composition.
CA RES − OUTPUT − Residuals for the component.
C
CL K_PAR Parameter description.
CL K_LIG Equation description.
CL K_BET Condition description.
CL K_MED Media description.
C
C Subroutines : 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, ANTKN,ANTPK, MEDIE(3),
& ANTM1, ANTME, VARME(3)
DOUBLE PRECISION RES(4), H(3), MDOT(3), P(3),PAR(1)
CHARACTER*80 KOMTY
C
C Local variables
C
INTEGER K_MED(3),I
CHARACTER*100 K_PAR(1),K_STAT(1)
CHARACTER*1000 KOMDSC,K_INP
CHARACTER*500 K_LIG(3), K_BET
CHARACTER*100 KMEDDS(3)
EXTERNAL COMINF
C=======================================================================
GOTO (100,200,1,400,400,200) FKOMP
1 RETURN
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component name
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
100 CONTINUE
KOMTY = ’SPLITTER3’
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component characteristics
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
200 CONTINUE
KOMTY = ’SPLITTER3’
ANTKN = 3
ANTPK = 1
ANTLK = 4
ANTM1 = 3
MEDIE(1) = ANYFLU$
MEDIE(2) = ANYFLU$
MEDIE(3) = ANYFLU$
ANTME = 3
DO I=1,ANTME
VARME(I) = NODE1$
ENDDO
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
C Same enthalpies on the two outlets
C
RES(1) = H(1) − H(3)
C
C Pressure balance
C
RES(2) = P(1) − P(2)
46/67
19−03−2007