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

VEnzin.for
c:/dna/source/
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component name
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
100 CONTINUE
KOMTY = ’GASCLE_2’
MMVAR(1) = ANTST
GOTO 9999
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
C Component characteristics
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
200 CONTINUE
KOMTY = ’GASCLE_2’
ANTKN = 4
ANTPK = 1+MMVAR(1)
ANTLK = 4+2*ANTST
ANTM1 = 3
MEDIE(1) = −4
MEDIE(2) = −4
MEDIE(3) = −4
MEDIE(4) = 300
ANTME = 3
VARME(1) = −1
VARME(2) = −2
VARME(3) = −3
ANTEL(1) = 0
ANTEL(2) = ANTST
ANTEL(3) = ANTST
DO I = 1,ANTST
VAREL(I,2) = I
VAREL(I,3) = I
ENDDO
C
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, since these are treated
C automatically by DNA.
C−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
400 CONTINUE
DELP = PAR(1)
Nr_clean=ANTPK−1
C
DO I = 1,Nr_clean
Compound_clean(I)=PAR(I+1)
ENDDO
C
M_BL1 = 0.D0
DO I=1, ANTST
M_BL1 = M_BL1 + X_J(MEDIE(1),I)*M_MOL(I)
XUD(I) = 0.D0
ENDDO
C
DO I=1, ANTST
N(I) = X_J(MEDIE(1),I)*MDOT(1)/M_BL1
ENDDO
C
NTOT=0D0
M3=0D0
DO I=1, Nr_clean
NTOT = NTOT+N(Compound_clean(I))
M3=M3+N(Compound_clean(I))*M_MOL(Compound_clean(I))
ENDDO
C
DO I=1, Nr_clean
XUD(Compound_clean(I)) = N(Compound_clean(I))/NTOT
N(Compound_clean(I)) = 0D0
ENDDO
C
T_SUM = 0D0
DO I=1, ANTST
T_SUM = T_SUM + N(I)
ENDDO
C
C Find mole ratios in syngas
C
CALL STATES(P(2),H(2),T2,V,S,X,U,1,2,MEDIE(2))
14/67
19−03−2007