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

VEnzin.for
c:/dna/source/
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 Q − INPUT − Exchanged heat.
CA PAR − INPUT − Parameters of the component.
CA X_J − INPUT − Fluid composition.
CA KOMTY − OUTPUT − Component name.
CA ANTPK − OUTPUT − Number of parameters for the component.
CA ANTLK − OUTPUT − Number of equations in the component.
CA ANTEX − OUTPUT − Number of independent equations in the component.
CA ANTED − OUTPUT − Number of differential 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 DYCOM − OUTPUT − Type of conservation equations (static or dynamic
CA mass and internal energy on side 1 and 2 respectively;
CA and dynamic solid internal energy).
CA MEDIE − IN/OUT − Media (fluid) of the connected nodes.
CA The values mean :
CA 2 : Coal.
CA 8 : Water (liquid).
CA 27 : Oxygen rich gas.
CA 25 : Raw gas.
CA 300 : Heat.
CA ANTME − OUTPUT − Number of fluids with variable composition.
CA VARME − OUTPUT − Fluid numbers (with variable composition).
CA ANTEL − OUTPUT − Number of compounds in these variable fluids.
CA VAREL − OUTPUT − Compound numbers in variable fluids.
CA RES − OUTPUT − Residuals for the component.
C
C Subroutines : COMINF
C
CP Programmer : Brian Elmegaard, MEK, DTU, 2000
C***********************************************************************
C
C Include the common "environment"
C
INCLUDE ’ENVIRO.INI’
INCLUDE ’THERPROP.DEC’
INCLUDE ’GASI.DEC’
C
C Parameter variables
C
INTEGER ANTLK, ANTEX, ANTKN, MEDIE(5), ANTPK,
: ANTM1, ANTME, VARME(3), ANTEL(3),
: VAREL(ANTST,3),MMVAR(MAXMM)
DOUBLE PRECISION X_J(MAXME,ANTST), PAR(2), RES(50),
: MDOT(4),P(4),Q(1),H(4),ZA(10)
CHARACTER*80 KOMTY
CHARACTER*80 ZANAM(10),PARNAM(1)
C
C Local variables
C
LOGICAL CON
INTEGER I,J,RES_NR,ANTGIBBS
DOUBLE PRECISION DELP, PGAS, TGAS, T_sat, Ratio,
: V,S,X,U,H1,Psat_meoh,Psat_water,NIN(ANTST+1),NOUT(ANTST+1),
: M_BL(6),G(7),R,G_met,b_2_1,b_1_2,alpha,R_u
$ ,T_K,tau_2_1,tau_1_2,gamma_2,gamma_1,y_ME,y_ST,x_ME,x_ST,P_ME
$ ,P_ST,T,P_SAT_ME,P_SAT_ST,x_ME_2,x_ME_3,x_ST_3,P_ME_IN,NOUTME
$ ,NOUTST,P_ST_IN,X0,HD,P_ST_2,T2
CHARACTER*100 KMEDDS(6)
CHARACTER*100 K_PAR(4)
CHARACTER*500 K_LIG(29), K_BET
CHARACTER*1000 KOMDSC,K_INP
EXTERNAL COMINF,GIBBS,STATES
INTRINSIC DABS,DLOG,NINT,EXP
INCLUDE ’THERPROP.INI’
INCLUDE ’GASI.INI’
CON=.false.
C=======================================================================
GOTO (100,200,1,400,400,200,1) FKOMP
1 RETURN
24/67
19−03−2007