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

VEnzin.for
c:/dna/source/
C by DNA.
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
400 CONTINUE
Virk = PAR(1)
RES(1) = WK/E + virk
IF (FKOMP.EQ.5) GOTO 500
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Solution check
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
500 CONTINUE
IF (E.LT.−1D−10) GOTO 450
IF (WK.GT.1D−10) GOTO 450
GOTO 9999
450 FBETI = .FALSE.
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Write component information
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
600 CONTINUE
KOMDSC = ’Motor with efficiency.’
K_PAR(1) = ’Motor efficiency, $\\eta_{m}$ [−]’
K_LIG(1) = ’Motor efficiency:
$$\\eta_m=\\frac{\\dot{W}}{\\dot{E}}$’
K_BET = ’$\\dot{E}\\gt 0 \\\\ \\dot{W} \\lt 0 \\\\
$\\dot{Q} \\lt 0 $’
KMEDDS(1) = ’Power in’
KMEDDS(2) = ’Heat loss’
KMEDDS(3) = ’Shaft power’
k_inp=’struc El−motor EL−MOTOR 203 319 101 0.95\\\\
$addco e El−motor 203 100\\\\
$start q El−motor 319 −1’
GOTO 9999
C
9999 CONTINUE
RETURN
END
C=======================================================================
C***********************************************************************
SUBROUTINE SPLITTER2(KOMTY,ANTLK,ANTKN,ANTM1,MEDIE,ANTME,
$ VARME,MDOT,P,H,RES,MMVAR,komdsc,kmedds,k_lig,k_bet,
$ k_inp)
C***********************************************************************
C
C SPLITTER2 is splitting one mass flow in to a variable number of
C flows. The outlets have the same enthalpy. Only the pressure in node
C 2 is set. This is done so the seperated flows can be mixed again
C (gathered in one node) without having pressure seperaters (like compressors).
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 KOMTY − OUTPUT − Component name.
CA ANTLK − OUTPUT − Number of 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 (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.
43/67
19−03−2007