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

VEnzin.for
c:/dna/source/
C Include the common "environment"
C
INCLUDE ’ENVIRO.INI’
INCLUDE ’REALPROP.DEC’
C
C Parameter variables
C
INTEGER ANTLK, ANTEX, ANTKN, MEDIE(13), ANTPK,
& ANTM1, ANTM2, ANTME, VARME(8)
DOUBLE PRECISION RES(25), MDOT(8), P(8), H(8), PAR(2), Q,ZA(3)
$ ,ZC(4)
CHARACTER*80 KOMTY,PARNAM(2),ZANAM(3),ZCNAM(4)
C
C Local variables
C
INTEGER K_MED(5),I,I_liq,I_vap
DOUBLE PRECISION T, V, X, S, U,P_sat(8),H_sat(8),x_1,x_2,X0,X1
$ ,M_MOL1,M_MOL2,y_1,y_2,P_system,R_u,alpha,tau_1_2,tau_2_1
$ ,b_1_2,b_2_1,gamma_1,gamma_2,y_1_new,y_2_new,T_K,P_sat_1
$ ,P_sat_2,a_2_1,K_1,K_2
CHARACTER*100 K_PAR(2),K_STAT(1)
CHARACTER*1000 KOMDSC,K_INP
CHARACTER*500 K_LIG(3), K_BET
CHARACTER*100 KMEDDS(13)
EXTERNAL STATES
INCLUDE ’REALPROP.INI’
C=======================================================================
GOTO (100,200,1,400,400,200) FKOMP
1 RETURN
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component name
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
100 CONTINUE
KOMTY = ’DISTILLATION_STAGE’
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component characteristics
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
200 CONTINUE
KOMTY = ’DISTILLATION_STAGE’
ANTKN = 13
ANTPK = 0
ANTLK = 12
ANTEX = 3
ANTM1 = 4
ANTM2 = 4
MEDIE(1) = WATHF$
MEDIE(2) = WATHF$
MEDIE(3) = WATHF$
MEDIE(4) = WATHF$
MEDIE(5) = MEOH$
MEDIE(6) = MEOH$
MEDIE(7) = MEOH$
MEDIE(8) = MEOH$
MEDIE(9) = HEAT$
MEDIE(10) = 999
MEDIE(11) = 999
MEDIE(12) = 999
MEDIE(13) = 999
ANTME = 0
ZANAM(1) = ’x_Methanol’
ZANAM(2) = ’y_Methanol’
ZANAM(3) = ’alpha’
ZCNAM(1) = ’Pressure’
ZCNAM(2) = ’Temperature’
ZCNAM(3) = ’x_Methanol’
ZCNAM(4) = ’y_Methanol’
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
39/67
19−03−2007