Coker A.K. Fortran Programs for Chemical Process Design, Analysis, and Simulation
Подождите немного. Документ загружается.
RAT1 = ODI/TKHI
IF ((ODI/TKHI) .GE. i0.0 .AND. (ODI/TKHI) .LT. 18.0) THEN
HFAC = 1.70
ELSEIF ((ODI/TKHI) .GE. 18.0 .AND. (ODI/TKHI) .LT. 30.0) THEN
HFAC = 1.65
ELSEIF ((ODI/TKHI) .ST. 30.0 ) THEN
HFAC = 1.60
ENDIF
BDI = (ODI*HFAC+2.*SFI)/12.
WTHI = (0.25*(BDI**2)*PI*TKHI*DENSI*2.)/12.
CALCULATE TOTAL VESSEL WEIGHT
TOTWTI = WTSI + WTHI
RETURN
END
**************************************************************
VESSEL DESIGN WITH ELLIPSOIDAL HEADS
**************************************************************
SUBROUTINE ELLIP
REAL LN2,ID2,OD2
COMMON PI
COMMON/DATA2/ ID2, LN2, P2, SF2, C2, DENS2, ES2, EH2, S2
COMMON/RES2/ TKS2, TKH2, WTS2, WTH2, TOTWT2
CALCULATE SHELL THICKNESS, in
R2 = ID2/2.
TKS2 = (P2*R2)/(S2*ES2-0.6*P2)+C2
OD2 = ID2 + 2.0*TKS2
CALCULATE WEIGHT OF VESSEL SHELL, ib
WTS2 = ((OD2+TKS2)*PI*LN2*TKS2*DENS2)/144.
CALCULATE WEIGHT OF HEAD, Ib
TKH2 = (P2*ID2)/(2.*S2*EH2-0.2*P2)+C2
RAT2 = OD2/TKH2
IF ((OD2/TKH2) .GE. i0.0 .AND. (OD2/TKH2) .LT. 20.0) THEN
HFAC = 1.30
ELSEIF ((OD2/TKH2) .GT. 20.0) THEN
HFAC = 1.24
ENDIF
BD2 = (OD2*HFAC+2.*SF2)/12.
WTH2 = (0.25*(BD2**2)*PI*TKH2*DENS2*2.)/12.0
CALCULATE TOTAL WEIGHT
317
TOTWT2 = WTS2 + WTH2
RETURN
END
**************************************************************
VESSEL DESIGN WITH TORISPHERICAL HEADS
**************************************************************
SUBROUTINE TORIS
REAL LN3,ID3,OD3
COMMON PI
COMMON/DATA3/ ID3, LN3, P3, SF3, C3, DENS3, ES3, EH3, S3, RC
COMMON/RES3/ TKS3, TKH3, WTS3, WTH3, TOTWT3
CALCULATE
SHELL THICKNESS, in
R3 = ID3/2.
TKS3 = (P3*R3)/(S3*ES3-0.6*P3)+C3
OD3 = ID3 + 2.0*TKS3
CALCULATE WEIGHT OF VESSEL SHELL, ib
WTS3 = ((OD3+TKS3)*PI*LN3*TKS3*DENS3)/144.
CALCULATE WEIGHT OF HEAD, ib
TKH3 = ((0.885*P3*RC)/(S3*EH3-0.1*P3))+C3
RAT3 = OD3/TKH3
IF ((OD3/TKH3) .GE. 20.0 .AND. (OD3/TKH3) .LT. 30.0) THEN
HFAC = [.15
ELSEIF ((OD3/TKH3) .GE. 30.0 .AND. (OD3/TKH3) .LT. 50.0) THEN
HFAC = i.ii
ELSEIF ((OD3/TKH3) .ST. 50.0) THEN
HFAC = 1.09
ENDIF
BD3 = (OD3*HFAC+2.0*SF3)/12.
WTH3 = (0.25*(BD3**2)*PI*TKH3*DENS3*2.)/12.
CALCULATE TOTAL WEIGHT
TOTWT3 = WTS3 + WTH3
RETURN
END
THIS PROGRAM PRINTS THE RESULTS OF THE VESSEL WITH
HEMISPHERICAL HEADS.
SUBROUTINE OHEMISP
REAL IDI, LNI
318
i00
ii0
120
130
COMMON/DATA1/
IDI, LNI, PI, SFI, CI, DENS1, ESI, EHI, S1
COMMON/RESI/ TKSl, TKHI, WTSI, WTHI, TOTWTI
WRITE (i, i00)
FORMAT (//,25X, 'VESSEL DESIGN WITH HEMISPHERICAL HEADS',
/,78(1H*) )
WRITE (i, ii0) IDI, LNI, P1
FORMAT (5X,'INTERNAL DIAMETER, in.:', T60, F9.3,/,
5X,'SHELL LENGHT, ft.:', T60, F9.3,/,
5X,'INTERNAL DESIGN PRESSURE, psig:', T60, F9.3)
WRITE (i, 120) SFI, Cl, DENS1
FORMAT (SX,'STRAIGHT FLANGE LENGTH, in.:', T60, F9.3,/,
5X,'CORROSION ALLOWANCE, in.:', T60, F9.3,/,
5X,'DENSITY OF VESSEL MATERIAL, ib/ft^3.: ' , T60, F9.3)
WRITE (i, 130) ESI, EHI, S1
FORMAT (5X,'JOINT EFFICIENCY OF SHELL:', T60, F9.3,/,
5X,'JOINT EFFICIENCY OF HEAD:', T60, F9.3,/,
5X,'ALLOWABLE STRESS, Ib/in^2.: ' , T60, F9.3)
140
150
160
170
WRITE (i, 140) TKSl, TKHI, WTSI, WTHI, TOTWTI
FORMAT (5X,'CALCULATED SHELL THICKNESS, in.:', T60, F9.3,/,
1
5X,'CALCULATED HEAD THICKNESS, in.:', T60, F9.3,/,
2
5X,'WEIGHT OF VESSEL SHELL, ib:', T60, F12.2,/,
3
5X,'WEIGHT OF VESSEL HEAD, ib:', T60, F12.2,/,
4 5X,'TOTAL VESSEL WEIGHT, ib:', T60, F12.2)
WRITE (i, 150)
FORMAT (78(IH-))
RETURN
END
***************************************************************
THIS PROGRAM PRINTS THE RESULTS OF THE VESSEL WITH ELLIPSOIDAL
HEADS.
***************************************************************
SUBROUTINE OELLIP
REAL ID2, LN2
COMMON/DATA2/ID2, LN2, P2, SF2, C2, DENS2, ES2, EH2, $2
COMMON/RES2/TKS2, TKH2, WTS2, WTH2, TOTWT2
WRITE (i, 160)
FORMAT (//,25X, 'VESSEL DESIGN WITH ELLIPSOIDAL HEADS',
/,78(1H*))
WRITE (i, 170) ID2, LN2, P2
FORMAT (5X, "INTERNAL DIAMETER, in.:', T60, F9.3,/,
5X,'SHELL LENGTH, ft.:', T60, F9.3,/,
5X,'INTERNAL DESIGN PRESSURE, psig.:', T60, F9.3)
319
180
190
200
210
220
230
240
250
260
270
WRITE (i, 180) SF2, C2, DENS2
FORMAT (5X,'STRAIGHT FLANGE LENGTH, in.:', T60, F9.3,/,
5X,'CORROSION ALLOWANCE, in.:', T60, F9.3,/,
5X,'DENSITY OF VESSEL MATERIAL, ib/ft^3.:',T60, F9.3)
WRITE (i, 190) ES2, EH2, $2
FORMAT (5X,'JOINT EFFICIENCY OF SHELL:', T60, F9.3,/,
5X,'JOINT EFFICIENCY OF HEAD:', T60, F9.3,/,
5X,'ALLOWABLE STRESS, ib/in^2.: ' , T60, F9.3)
WRITE (i, 200) TKS2, TKH2, WTS2, WTH2, TOTWT2
FORMAT (5X,'CALCUI2~TED SHELL THICKNESS, in.:', T60, F9.3,/,
1
5X,'CALCULATED HEAD THICKNESS, in.:', T60, F9.3,/,
2
5X,'WEIGHT OF VESSEL SHELL, ib:', T60, F12.2,/,
3
5X,'WEIGHT OF VESSEL HEAD, Ib:', T60, F12.2,/,
4 5X,'TOTAL VESSEL WEIGHT, ib:', T60, F12.2)
WRITE (i, 210)
FORMAT (78(IH-))
RETURN
END
***************************************************************
THIS PROGRAM PRINTS THE RESULTS OF THE VESSEL WITH
TORISPHERICAL HEADS.
***************************************************************
SUBROUTINE OTORIS
REAL ID3, LN3
COMMON/DATA3/ ID3, LN3, P3, SF3, C3, DENS3, ES3, EH3, $3, RC
COMMON/RES3/ TKS3, TKH3, WTS3, WTH3, TOTWT3
WRITE (I, 220)
FORMAT (//,25X,'VESSEL DESIGN WITH TORISPHERICAL HEADS',
z /,78(1H*))
WRITE (i, 230) ID3, LN3, P3
FORMAT (5X,'INTERNAL DIAMETER, in.:', T60, F9.3,/,
1
5X,'SHELL LENGTH, ft.:', T60, F9.3,/,
2 5X,'INTERNAL DESIGN PRESSURE, psig.:', T60, F9.3)
WRITE (i, 240) SF3, C3, DENS3
FORMAT (5X,'STRAIGHT FLANGE LENGTH, in.:', T60, F9.3,/,
1 5X,'CORROSION ALLOWANCE, in.:', T60, F9.3,/,
2 5X,'DENSITY OF VESSEL MATERIAL, Ib/ft^3.: ' , T60, F9.3)
WRITE (i, 250) ES3, EH3, S3
FORMAT (SX,'JOINT EFFICIENCY OF SHELL:', T60, F9.3,/,
1
5X,'JOINT EFFICIENCY OF HEAD:', T60, F9.3,/,
2 5X,'ALLOWABLE STREES, ib/in.^2: ' , T60, F9.3)
WRITE (i, 260) TKS3, TKH3, WTS3, WTH3, TOTWT3
FORMAT (5X,'CALCULATED SHELL THICKNESS, in.:', T60, F9.3,/,
5X,'CALCULATED HEAD THICKNESS, ft.:', T60, F9.3,/,
5X,'WEIGHT OF VESSEL SHELL, ib:', T60, F12.2,/,
5X,'WEIGHT OF VESSEL HEAD, ib:', T60, F12.2,/,
5X,'TOTAL VESSEL WEIGHT, ib:', T60, F12.2)
WRITE (I, 270)
FORMAT (78(IH-))
FORM FEED THE PRINTING PAPER TO THE TOP OF THE NEXT PAGE.
WRITE (i, *) CHAR(12)
RETURN
END
320
18
20
A1 =
B =
B1 =
DC =
DE =
DENF =
DENP =
DPI =
H =
HI =
Q =
S =
T =
VIS =
PROGRAM PROG44
***************************************************************
THE PROGRAM CALCULATES CYCLONE EFFICIENCY BASED ON CYCLONE
DIMENSIONS AND ON FLUID AND PARTICLE CHARACTERISITICS.
IN ADDITION, THE PROGRAM CALCITES THE CYCLONE PRESSURE DROP.
***************************************************************
CYCLONE GAS INLET LENGTH, ft
CYCLONE DUST-OUTLET DIAMETER, ft
CYCLONE GAS INLET WIDTH, ft
CYCLONE DIAMETER, ft
CYCLONE GAS OUTLET DIAMETER, ft.
GAS DENSITY, ib/ft^3.
PARTICLE DENSITY, ib/ft^3.
PARTICLE SIZE EQUIVALENT, ft.
CYCLONE OVERALL HEIGHT, ft
CYCLONE CYLINDRICAL HEIGHT, ft.
TOTAL GAS FLOWRATE, ft^3./sec.
CYCLONE GAS OUTLET LENGTH, ft
TEMPERATURE, oF
FLUID VISCOSITY, ibm/ft.sec.
***************************************************************
REAL L, NH, NT
COMMON/RESI/ L, D, NH, VI, VSA, RATIO, G, VE, RT, EFF, DELP
COMMON/RES2/ NT, DPCRIT, DPMIC, RATIO1
OPEN
OPEN
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
(UNIT=3, FILE='DATA44.DAT', STATUS='OLD', ERR=IS)
(UNIT=l, FILE='PRN')
CYCLONE OVERALL HEIGHT, H: ft.
CYCLONE CYLINDRICAL HEIGHT, HI: ft.
CYCLONE DIAMETER, DC: ft.
CYCLONE DUST-OUTLET DIAMETER, B: ft.
CYCLONE GAS INLET LENGTH, AI: ft.
CYCLONE GAS INLET WIDTH, BI: ft.
CYCLONE GAS OUTLET LENGTH, S: ft.
CYCLONE GAS OUTLET DIAMETER, DE: ft.
TOTAL GAS FLOWRATE, Q: ft^3/sec.
PARTICLE DENSITY, DENP: Ib/ft^3.
GAS DENSITY, DENF: ib/ft^3.
GAS VISCOSITY, VIS: ib/ft.sec.
GAS TEMPERATURE, T: oF.
PARTICLE SIZE EQUIVALENT, DPI: ft.
READ (3, *
READ (3, *
READ (3, *
READ (3, *
, ERR=I9) H, HI, DC, B
, ERR=I9) AI, BI, S, DE
, ERR=I9) Q, DENP, DENF, VIS
, ERR=f9) T, DPI
GO TO i0
WRITE (*, 20)
FORMAT (6X, 'DATA FILE DOES NOT EXIST')
321
19
25
i0
999
GO TO 999
WRITE (*, 25)
FORMAT (6X, "ERROR MESSAGE IN THE DATA VALUE')
GO TO 999
CALCULATE THE CYCLONE PRESSURE DROP AND EFFICIENCY
CALL CALC (H,HI,DC,B,AI,BI,S,DE,Q,DENP,DENF,VIS,T,DPI)
PRINT THE RESULTS OF THE CYCLONE DESIGN.
CALL OUTPUT (H,HI,DC,B,AI,BI,S,DE,Q,DENP,DENF,VIS,T,DPI)
GO TO 999
CLOSE (3, STATUS='KEEP')
CLOSE (i)
STOP
END
THIS PROGRAM CALCULATES THE CYCLONE PRESSURE DROP AND EFFICIENCY
SUBROUTINE CALC(H,HI,DC,B,AI,BI,S,DE,Q,DENP,DENF,VIS,T,DPI)
PARAMETER (PI=3.1&I5927, GC=32.2)
REAL L, NH, NT
COMMON/RESl/ L, D, NH, VI, VSA, RATIO, G, VE, RT, EFF, DELP
COMMON/RES2/
NT, DPCRIT, DPMIC, RATIO1
CALCULATE L- NATURAL LENGTH i.e. THE DISTANCE BELOW THE GAS
OUTLET WHERE THE VORTEX TURNS, ft.
L = 2.3*DE*(((DC**2)/(AI*BI))**(I.0/3.0))
CALCULATE D-DIAMETER OF CENTRAL CORE AT POINT WHERE VORTEX TURNS
D = DC-((DC-B)*((S+L-HI)/(H-HI)))
CALCULATE VOLUME AT NATURAL LENGTH EXCLUDING THE CORE, ft^3
VN = (PI*(DC**2)*(HI-S))/4.0
VN = VN+(PI*(DC**2)*(L+S-HI)*(I.O+(D/DC)+(D**2/DC**2)))/12.0
VN = VN-(PI*(DE**2)*L)/4.0
CALCULATE THE VOLUME BELOW EXIT DUCT EXCLUDING THE CORE, ft^3
VH = (PI*(DC**2)*(HI-S))/4.0
VH = VH+(PI*(DC**2)*(H-HI)*(I.O+(B/DC)+(B**2/DC**2)))/12.0
VH = VH-(PI*(DE**2)*(H-S))/4.0
322
CALCULATE VORTEX EXPONENT
VE = 1.0-(1.0-(((12.0*DC)**0.14)/2.5))*(((T+460.0)/530.0)**0.3)
CALCULATE RELAXATION TIME, RT in sec.
RT = (DENP*(DPI)**2)/(18.0*VIS)
VAL = S+L
IF (VAL .GT. H) THEN
VS = VH
ELSEIF (VAL .LE. H) THEN
VS = VN
ENDIF
CALCULATE THE NUMBER OF INLET VELOCITY HEADS, NH
NH = (16.0*Al*B1)/DE**2
CALCULATE THE INLET VELOCITY, VI:ft/s.
VI = Q/(AI*BI)
CALCULATE THE CYCLONE PRESSURE DROP, in H20
DELP = (0.003*DENF*(VI**2)*NH)
CALCULATE SALTATION VELOCITY, VSA: ft/s.
W = ((4.0*GC*VIS*(DENP-DENF))/(3.0*DENF**2))**(I.0/3.0)
VAL1 = B1/DC
VAL2 = (VALI/(I.O-VALI)**(I.0/3.0))
VSA = 2.055*W*VAL2*(DC**0.067)*(VI**0.667)
CALCULATE THE OPTIMAL RATIO, VI/VSA
RATIO = VI/VSA
CALCULATE CYCLONE CONFIGURATION FACTOR SPECIFIED BY THE
GEOMETRIC RATIOS THAT DESCRIBE THE CYCLONE'S SHAPE
G = (2.0*(PI*(S-(AI/2.0))*((DC**2)-(DE**2)))+4.0*VS)*
(DC/((AI**2)*(BI**2)))
CALCULATE CYCLONE EFFICIENCY
EFF = 1.0-EXP(-2.0*((G*RT*Q*(VE+I.0))/(DC**3))**(0.5/(VE+I.0)))
EFF = 100.0*EFF
CALCULATE THE EFFECTIVE NUMBER OF TURNS
NT = (0.1079-(0.00077*VI)+(I.924*(10**(-6)))*(VI**2))
NT = NT*VI
323
CALCULATE THE CRITICAL PARTICLE SIZE, ft.
DPCRIT = (9.0*VIS*DC)/(4.0*PI*NT*VI*(DENP - DENF))
DPCRIT = SQRT (DPCRIT)
CALCULATE THE CRITICAL PARTICLE SIZE, microns
DPMIC = DPCRIT*0.3048*(10**6)
CALCULATE THE RATIO OF THE PARTICLE SIZE TO THE CRITICAL
PARTICLE SIZE, RATIO1
RATIO1 = DPI/DPCRIT
USE THE RESULT TO DETERMINE THE PERCENTAGE REMOVAL OF THE
PARTICLES.
RETURN
END
THIS PROGRAM PRINTS THE RESULTS OF THE CYCLONE DESIGN
SUBROUTINE OUTPUT(H,HI,DC,B,AI,BI,S,DE,Q,DENP,DENF,VIS,T,DPI)
REAL L, NH, NT
COMMON/RESI/L,D,NH,VI,VSA,RATIO,G,VE,RT,EFF,DELP
COMMON/RES2/NT,
DPCRIT, DPMIC, RATIO1
i00
Ii0
120
130
WRITE (i, i00)
FORMAT(///,25X, 'CYCLONE DESIGN',/78(IH*) )
WRITE (i, ii0) H, HI, DC, B
FORMAT (5X,'CYCLONE OVERALL HEIGHT, ft:', T60, F9.3,/,
1 5X,'CYCLONE CYLINDRICAL HEIGHT, ft.:', T60, F9.3,/,
2
5X,'CYCLONE DIAMETER, ft.:', T60, F9.3,/,
3 5X,'CYCLONE DUST-OUTLET DIAMETER, ft:', T60, F9.3)
WRITE (i, 120) AI, BI, S, DE
FORMAT (5X,'CYCLONE GAS INLET LENGTH, ft:', T60, F9.3,/,
1
5X,'CYCLONE GAS INLET WIDTH, ft:', T60, F9.3,/,
2 5X,'CYCLONE
GAS OUTLET LENGTH, ft:', T60, F9.3,/,
3 5X,'CYCLONE GAS OUTLET DIAMETR, ft:', T60, F9.3)
WRITE (1, 130) Q, DENP, DENF, VIS
FORMAT (5X,'GAS RATE, ft^3/s.: ' , T60, FI0.2,/,
1 5X,'PARTICLE DENSITY, ib/ft~3: ' , T60, F9.3,/,
2 5X,'GAS DENSITY, ib/ft^3: ' , T60, F9.3,/,
3 5X,'GAS VISCOSITY, ib/ft.s.:', T60, E12.6)
WRITE (i, 140) T, DPI, VE, RT
324
140
150
160
170
180
FORMAT (5X, 'GAS TEMPERATURE, oF:', T60, F9.3,/,
1 5X, 'PARTICLE SIZE (EQUIVALENT DIA.),ft.:',T60,EI2.6,/,
2 5X, 'VORTEX EXPONENT:', T60, F9.4,/,
3
5X, 'RELAXATION TIME, s:', T60, E12.6)
WRITE (I, 150) VI, VSA, G, DELP
FORMAT (SX, 'INLET FLUID VELOCITY, ft/s.:', T60, F9.3,/,
1 5X,'SALTATION VELOCITY, ft/s.:', T60, F9.3,/,
2 5X,'CYCLONE CONFIGURATION FACTOR:', T60, F9.3,/,
3 5X,'CYCLONE PRESSURE DROP, in H20:', T60, F9.3)
WRITE (i, 160) RATIO, EFF
FORMAT (5X, 'RATIO OF THE INLET TO THE SALTATION VELOCITIES:'
T60, F9.3,/,5X,'CYCLONE EFFICIENCY, %:', T60, F9.3)
WRITE (i, 170) NT, DPCRIT, DPMIC, RATIO1
FORMAT (5X,'EFFECTIVE NUMBER OF TURNS:', T60, F8.2,/,
1
5X,'CRITICAL PARTICLE DIAMETER, ft.:', T60, E14.6,/,
2 5X,'CRITICAL PARTICLE DIAMETER, microns:',T60,El4.6,/,
3 5X,'RATIO OF PARTICLE DIA. TO CRITICAL DIA.:',T60,F8.2)
WRITE (i, 180)
FORMAT (78(IH-))
FORM FEED THE PRINTING PAPER TO THE TOP OF THE NEXT PAGE.
WRITE (i, *) CHAR(12)
RETURN
END
325
PROGRAM PROG45
THE DESIGN OF A GAS DRYER.
THIS PROGRAM WILL PROVIDE A PRELIMINARY DESIGN FOR A SOLID-
DESICCANT DRYER USED FOR THE REMOVAL OF MOISTURE FROM GAS STREAMS.
THE PROGRAM WILL CALCULATE WATER PICKUP, DESICCANT VOLUME, DESICCANT
BED (TOWER) DIAMETER, GAS VELOCITY THROUGH THE BED, VESSEL WEIGHT,
DRYER REGENERATION REQUIREMENTS AND MOMENTUM FOR MAXIMUM DOWNFLOW
VELOCITIES.
H2OL = TOTAL WATER ADSORBED, ib/hr.
FLOW = GAS FLOW RATE, 10^6 std ft^3/day.
CYCLE = DRYING CYCLE, hr.
H2OC = WATER CONTENT OF GAS, ib/10^6 std ft^3.
DESVOL = DESICCANT VOLUME, ft^3.
DDEN = DESICCANT DENSITY, ib/ft^3.
AREAl = CALCULATED AREA BASED ON DESICCANT VOLUME, ft^3.
BL = DESICCANT BED LENGTH, ft.
BD = CALCULATED BED DIAMETER USING AREAl, ft.
AREA = ACTUAL DESSICANT BED AREA USING BD CALCULATED OR
MODIFIED BY THE USER, ft^2.
Q = ACTUAL GAS FLOW RATE AT FLOWING CONDITIONS, ftA3/min.
T = GAS FLOWING TEMPERATURE oF.
P = DRYER OPERATING PRESSURE, psig.
Z = COMPRESSIBILITY FACTOR
VEL = GAS VELOCITY, ft/min.
TC = DRYER SHELL THICKNESS, in.
H = ADDITIONAL SHELL HEIGHT FOR DESICCANT SUPPORTS
AND DISTRIBUTOR, ft.
R = RADIUS OF DESICCANT BED, ft.
S = ALLOWABLE STRESS, ib/in^2.
E = JOINT EFFICIENCY.
THEAT = TOTAL HEAT REQUIRED TO REGENERATE DRYER (IDEAL), Btu.
WS = STEEL WEIGHT OF SHELL AND HEADS, lb.
WD = DESICCANT WEIGHT, lb.
TB = TEMPERATURE OF DESICCANT BED, oF.
HT = HEATER TEMPERATURE, oF.
F = LOSS FACTOR FOR NON-STEADY STATE HEATING.
REGENH = HEAT ADDED TO REGENERATION GAS TO REGENERATE
DESICCANT BED.
HI,H2 = ENTHALPY OF REGENERATION GAS BEFORE
AND AFTER REGENERATION, Btu/ib
REGENG = TOTAL REGENERATION GAS REQUIREMENT, ib
MW = MOLECULAR WEIGHT OF REGENERATION GAS
SCF = STANDARD CUBIC FEET OF REGENERATION GAS
PICKUP = DESICCANT WATER CAPACITY, %
REAL MW, MOMEN
COMMON/DRY1/ FLOW, P, T
COMMON~DRY2~
Z, CYCLE, H2OC
COMMON/DRY3/ S, E, PICKUP
COMMON/DRY4/ DDEN, BL, HT
COMMON~DRY5~
MW, HI, H2
COMMON/RESl/
H2OL, DESVOL, AREAl
COMMON/RES2/ BD, R, Q, VEL
326