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

VEnzin.for
c:/dna/source/
C
C
400 CONTINUE
temp=PAR(1)
RES(1) = P(1) − P(2)
RES(2) = X_J(MEDIE(1),temp)−ZC(1)
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 = ’Utility component for setting the molar fraction of a
$ compund in a ideal gas mixture.’
K_BET = ’$\\dot{m_1} \\gt 0 \\\\ \\dot{m_2} \\lt 0 $’
K_PAR(1) = ’Compound number ($H_2$ is 1)’
KMEDDS(1) = ’Gas in’
KMEDDS(2) = ’Gas out’
KMEDDS(3) = ’Molar fraction of compound’
K_INP=’struc set−X_H2 SET_X 611 612 900 1\\\\
$MEDIA 611 gas\\\\
$fluid gas N2 0.6 H2 0.4\\\\
$addco m set−X_H2 611 1 t set−X_H2 611 50 p 611 1’
C
GOTO 9999
C
9999 CONTINUE
RETURN
END
C
C=======================================================================
C***********************************************************************
SUBROUTINE SET_X_REALFLUID(KOMTY,ANTLK,ANTEX,ANTKN,ANTPK,ANTM1,
& ANTM2,MEDIE,ANTME,VARME,
& MDOT,P,H,Q,ZA,ZC,PAR,RES,PARNAM,ZANAM,
$ KOMDSC,KMEDDS,K_PAR,K_LIG,K_STAT,K_BET,k_inp)
C***********************************************************************
C
C HEATEX_1 is a model of a heat exchanger.
C The model does not include equations concerning the heat exchange.
C 1−2 is the heat emitting fluid.
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 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 ANTM2 − OUTPUT − Number of massflows in the second.
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.
54/67
19−03−2007