DRAFT REPORT
HAZARDOUS WASTE
TANK FAILURE MODEL:
DESCRIPTION OF METHODOLOGY
APPENDIX D, E
-------
APPENDIX 0
SYSTEM DESIGN CHARACTERISTICS
-------
Batch Distillation
We model distillation as a batch process using two above-ground tanks.
If the first tank Is larger than 1000 gallons, we assume that the waste is
pumped Into It at a rate of 100 gallons per minute. Otherwise we assume that
the pumping rate 1s 25 gallons per minute. We set the batch volume equal to
the operating capacity of the first tank, and the fill time equal to the batch
volume divided by the pumping rate. The pressure in the Inlet pipe and the
pressure at the gasketed or welded flange are equal to. the sum of the pump
pressure and the static head from the fluid source. We assume that friction
losses and kinetic losses are small compared to these values. In future ver-
sions of the model, however, we may decide to account for these losses.
The first tank in this process Is the distillation tank. Its capacity is
determined by user Input, and we assume that Its fluid depth 1s SOX of Its
height. We assume that distillation 1s completed 1n 4 hours. We assume that
the volatile fraction flows out the top of the distillation tank at a constant
rate equal to the tank's operating capacity multiplied by the fraction of the
waste accounted for by the volatile constituent (determined by user input)
multiplied by the treatment efficiency (determined by user Input) divided by
the four-hour retention time. We assume that the fluid is condensed at a
location three feet higher than the tank which accumulates the distillate.
Thus, there is a three-foot pressure head on the pipe and the flange con-
necting the distillation tank to the accumulation tank.
We assume that the accumulation tank Is the same size as the distillation .
tank. Its operating level, retention time, and pressure head are the same as
those for the distillation tank. We assume that there 1s no reflux of the
distillate back Into the still.
We calculate the transfer volume and transfer time for the accumulation tank's
outlet pipe using the same pumping rate that we applied to the Inlet pipe for
the distillation tank. We assume that the pressure on the gasketed or welded
outlet 'flange equals the static head created by the fluid In the accumulation
tank, while pressure 1n the pipe also Includes the pump pressure. r
0-11
-------
At the end of the distillation process, the still bottoms are pumped out the
bottom of the distillation tank at the ICO- or 25-gallon-per-minute pumping
rate. The volume to be transferred equals the tank's operating capacity times
the original fraction of non-volatile constituents plus the fraction of vola-
tile constituent remaining after distillation. The transfer time equals the
volume to be transfered divided by the pumping rate. The pressure head on the
outlet flange equals the static head of the fluid in the distillation tank,
while the pressure in the pipe also includes the pumping head.
D-fr
-------
Chrome Reduction/Precipitation
We model chrome reduction/precipitation as a continuous process using three
above-ground or In-ground tanks. Minor modifications to the model will allow
for a batch process to be selected.
The waste is pumped Into the first tank at a rate that is equal to the operating
capacity of the tank divided by the tank's retention time, which is the length
of time the fluid 1s kept In the tank to complete any reactions or mixing pro-
cesses. We assume that the waste has a thirty minute retention time in the
first tank where the waste pH is adjusted to a pH between two and three. The'
pressures in the Inlet pipe and the pressures at the Inlet gasketed or welded
flange are calculated In the same manner as the fill pipe for the first tank of
the batch distillation process. Outlet flange pressures are equal to the static
pressure from the fluid in the tank. We assume that the fluid is always pumped
Into the top of the tank and that fluid depth in each tank is 802 of its height.
The batch volume for a continuous process 1s defined as the dally volume
throughput and the filling and discharge times for each piping section are set
to the number of minutes in the operating day (operating hours per day is a user
Input).
We assume that the pH adjusted waste is pumped into the second tank at the same
rate it is pumped Into the first tank. In the second tank sulfur dioxide is
added at a loading rate of 2 pounds of sulfur dioxide per pound of chromium (VI)
1n order to reduce chromium from chromium (VI) to chromium (III). The floc-
culation agent Is added at a loading rate of 0.1 Ib. polyelectrolyte per 1000
gallons of waste, thus giving a total retention time in the second tank of two
hours. We assume that no reactions or phase changes occur in the reactor except
for those pertaining to the destruction of. the hazardous constituents. Also, we
assume that destruction of the hazardous constituent from both dissolved and
suspended portions occurs and that destruction products are non-hazardous. No
appreciable volume change Is assumed due to the addition of sulfur dioxide.
i
The reduced waste containing the flocculating agent 1s pumped Into the third
tank at the same rate that the waste Is pumped Into the first tank. In the
D-iv
-------
third tank the clarifier requires a four hour retention, tine to clarify the
waste. We assume that all of the dissolved hazardous constituents are removed
to the suspended solids phase upon the addition of the flocculating agent. In
order to maintain a high efficiency in the clarifier we assume that the
clarifier does not receive waste streams that have a suspended solids content
greater than two percent on a mass basis.
>•
We assume that the effluent from the clarifier contains no suspended solids and
that^all suspended solids and all coagulant chemicals are carried out with the
underflow waste stream, if the percent solids is less than or equal to two per-
cent by mass. The discharge rates are assumed to be half of the fill rate. •
This Is based oh the assumption that the underflow waste stream Is one percent
solids by mass and that the Inlet stream to the third tank 1s one-half percent
solIds by mass.
The constituent 1n the waste stream generates dry solids in the following
ratios: 1.98 pounds dry solids per pound chromium (VI) precipitated, 2.89
pounds dry solids per pound aluminum precipitated, and 1.51 pounds dry solids
per pound metal precipitated.
D-v
-------
Cyanide Oxidation Precipitation
We model cyanide oxidation/precipitation as a continuous process using three
above-ground or In-ground tanks. Minor modifications to the model will allow
for a batch process to be selected.
The waste Is pumped Into the first tank at a rate that 1s equal to the operating
capacity of the tank divided by the tank's retention time, which 1s the length
of time the fluid is kept.1n the tank to complete any reactions or mixing pro-
cesses. We assume that the waste has a thirty minute retention time in the ';
first tank where the waste pH 1s adjusted to a pH between nine and ten. The
pressures 1n the Inlet pipe and the pressures at the Inlet gasketed or welded
flange are calculated in the same manner as the fill pipe for the first tank of
the batch distillation process. Outlet flange pressures are-equal to the static
pressure from the fluid in the tank. We assume that the fluid is always pumped
into the top of the tank and that fluid depth 1n each tank 1s SOS of Us height.
The batch,volume for a continuous process 1s defined as the daily volume
throughput and the filling and discharge times for each piping section are set
to the number of minutes in the operating day (operating hours per day is a user
Input).
We assume that the pH adjusted waste 1s pumped Into the second tank at the same
rate it is pumped into the first tank. In the second tank the waste is chlori-
nated at a loading rate of 8 parts chlorine to 1 part cyanide in order to oxi-
dize the cyanide from free cyanide or cyanates to carbonates, nitrogen, and
nitrous oxide. The flocculation agent 1s added at a loading rate of 0.1 Ib.
polyelectrolyte per 1000 gallons of waste, thus giving a total retention time in
the second tank of two hours. We assume that no reactions or phase changes
occur 1n the reactor except for those pertaining to the destruction of the
hazardous constituents and that the heat of reaction in either tank is negli-
gible. Also, we assume that destruction products formed in the second tank are
non-Hazardous. No appreciable volume change 1s assumed due to the addition of
sulfur dioxide.
The oxidized waste containing the flocculating agent 1s pumped Into the third
tank at the same rate that the waste 1s pumped Into the first tank. In the
D-v1
-------
third tank the clarifier requires a four hour retention time to clarify the
waste. We assume that all of the dissolved hazardous constituents are removed
to the suspended solids phase upon the addition of the flocculating agent. In
order to maintain a high efficiency In the clarifier we assume that the
clarifier does not receive waste streams that have a suspended solids content
greater than two percent on a mass basis.
We assume that the effluent from the clarifier contains no suspended solids and
that all suspended solids and all coagulant chemicals are carried out with the
underflow waste stream, if the percent solids Is less than or equal to two pejr-
cent by mass. The discharge rates are assumed to be half of the fill rate.
This Is based on the assumption that the underflow waste stream 1s one percent
solids by mass and that the Inlet stream to the third tank 1s one-half percent
solids by mass.
, r*
The constituent in the waste stream generates dry solids in the following
ratios: 1.98 pounds dry solids per pound chromium (VI) precipitated, 2.89
pounds dry solids per pound aluminum precipitated, and 1.51 pounds dry solids
per pound inetal precipitated.
D-v11
-------
Storage
For above-ground or In-ground storage tanks with a capacity of 1000 gallons or
greater, we assume that the waste is pumped into it at a rate of 100 gallons per
minute. Otherwise we assume that the pumping rate is 25 gallons per minute.
For a batch process storage tank we set the batch volume equal to the tank capa-
city divided by the number of batches needed to fill the tank, and the fill time
is equa\ to the batch volume divided by the pumping rate. The discharge volume'
is equal to the tank capacity. For a continuous proces-s "storage tank, the batch
volume for this tank is defined as the daily volume throughput. The daily
volume throughput is defined by dividing the annual throughput (a model input)
by the number of days in the year. The filling and discharge times are set to
the number of minutes in the operating day and the fill and discharge rates are
calculated by dividing the daily volume throughput by the number of minutes in
the day. The pressure in the. inlet pipe and the pressure at the gasketed or
welded flange are calculated in the same manner as the fill pipe for the first
tank in the batch distillation process. We assume that the pressure on the
outlet pipe and gasketed or welded flange equals the static head created by the
fluid in the tank.
If the storage tank is underground the fill rate is determined by the standard
gravitational flow equation. The batch volumes and fill times are calculated in
the same manner as above-ground tanks. The pressure in the inlet pipe is
assumed to be under eight feet of pressure at the midpoint of the pipe and ten
feet of pressure at the gasketed or welded flange (assuming that the top of the
tank is four feet from the surface). We assume four feet of pressure head from
the midpoint of the pipe to the pump and that there are no outlet flange
releases. This Is because the fluid is not in contact with the flange since the
outlet pipe extends to the bottom of the tank.
The tank's typical operating capacity is determined as a user input, and we
assume that Us fluid depth 1s 50* of the tank, thus setting the static pressure
head of-the fluid In the tank.
-------
APPENDIX E
COMPUTER CODE FOR SIMULATION
MODEL
-------
FIGURE 17. FLOW CHART FOR SIMULATION MODEL
SELECT SYSTEM DESIGN, LOCATION,
ENVIRONMENTAL AND WASTE STREAM
CHARACTERISTICS
COMPUTE SYSTEM PARAMETERS
DEPENDENT ON THE CHOSEN VARIABLES
SET EQUIPMENT AGES TO ZERO
I
SET GENERAL AND LOCALIZED INTERNAL/
EXTERNAL CORROSION RATES
EVALUATE FAULT TREES FOR
SYSTEM FAILURE
DOES
SYSTEM FAILURE
OCCUR?
CALCULATE LEAK RATES
FOR ALL NEW FAILURES
NO
E-1
-------
AR£
THERE ANY
ONGOING
LEAKS?
NO
INCREASE SIZE OF CORROSION HCLE5.
RECALCULATE LEAK RATES.
ARE
ANY SYSTEM
FAILURES
DETECTED?
CALCULATE DETECTION DATE.
REPLACE COMPONENTS.
CLEAN-UP ANY CONTAINED RELEASES
CALCULATE TOTAL LOSS
VOLUME FOR THAT MONTH.
ARE
ANY OTHER
COMPONENT
FAILURES
^DETECTED?
NO
r «•«
-------
YES
RESTORE THESE COMPONENTS
TO 'NEW STATUS
INCREMENT
EQUIPMENT
AGES BY
ONE MONTH
HAS ENTIRE
SIMULATION
PERIOD
ELAPSED?
STORE RELEASE PROFILE
AND FAILURE
FREQUENCY TABLE
..NT
;ON
-------
DESCRIPTIONS OF FUNCTIONS AND SUBROUTINES USED
IN THE.COMPUTER CODE
Subroutine or Function
TREE
TREE 1s the driver program. It reads the model
Inputs, Initializes most of the variables, calls
up the routines that will simulate tank system
failures, -and increments the facility age counter
(tn^years) and the iteration counter.
ANCILOS
ANCILOS calls the routines that simulate ancillary
equipment failures due to leaks, ruptures or
Installation deficiencies. It also checks for
ancillary secondary containment failures.
Line Number
00010
13065
FNB
FNB samples binomial distributions. The binomial
probability must be specified when this function
1s
3385
FTIME
FTIME determines the month of Initial failure for
jevents for which the year of failure has been
determined.
LEAKRUP
LEAKRUP calls the routines that check for component
leaks, ruptures or Installation deficiencies.
13445
13475
OEFINCT
DEFICNT simulates Installation deficiencies.
15350
SPILLS
SPILLS determines 1f there has been a loose hose
connection.
16960
E-iv
-------
TNKCCNT 17Q50
TNKCONT simulates tank secondary containment failures.
(This excludes double-walled steel tanks, which
are handled in LEAKRUP, OEFICNT and INADSTR).
INADSTR 17745
INADSTR checks for failures due to corrosion.
TNKDIM * 20005
TNKOIM calculates tank dimensions based on the
system design selected.
CORERAT 20590
CORERAT calls the routines that estimate the interior
generalized corrosion/erosion rate and the exterior
generalized and localized corrosion rates.
CORER • 21485
CORER.estimates the interior generalized corrosion/
erosion rates.
EXTCOR 21895
EXTCOR estimates the exterior generalized and
localized corrosion rates.
CORPRB 22145
CORPRB samples the incompatability/aging factor
for gaskets.
INTCORR ' 22195
INTCORR determines the interior localized
corrosion rate.
THLOSS 22640
THLOSS subtracts the Interior and exterior rates
from the component's wall thickness variables.
E-v
-------
FNN 23000
FNN draws a value from any specified normal
distribution.
FBNE 23060
FNBE draws a value from any specified beta
distribution.
CATREL 23355
CATREL checks for catastrophic failures.
RUPTURE -• 23620
RUPTURE samples the rupture fault tree for
component rupture.
'.
OVERFLW 23985
OVERFLW 1s used each month to check for overflows.
RELEASE 24530
RELEASE sizes the failure event releases by sampling
a leak rate for each failure event and sampling a
time of detection. Corrosion leak rates grow every
month and detection times are a function of the
detection options selected, detection sampling
frequencies* leak rates, and volume losses.
RATEDET 54355
RATEOET uses the release rate to determine if a leak
Is detected by casual visual inspection.
RAN 54480
RAN draws a random number between 0 and 1.
LEAKRT 54505
LEAKRT estimates above-ground release rates
*"" *v- -•••«•« r*» th*t estimates underground
-------
CLENUP 54925
ClENUP calculates the total volume that Mas
contained and cleaned up. Because they are
cleaned up, these releases are not included
1n the annual release totals.
IMMINV ; 5*960
IMMINV models detection by casual Inventory
monitoring.
UGRATE 55180
UGRATE estimates release rates for releases
Into the soil.
SETOPAR . 55460
SETOPAR calculates filling and discharge rates,
batch volumes, and filling and discharge
durations.
FNU 56435
FNU draws a value from any specified uniform
distribution.
SETCOST^ 56485
SETCOST calculates the dimensions of the excavation
for an underground tank system. We use these dimen-
sions to determine detection thresholds for U-tubes
and Pollulert systems.
REPLAC 57140
REPLAC replaces detected failed components and
resamples time-to-failure variables that are
associated with these components (e.g. coating
time.of failure or cathodlc protection system time
of failure).
E-v11
-------
SETVAP 5SC90
SETVAP estimates the vapor transport times (the
time it takes the vapor to reach the detection
threshold concentration at a vapor well.
ERF 58275
ERF Interpolates the error function. This is used
to estimate vapor transport times.
VAPOR 58630
VAPOR checks for vapor sensor failure.
PENET 58760
PENET calculates the fluid's depth of penetration
Into the soil.
SAVCALC 58955
SAVCALC'calculates the soil aggressiveness value
(SAV) based on four soil characteristics: resistivity,
pH, water content, and sulfide content.
AGEEST 59230
AGGEST estimates the time of external corrosion
failure for tanks, vaulted pipes, and above-ground
pipes.
SI20IST 59815
SIZOIST creates the volume distribution for all
of the releases from the model run. This may be
used as output from the model.
RESTART
RESTART Initializes all the detection options that
are put Into use In year zero for existing tanks.
E-viii
-------
61180
FIX reinitializes the variables associated with
components that are replaced.
VAP2ERO 63020
VAPZERO resets the variables associated with vapor
wells when a component is replaced.
n
DETOIST • 63175
DETDIST creates the time distribution for all of the
releases from the model run. This may be used as
output from the model.
COATS $3345
COATS determines the time of failure for coatings.
SECCON 63805
SECCON ''calculates the date of failure for various
secondary containment devices.
LKPIPE 64005
IKPIPE uses the Rossum model to determine if a leak
•has developed in a pipe.
INTREPL 64330
INTREPL resamples the probability of interior
localized corrosion for a component that has been
replaced.
EXTREPL 64715
EXTREPL resamples the exterior corosion rate for the
component that has been replaced.
VOLADJ 65075
VOLAOJ adjusts the release volumes for treatment
processes so that they reflect the amount of
hazardous constituent that has been released.
V-1x
-------
RETRO 6=350
RETRO Initializes the variables used to turn
on the containment when partial secondary or
cathodlc protection are put Into use In year
zero for existing tanks.
E-x
-------
00010 PROGRAM TREE (INPUT.OUTPUT,FILINPT.RES31.T3TM.R£L31»2$5/265,EXiC«
00015+250/250, SKI PS, FR£Q.TAP£S-REIB1,TAPE9«500.TAPE 10-RES31-,TAPE !!•
00020+FILINPT.TAPE12«EX£C.TAPE]3-SKIPS,TAP£H»-TRT/1.TAPE15-FREq^ -
00025 COMMON/RETR/RETROFT
00050 LOGICAL RETROFT
00035 COW10N/RET1/TLINE(3) ,TVLT(3) ,TC?AO(3) .TAPAO (3) ,TC8R«(3) ,TABRM(3) .
000*0+TOIK(5).TCUR(5),TPASP(5).TPCOP(5),TPLIN(5),TCATTI/1
000*5 REAL TLINE.TVLT.TCPAO.TAPAD.TCBRM.TABRrt.TOIK.TCUR.TPASP.TPCOP,
00050+TPLIN.TCATTIM
00055 COW10N/RET2/TVAULT.TLfNER,TCON?AO,TASPPAD,TCBERM,TABERM.TDIKE.
00060+TCURB,TAS?AO.TCOPAD,TPLINER.TNOSEC,TPlPSEC,TLVAULTtTULVALT.
00065+TCATST.TPICATH
00070 LOGICAL TVAULT.TLINER,TCONPAD.TASPPAO.TC3ERM,TAB£RM.TDIK£,TCUR3,
00075+TAS?AO,TCOPAD,TPLINER.TNOSEC,TPIPSEC.TLVAULT,TULVALT,
00080+TCATST.TPICATH
00085 COW10N/OFL5/OPVLOE (2) .QPVLON (2)
00090 REAL OPVLOE.OPVLON
00095 INTEGER YRADJ.TEMPFAL.FALTMP1(10) .FALTKP3(10).FALTMP700)
00100 REAL TE/1PVOL.CALCVOL,FALTIrtE,FALW2(10) ,
00105* FALTMP500)
00110 COAWON/LEVOP/OPLEV
00115 REAL OPLEV
00120 COW10N/EFFIC/TRTEFF.DVOLFR
00125 REAL TRTEFF.OVOLFR
00130 COW10N/TKFRAC/TANKTIM(3)
00135 REAL TANKTIfl
00HO COAV10N/WINSP/WEEKINS
00145 LOGICAL WEEK INS
00150 CO/WON/PI2TIM/DIKTIM(5) ,CURTm(5) ,PASPTI«(5) ,PCOPTI«(5) ,PLINTIM(5)
00155 REAL OIKfl.1.CURTlM,PASPTlMfPCOPTlM,PLINTIM
00160 COMWW/CONPERAl/PERMREL (3)
00165 REAL PERMR^L.PI.SAREA.CNPERM
00170 COMMON/NYR/NYEAR
00175 INTEGER NYEAR
00180 COMrtON/rtOINV/MINV.rtINT
00185 REAL MINV
00190 INTEGER MINT
00195 COrtMON/CONCTM/CONCT I« (3)
00200 REAL CONCTJfl
00205 COrtrtON/CTFL/CTFLAG
00210 LOGICAL CTFLAG
00215 LOGICAL FAIL5.SKLKTKS,SKLKFAS,BASERUN
00220 INTEGER YREV(I I) .YREV1 (11) .YREVP (11) .YREVP1 (11) .NEXTRUN
00225 INTEGER YREVW(J 1) .YREVW1 (11)
00230 REAL DBS
00235 COM/tON/LKLEN/P ILKWI0 (5). PILKLEN (5)
002*0 REAL PILKWIO.PILKLEN
002*5 CO«MON/CWIO/PIOFWIO(5),RPPIWIO(5).TKOFWIO(31,RPTKWIO(3),WLOFWIO
00250*(5) .CKOFWIO (5) .RPWLWIO (5)
00255 REAL PIOFWIO.RPPIWIO.TKOFVID.RPTKWIO.WLOFWIO,
00260-t-GKDFWIO,RPWLWID
00265 CO«MON/CLEN/PIOFLEN(5) .RPPILEN(5) ,TKOFLEN(3) ,RPTKLEN(3) .WLOFLEN
00270*(3) .CKOFLEN(5) ,RPWLLEN(5)
00275 REAL /IOFLEN.RPPILEN.TKOFLEN.RPTKLEN,WLOFLEN.
00280+GKDFLEN.RPWLLEN
00285 COMrtON/HOF/MOFILL (2)
00290 REAL flOFILL
- El -
-------
:::35 CO/WW/OPERAT/BATCH.CONT
CC300 COMMON/AX/IY
00305 COMMON/RUPLEN/CLENGTH(5).CWIDTH(5) .CD I AM(5)
00310 REAL CLENGTH.CVIDTH.COIAM
00315 COM«GN/PIPELK/INTLK(5),PIPAG£(5),NU«LK(5).PRAN(5)
00320 INTEGER INTLK.Nimi.IC,PIPAGE
00325 REAL FRAN
00330 COM*ON/LENMIN/CLENMIN(5).CVIDMIN(5),CDIWtlN(5)
00335 REAL CLENMIN.CWIOMIN.COIMMIN
003J«0 COMMON/MODE/COI MMOO (5)
00345 REAL COIMMOD
00350 ,COnMON/0£FSEC/SECOEF (2)
00355 REAL SECOEF
00360 COftMON/CRAO/CRADLE
00365 LOGICAL CRADLE
00370 COMMON/PIFRP/PFRP
00375 LOGICAL PFRP
00380 COMMON/FLORTHK/FLORTHK
00385 COMMON/SECMAIN/MAINT
00390 LOGICAL HA I NT
00395 COMMON/BERM/CBERM.ABERM
00400 LOGICAL CBERM.ABERM
00405 COMMON/TIME/APADTIM(3) ,CPADTIM(3) ,VLTTIM(3) ,CBRMTIM(3) ,ABRMTIM(3>
OOtIO REAL APADTIM.CPADTIM.VLTTIM.CBRMTIM.ABRMTIM
00^15 COWON/RUPT2/YRPVON (2) .YRVLON (2)
00420 COMW)N/RUPT1/OPCOM(2) ,PRESREL(2)
00425 REAL YRPVON.YRVLON.OPCOM.PRESREL
00430 COMMON/OFLl/OFTRCOft(2).OFTROM(2)
00435 COrtMOH/OFL2/MOPMOE (2).HOPVON (2).ftOVLOE (2).MOVLON(2)
00440 COMWJN/OFL3/MOPMCE (2) .MOPMCN (2) .MOVLCE (2) .MOVLCN (2)
00445 COMMON/OFL4/MOALARM (2) ,FLVCN2(2) ,LEVIN2(2) .FLVCN1 (2) ,OPCO«rt(2)
00450 REAL OFTRCOrt.OFTROrt
00455 REAL MOPMOE.MOPVON.MOVLOE.NOVLON
00460 REAL nOPMCE.MOPMCN,MOVLCE,MOVLCN
00465 REAL MOALARM,FLVCN2,LEVIN2,FLVCN1.0PCOMM
00470 INTEGER NOIL
00475 COMMON/SUSPSOL/SUSSOL(5)
00480 REAL SUSSOL
00485 COMMON/PH/PH{5)
00490 REAL PH
00495 REAL FRACH20
00500 INTEGER OPOYYR.OAYSTOR
00505 REAL NUMBAT
00510 COrtMON/OPOAY/OPOYYR
00515 COnMON/BTCHIN/NUnflAT.DAYSTOR
00520 CO*MON/TECH/NEUT,CHREO,CYNOX.PRECIP,DI STILL,EVAP,STORAGE,ACTCARB
00525 COrtMON/OPRI/AUTOrtAT,MANUAL
00530 COMMON/SHUT/AUTSHLTT
00535 LOGICAL MANUAL.AUTOMAT
00540 COMMON/OPCL/OPEN,CLOSED
00545 LOGICAL OPEN.CLOSED
00550-LOCICAL BATCH.CONT.PCSTEEL.
00555*PSSTEEL. IGWASTE.AUTSHUT.NEUT.CHRED.CYNOX.PRECIP.DISTILL.EVAP
00560+,STORAGE.ACTCARB
00565 COMMON/PMATL/PCSTEEL.PSSTEEL
00570 COMMON/IYRNO/IYRNUM
00575 COMMON/LOOPCT/NPI. NTK
- E2 -
-------
00580 INTEGER NPl.NTK
00585 COrtrtON/FRAC/AGFRAC.PAGFSAC.AGCONFR.UGCONFR
00590 REAL AGFRAC.PAGFRAC.AGCONFR.UGCONFR
00595 COnrtON/VLREM/TTRE*VL,TPREMVL
00600 REAL T7REMVL.TPREMVL
00605 COMrtON/T£MPS/T?IPrtON.TTKTST,TTKlTS7.TTK5T3T.TTKSTST.
00610* TPITST.TPI1TST,7PI5TST,TPISTST.TMNKETH(6).TULTRTS
00615+ .TKINVL.TVINVL.TIINVL.EXMINV,EXWINV.EX!INV
00620 REAL TMINVL.TVINVL.TIINVL.EXKINV.EXVINV.EXIINV
00625 LOGICAL TPIPMON,TTKTST.TTK1TSTtTTK5TST,T7KS7ST.T?lTST,
00630* TPI1TST.TPI5TST.TPISTST.TMNMETH,TULTRTS.TANKREP
00635 COMrtON/TANKREP/TANKREP
OO&M) COMMON/AGSTART/AGPOPUL.AGTKLK
006^5 INTEGER AGPOPUL.AGTKLK.AGTKAGE.YRO.IYRNUrt,J.CTNONLK
00650 INTEGER MM
00655 COMMON/TESTING/TNK1TST,TNK57ST,PIP1TST,PIP57ST
00660 COMMON/UNOET/TSUB.TSURF.SUBSURF.SURF
00665 REAL TSUB.TSURF.SUBSURF.SURF
00670 REAL TCLVOL.TTCVOL
00675 COrtrtON/CCLEAN/TCLVOL.TTCVOL
00680 INTEGER TANKAGE.COUNT1
00685 COnnON/TANKAGE/TANKAGE
00690 REAL TRVOL
00695 COMMON/RCLEAN/TRVOL
00700 CHARACTER LAB (166) *51 .FNAM£*64,TITLE*nO
00705 CHARACTER TITLE1*110
00710 INTEGER FALNUn,FALNUM1.FALNUM3,FALNUHl»tFALNUM7
00715 COMMOH/FALNUM/FALNUM.FALNimi(100).FALNUM2(100) .FALNUM3(100) ,
00720* FALNXMOOO) ,FALNUM5(100) .FALNUM7 (100)
00725 COnflON/FALNim6/FALNim6(100)
00730 CHARACTER FALNUM6*2
00735 REAL FALNUM2.FALNUH5
007^0 REAL VOL1
007^*5 COMMON/LOWVOL1/VOL1
00750 COMMON/OISCH/OISCRT(5) ,OISCTIM(5) ,OISCFR(5) .VEHTANK.THRUPUT
00755 REAL OISCRT,OISCTIM,OISCFR,VEHTANK.THRUPUT
00760 COMMON/INVCNTL/INVCNTL
00765 LOGICAL INVCNTL
00770 REAL PPNDPTH
00775 COttMON/CONTAM/PPNDPTH .TPNDPTH
00780*
00785 COMMON/MCGOROP/MCWHORT.GOROP '
00790 REAL ftCVHORT.GDROP
00795 LOGICAL TNK1TST.TNK5TST,PIP1TST,PIP5TST,TNKSTST.PIPS7ST
00800 COM«ON/SE«ITST/TNKSTST,PI PSTST
00805 LOGICAL BAKFILL
00810 COWON/BAKF ILL/BAKFILL (M
00815 COMMON/PI PET IM/PIPDEF (5) .WLODEF (5) .GSKDEF (5) .PIPLK (5) ,
00820+GSKLK (5) .RUPPIP (5)
00825 COMMON/TANKTIM/TNROEF (3) .TNKLK (3) .RUPTNK (3)
00830, COMMON/SURFTIM/LOOSE,HOSPORT,PMPLK(5) ,RUPWLO(5) .VENT
00835 COnnON/SUFTin/HOSPERA.DRANPnP (5)
008UO
008U5 INTEGER PIPOEF.WLDOEF.GSKDEF,PIPLK.CSKUK,RUPPIP
00850 INTEGER TNKDEF,TNKLK.RUPTNK
00855 INTEGER LOOSE.HOSPORT.PrtPLK.RUPWLD,VENT
00860 INTEGER HOSPERM.ORANPHP
• E3 •
-------
00865 COM*ON/RUPPROB/TNKRUP2 (2) .TNKRUP (2) .WLDRUP (2) .PIPRUP'U) .PORTHCS (;)
00870 COWION/RUPPRl/PERMHOStt) ,PttPORAN(2)
00875 REAL PERnHOS.PMPDRAN
00880 REAL TNKRUP.TNKRUP2.WLORUP.PIPRUP.PORTHOS
00885 COMrtON/SPLPRB/LOOSCON(2)
00890 REAL LQOSCON
00895 COMWJN/FIDITYP/FILLING.OISCHRG
00900 INTEGER FILLING,DISCHRG
00905 COMMON/PUMPTYP/PORTFP.PORTDP
00910 LOGICAL PORTFP.PORTDP
009I5 COMMON/PLACE/UGPIPE.AGTANK.IGTANK,UGTANK,AGP IPE,AGPUMP
00920 LOGICAL UGPIPE,AGTANK,IGTANK.UGTANK.AGP1PE,AGPUMP
00925 COMMON/ANC/ANCIL
00930 LOGICAL ANCIL
00935 COMMON/LIFCOR/LIFCOR(2,5)
009{»0 REAL LIFCOR.INCFACT
009{»5 COMMON/SOI L/SATSOIL.SPH.RES I S.SULFSOL
00950 REAL RESIS.SPH
00955 LOGICAL SATSOIL.SULFSOL
00960 COMrtON/CORE/PCORE (5) ,GCORE (5) .PMCORE (5) .TCORE (3) .TCORE2 (3)
00965 COMMON/CORE 1 /PCORE2 (5) , PI EXT2 (5) , PI EXL02 (5)
00970 REAL PCORE2.PIEXT2.PIEXL02
00975 REAL PCORE.GCORE.PMCORE.TCORE.TCORE2
00980 COMrtON/CONT/UGCONT (3) , AGCONT (3) , PIPCONT (5) . NUGCONT (3) , NAGCONT (3)
00985+,NPICONT(5)
00990 INTEGER UGCONT.AGCONT,PIPCONT,NUGCONT.NAGCONT,NPICONT
00995 COrtrtON/PIPCON/01KE,CURB,ASPAO,COPAO,PL INER
01000 LOGICAL DIKE.CURB,ASPAO,COPAO.PL INER
01005 COM*ON/DEFPR08/LIFDEF(2.7).GSKINC(2)
01010 REAL LIFOEF.GSKINC
01015 COMMON/CONNECT/WELDFLG,GASKET
01020 LOGICAL WELOFLG.GASKET
01025 COMrtON/TKCONT/CONCPAO.ASPHPAO
01030 COM«ON/LINE/LINETIM(3)
01035 COW10N/WALL/TK2WALL.PI2WALL
01040 LOGICAL CONCPAO.ASPHPAO
01045 REAL LI NETIM
01050 LOGICAL TK2WALL.PI2WALL
01055 COWtON/THICK/TANKI (3) .TANK2I (3)
01060 COnnON/EXTH IAANKE (3) .TANK2E (3)
01065 REAL TANKI.TANK2I
01070 REAL TANKE.TANK2E
01075 COMMON/MATPAR/APAR.CPAR.APARPI .CPARPI .APARPM.CPARPH
01080 REAL APAR,CPAR,APARPI,CPARPI,APARPft.CPARPft
01085 REAL A(7).CC(7)
01090
01095 COfWON/STRESS/STRESS (5) .CORTHOS (2)
01100 COMMON/THICKNS/PIPEI(5).PUMPI (5).CASKI(5)
01105 COMMON/EXTHICK/PIPEE(5),PUMPE(5),GASKE(5),PIPE2E(5),PIPE2I(5)
OH 10 COMMON/I THICK/I PIPE (5) . IPUHP (5). I TANK (3) . I CASK (5) . ITANK2 (3)
01115 COnnON/OlAA/POIAM(5)
01120 REAL (PIPE.1PUMP,(TANK.(CASK,ITANK2
01125 REAL PIPEI,PU«PI.CASK!.POIAM
01130 REAL PIPEE.PUMPE.GASKE.PIPE2E.PIPE2I
01135 REAL STRESS,CORTHOS
01140 COMMON/VENT/VCORE.VENTI .VEMTE, IVENT.VLOCAL.VNTLOC.VEXT.
01145+VEXTLOC
- E4 -
-------
01150 REAL VNTLOC
01155 REAL VCORE.VENTI.VENTE.IVENT.VLOCAL.VEXT.VEXTLOC
01160 COrtflON/SECON/ULVAULT.LVAULT.PlPSEC, VAULT, NOSECON
01165 LOGICAL ULVAULT.LVAULT.PIPStC, VAULT, NOSECON
OH70 COrtrtON/TANKMAT/CSTEEL.SSTEEL.FRP.CATSTEL.PlCATH.CONCRT
01175 LOGICAL CSTEEL.SSTEEL.FRP.CATSTEL.PICATH.CONCRT
01180 COMMON /TKGEOM/HOR I Z, VERT
01185 LOGICAL HORIZ.VERT
01190 COMrtON/TANKDM/TLENGTH(3).TVIDTH(3) .THEIGHT (3) .UGTHGHT (3)
0 1 1 95+AGTHGHT (3) , 0 1 AM (3) , LENGTH (3)
01200 REAL TLENGTH.TVIDTH. THEIGHT, UGTHGHT. AGTHGHT.DI Art. LENGTH
01205 60MMON/COATS/COATING(1»,3.5)
01210 LOGICAL COATING
01215 COnnON/COATl«/ICOATIrt(3,5) ,ECOATIM(3.5)
01220 REAL ICOATIM.ECOATIM
01225 COttMON/CATHLOS/CATHLOS
01230 REAL CATHLOS
01235 COrtMON/CATHOD/CATFAIL
01240 LOGICAL CATFAIL
0 1 2U5 COMMON/TK I NFO/FRACTUG .TNKCAP (3)
01250 REAL FRACTUG. TNKCAP
01255 REAL CATTIM.CATHINS.CATREP
01260 COMMON/CATSYS/CATTIM
01265 COAWON/CATMAIN/MAINTEN
01270 REAL KAINTEN
01275 INTEGER FAC
01280 REAL E(5)
01285 COMMpN/F I LL/F I LLRT (5) , F I LLT I K (5) . F I LLFR (5) , F I LLVOL (5)
01290 REAL F|LLRTtFILLTI«,FILLFR,FILLVOL
0 1 295 CtirtMON/CATREL/ANUCAT (2 . 7) , I GPROD
01300 REAL ANUCATJGPROO
01305 COMMON/CATAST/CATASTR(12)
01310 INTEGER CATASTR
01315 COMMON/CATAS/VANDAL,WINO,EARTHQU,FLOOO,FIREXPL,FIRE
013-20 INTEGER VANDAL, WIND, EARTHQU, FLOOD, FIREXPL, FIRE
0 1 325 COMMON/REG I ON/COASTAL . F LOOOPL . EARTHZN
01330 LOGICAL COASTAL. FLOOOPL. EARTHZN
01335 COnnON/OVER/nOLEVIN(2)
013^0 REAL nOLEVIN
01350
01355 REAL HRSMO.ftlNMO.OAYftO
01360 COnftON/INVEN/ftlNVLIH.IINVLin.WINVLIM
01365
01370 REAL niNVLin.llNVLIM.VINVLIM
01375 COMMON/PR I NSP/P I PI NSF (2) .TNKINSF (2) .PNPINSF (2) .SECINSP (2)
01380 REAL PIPINSF, TNKINSF, PMPINSF, SECINSP
01385 COMMOM/TSTF LAG AKTSTG , P I TSTG , ULTRTST
01390 LOGICAL TKTSTG. PI TSTG, ULTRTST
01395 COMMON/TPLIMIT/PITSLIM.TKTSLIM.PIHNLIH
OUOO.REAL PlTSLIrt.TKTSLIM.PIMNUn
01405 COMMON/TSTNON/PITEST.TKTEST.ULTEST.LYSTEST
01410 INTEGER PITEST.TKTEST.ULTEST.LYSTEST
OU15 REAL PMOPEN.TMOPEN
OU20 COMMON/nONTHLY/PMOPEN.TnOPEN
01425 REAL LYSIM.LYSOPTH.PLYSIM.TPNOPTH
OU30 COnnON/LYS/LYSIH(2) .LYSOPTH.PLYSIft
- E5 - ---
-------
OU35 COMMON/ALARM/1NTERS7 (5.2) , INTER.p| INTER (5. 2) .PINTER
014fcQ REAL INTERS7, INTER.P.I INTER.PINTER
01445 COM/ION/1NSP/INSPECT (4)
OU50 LOGICAL INSPECT
01455 COnMON/VSTCON/SGRAV
C1460 REAL SGRAV
01465 CO«MON/PRESS/PRESS(5.5)
011*70 REAL PRESS
011*75 COW10N/MATL/TNKMATL.PIPMATL
01480 INTEGER TNKrtATL.PIPMATL
011*85 COAMON/OPHRS/OPHRSOY
011*90 REAL OPHRSOY
011*95 COMMON/SO I LCH/SPHER. VOID. OPART
01500 REAL SPHER.VOID.OPART
01505 COMMON/CHARAC/OENS.VISCOS
01510 REAL OENS.VISCOS
01515 COW10N/COUNT/NPIPOEF(5) .NWLDDEF (5) .NGSKOEF (5) .NPIPLK (5) .NGSKLK (5) ,
01520+NRUPPIP(5) .NP«PLK(5),NRUPWLO(5) ,NTNKLK(3) ,NTNKOEF(3) ,NRUPTNK(3)
01525 REAL NPIPDEF.NWLDDEF,NGSKDEF.NPIPLK,NGSKLK,NRUPPIP.NPMPLK.NRUPWLD,
01530+ NTNKLK.NTNKOEF.NRUPTNK
01535 COW10N/VOLTOT/TVOLUME
01540 REAL TVOLUME
01545 CO«MON/CDIAW/PIDFDIA(5).PILKDIA(5) .PMLKDIA (5) .GKLKOIA (5)-.TKLKOI A
01550* (3)
01555 REAL PIDFOIA.PILKDIA.PMLKDIA.GKLKDIA.TKLKDIA
01560 COnnON/DAVOLl/LOSEVOL,OVERVOL(12).HOSEVOL.PMLKVOL (5),RPWLVOL(5)
01565 REAL LOSEVOL.OVERVOL.HOSEVOL.PMLKVOL.RPWLVOL
01570 COAWON/VOL2/ PIDEFVL(5) ,WLDEFVL(5) ,GKDEFVL(5) ,PILKVOL(5) .GKLKVOL
01575*(5).WP.IVOL(5)
01580 REAL- PKJEFVL.WLOEFVL.GKOEFVL.PILKVOL,GKLKVOL.RPPIVOL
01585 COAWON/VOL3/ TKDEFVL (3) .TKLKVOL (3) .RPTKVOL (3)
01530 REAL TKOEFVL.TKLKVOL,RPTKVOL
01595 COMrtON/RATEl/ PIOEFRT(5) ,WLDEFRT(5) ,GKDEFRT(5) ,PILKRT(5) .GKLXRT
01600+(5) ,RPPIRT(5)
01605 REAL PIDEFRT,WLOEFRTfGKDEFRT,PILKRT,GKLKRTfRPPIRT
01610 COW10N/RATE2/ TKOEFRT (3) ,TKLKRT(3) .RPTKRT (3)
01615 COMMON/RATES/ PMLKRT(5).RPWLRT(5)
01620 REAL TKOEFRT.TKLKRT,RPTKRT.PMLKRT.RPWLRT
01625 COMMON/LIN/LINER
01630 LOGICAL LINER
01635 COnnON/UATER/GWOPTH
01640 REAL GWDPTH
01645 REAL PIPLEN
01650 COMMON/P!PEOM/PIPLEN(5)
01655 COftMOM/MONIT/nONMETH(7) .PIPMON
01660 LOGICAL nONHETH.PIPnON
01665 COMAON/VOLCOMP/TCVOL
01670 REAL TCVOL
01675 LOGICAL CONVTPO.ASPVTPD
01680 COMMON/OTHSEC/CONVTPO.ASPVTPO
01685 COMMON/DEFFLAG/OLTNK(3).OOTNK (3).ORTNK (3).OLGSK (5).DOGSK(5),
01690+OOWLO (5) . ORWLO (5) . DLPIP (5) . ORPIP (5). OOP IP (5). DLPHP (5) . CALL
01695 LOGICAL OLTNK,OOTNK,ORTNK,OLGSK.DOGSK,DOWLO,ORWLO,DLPIP.ORPJP,
0170
-------
01720 COMHON/VAPVOIS/VAPWDIS(3)
01725 C3nrtON/MASSDIF/DIFFI;DlFFl.DlFr2.VAPRE3S
01730 REAL DIFFI.DIFF1.0IFF2.VAPRESS
01735 COMMON/THRESH/LOWER.FLASHTM.FLASHX.FLASHVL,POOF.FLASHOP.FLASHPT
017*»0 REAL LOWER.FLASHTM.FLASHX.FLASHVL.POOF,FLASHOP.FLASHPT
017<»5 LOGICAL SOIL
01750 COnnON/SOILTYP/SOILM
01755 INTEGER PTSTFRQ.TTSTFRQ.UTSTFRQ.LTSTFRQ
01760 COnMON/FREQ/PTSTFRQ.TTSTFRQ.UTSTFRQ.LTSTFRQ
01765 COMMON/GEOL/POSZ.THETA,NFFLAG,POR.THETAP,PERM
01770 REAL POSZ.THETA.POR.THETAP.PERM
01775 LOGICAL PIREPAR.TKREPAR.PHREPAR
01780 CC«MON/PITR£/PIREPAR(5).TKREPAR(3).PMREPAR(5)
01785 INTEGER NFFLAG
01790 COMMON/BYPASS/VLDFLGR.VLDFLGD.GSKFLGL.GSKFLGD
01795 LOGICAL WLDFLGR.WLDFLGD.GSKFLGL.GSKFLGD
01800 INTEGER NONLEAK.AGGFAIL.AGNYFAL.AGCORNO.AGFLASH.AGTKREP.AGPLimE
01805 INTEGER AGPL15
01810 INTEGER AGUNOET.AGPIPNO
01815 REAL CUMREL.AGPLVOL.AGPLARE.AGUNSAT
01820+.AGTK1ST
01825 COMnON/AGG/NONLEAK.AGGFAIL.AGNYFAL.ACCORNO.CUMREL.AGPIPNO,
01830+AGTKREP.AGPLUME,
01835+AGPLVOL,AGPLARE,AGUNSAT,AGPL15.AGUNDET
018*0+,AGTK1ST.AGFLASH
Ol8i»5 COMMON/1 SEED/1 SEED
01850 INTEGER (SEED
01855 INTEGER SEED
01860 COrtMOfl/INV/nONINV.WEEKINV
C1865 LOGICAL.'.MONINV,WEEKINV
01870 COMMON/OISTSIZ/NSIZEOM
01875 INTEGER NSIZE
01880 COnnON/VAPPRB/VAPSENS,VSENSOR
01885 REAL VAPSENS.VSENSOR
01890 CO«MON/VAPOR/TKDFVAP,TKRPVAP,TKLKVAP,PIDFVAP(5),PIRPVAP(5).
01895+ PI LKVAP (5) .WGOFVAP (5) ,WGLRVAP (5) , PMPVAP (5)
01900 COfWON/VFLAG/VAPFLG.VAPDET
01905 REAL TKOFVAP.TKRPVAP.TKLKVAP.PIOFVAP.PIRPVAP.PILKVAP,
01910+ WGOFVAP.WGLRVAP.PMPVAP
01915 connoN/SAV/SAv
01920 LOGICAL VAPFLG.VAPDET
01925 COMMON/LP/LPAR.LPARPI
01930 REAL LPAR.LPARPI.SAV
01935 COrtftON/DC/DCFACT
01940 REAL OCFACT.OCPRB
019<»5 COMMON/SAVAGE/UGTLOW,UGTMEO. UGTHIGH,AGTALL
01950 REAL UCTLOW.UGTMEO,UGTHIGH,AGTALL
01955 REAL AGGAGE.AVGAGE
01960 COnnON/OTOIST/OETSIZE(12)
01965 INTEGER DETSIZE
01970 COMHON/FLSHPT/FLASHON.FLREMEO
01975 4.0GICAL FLASHON.FLREMEO
01980 DIMENSION UGTLOW(7,2),UGTMEO(7.2).UGTHIGH(7.2).A6TALL(7.2)
01985 01 HENS I ON POROS (k).RES 10(4).RES I OP(6,M
01990 DIMENSION U (5). X (5), Y (5)
01995 DIMENSION AGUNDET (40), AGTK 1ST (500)
02000 DIMENSION TVOLUME(40)
• E7 -
-------
02905
02010
02015
02020
02025
02030
02035
020<*5
02050
02055
02060
02065
02070
02075
02080
02085
02090
02095
02100
02105
02110
02115
02120
02125
02130
02135
02 140
02 145
02150
02155
02160
02165
02170
02175
02180
02185
02190
02195
DIMENSION TCVOL(40)
DIMENS I ON PTSTFRQ (40) .TTSTrSQ (J.O) . UTSTFRQ (p)
DATA(COIMMIN (I).1-1.5)7.0156..0156..C156.0...01567
DATA(CD I AM (I).1-1.5)/.25,.25..25,0...257
DATA(CDIMMOD(I).1-1.5)/.03125,.03125..03125,0...031257
OATA(CWIDMIN(I).I-1,5)/.1.0.,0.,0..0.7
DATA(CLENMIN(|).I-1.5)/1..0.,3..0..0.7
DATA OCPRB/0.107
•1.7)70.0,0.0,0.0..063,.240..483..6997
•1,7)70..4..9.,14.,19.,24..30./
•1.7)70.0,0.0..111..291..540,.673..7667
•1.7)70.,4.,9.,14.,19.,24..30.7
l-l.7)70.0,0.0..267,.499,.765,.799,.8337
1-1,7)70.,4.,9., U.t 19.,24.,30.7
•1.7)70.0,0.0,0.0,.0315..120..2415..34457
•1,7)70.,4..9.,14..19.,24.,30./
,5)713700.,18700.,13700..13700..13700./
DATA (UGTLOW( 1.1).
OATA(UGTLOW(I.2).
DATA (UGTMED( 1.1).
OATA(UGTMED(I,2).
&ATA(UGTHIGH(I,1)
OATA(UGTHIGH(I.2)
OATA(AGTALLO.I).
OATA(AGTALL(I.2).
DATA (STRESS (I). I-
,L-1
!L-I!
.L-1,
•1.
•1.
5)7.157..237..157,.157,.1577
5)7.157,.237..157..157,.1577
5)71.188,1.375,1.188,1.188,1.1887
5)71.188,1.375.1.188,1.188.1.1887
.25..25..257
.25,.25..257
5)7.25,.25,
5)7.25,.25,
DATA(CORTHDS(I).I-1.2)/.25..1257
DATA (PDIAM(L).L-l.5)72..4.,2..2.,2.7
DATA (PIPEI (L)
DATA (PIPEE (L)
DATA (CASK I (L)
DATA (GASKE (L)
DATA (PUMP I (L)
OATA(PUMPE(L),L
DATA VENTI7.1577
DATA VENTE/.1577
DATA CATHLOS/.0027
DATA(A(I).l-l,7)71.,!.,1.3.1.3.1..4..0.7
DATA{CC(I).l-l.7)71..1...5..5,1..!.,0.7
DATA (E (1), 1-1.5) 71..!..2..0.,0.7
DATA PLYSIM/.01/
I)
I)
I)
I)
I)
I)
.4)7
.4)7
,4)7
,4)7.
,4)7
.4)7.
.10,
.10.
.15,
.20.
20,
10,
.10
.10
.15
.20
.20
.10
.
,
,
,
.
.10,
.10,
.15,
.20,
.20,
.10,
*
»
*
*
•
•
107
107
157
207
207
107
DATA (RES I DP (1,
DATA (RES I DP (2,
DATA (RES I DP(3,
DATA (RES I DP (kt
DATA (RES I OP (5,
DATA (RES I OP(6,
DATA PI/3.H167
0 2200******************************************
02205 00 66666 L-1.5
SUSSOL(L)-0.
PH(L)-7-
66666 CONTINUE
FNAME
OLD')
02210
02215
02220
02225
02230
02235
022UO
02245
02250
02255
02260
02265
02270
02275
02280
02285
READ(11.' (A)')
OPEN(9.fILE-FNAME.STATUS-'
701 FORMAT (A51.16)
612 FORMAT (14)
702 FORMAT (A5D
7070 FORMAT(A110)
703 FORMAT (A51.L7)
FORMAT (A51.F 19.10)
FORMAT (A17.10 (12. IX))
FORMAT (A51.F6.2)
FORMAT (A51.F10.1)
FORMAT(A51,F5.3)
FORMAT (A51.F9.6)
704
705
706
702
708
709
- E8 -
-------
02290 710
02295 7H
02300 713
02305
02310
02315
02320
02325
02330
02335
02340
02345
02350
02355
02360
02365
02370
02375
02380
02385
02390
02395
02400
02405
02410
02415
02420
02425
02430
02435
02440
02445
02450
02455
02460
02465
02470
02475
02480
02485 READ(9
02490 READ(9
READ(9
READ (9
715
READ(9
READ (9
READ (9
READ (9
READ (9
READ (9
READ (9
READ (9
READ(9
READ(9
READ (9
READ (9
READ (9
READ (9
READ (9
READ (9
READ (9
READ (9
READ(9
READ (9
READ (9
READ(9
READ (9
READ (9
READ (9
REAOX9
READ (9
READ (9
READ (9
READ (9
RE AD (9
READ(9
READ (9,
READ(9
FORMATU51.F12.10)
FORMAT(A17,5U2,1X))
FORrtAT(/A51,F9.2)
FORMAT(A51.3(F4.1.1X))
FORMAT(4 (A 10))
7070) TITLE
7070) TITLE1
701) LAB(1),FAC
703) LA3(156),BASERUN
703) LAB(161),SKLKTKS
703) LAB057),SKLKFAS
701)LAB (140),YRO
701) LAB(2).NYEAR
LAB(3).OPDYYR
LAB(4) .OPHRSDY
LAB (148).EARTHZN
LAB (149).FLOODPL
LAB (150),COASTAL
LAB.(91) ,NEUT
LAB (90)
LAB (82)
LAB (49)
LAB (48)
LAB (47)
LAB (43)
,701)
,706)
,703)
,703)
J03)
,703)
703)
,703)
703)
703)
703)
703)
703)
708)
701)
703)
703)
703)
703)
703)
703)
703)
703)
703)
709)
703)
703)
.CHRED
.CYNOX
.PRECIP
.DISTILL
,EVAP
.STORAGE
LAB (42).ACTCARB
LAB (5),NUMBAT
LAB(153).DAYSTOR
LAB (33). BATCH
LAB(34).CONT
LAB (35).MANUAL
LAB (36).AUTOMAT
LAB (37).OPEN
LAB (38). CLOSED
LAB(89) .AUTSHUT
LAB(6).UGTANK
LAB (7). IGTANK
LAB(ll) .FRACTUG
LAB(8).AGTANK
LAB (10).CRADLE
LAB(146).UGCONFR
LAB(147).AGCONFR
LAB(12).TK2WALL
LAB(166).RETROFT
LAB (13) .CONCPAO
,704)
02495 READ (9.704)
02500 READ (9.703)
02505 READ (9.703)
02510 READ (9.703)
02515 IF(CONCPAD)CBERM«.TRUE.
02520 READ (9.703) LAB (14) .ASPHPAD
02525 IF (ASPHPAD)ABERW-.TRUE.
READ (9.703) LAB (15),ULVAULT
,703)
,703)
,703)
02550 READ (9.703)
02530
02535 READ (9.
02540 READ(9,
02545 READ(9,
LAB (16)
LAB (17)
LAB (18)
.LVAULT
.LINER
.CONVTPO
LAB09).ASPVTPO
02555 READ (9.703) LAB(9).MAINT
02560 IF (CONCPAO.OR.ASPHPAO.OR.ULVAULT.OR.LVAULT.OR.LINER
02565* .OR.CONVTPD.OR.ASPVTPO) THEN
02570 NOSECON-.FALSE.
• E9 •
-------
02575
02580
02585
02590
02595
02600
02605
02610
02615
02620
02625
02630
02635
02640
02645
02650
02655
02660
02665
02670
02675
02680
02685
02690
02695
02700
02705
02710
02715
02720
02725
02730
02735
02740
02745
02J50
02755
02760
02765
02770
02775
02780
02785
02790
02795
02800
02805
02810
02815
02820
02825
02830
02835
02840
02845
02850
02855
ELSE
NOSECON-.TRUE.
END IF
TCATST-.FALSE.
READ (9.703) LAB (20)
READ (9,703)
READ (9.703)
RE AD (9.703)
READ (9.704)
READ (9,703)
RE AD (9.703)
,REAO(9.703)
READ (9.703)
READ (9.707)
READ (9.707)
READ (9.703)
READ (9.703)
READ (9.703)
READ (9.703)
READ (9.703)
CS7E-L
.SSTEEL
FRP
.CATSTEL
LAS (21)
LAB (22)
LAB (23)
LA3(1I6),CATHINS
LAB(24),CONCRT
LAB(39),PCSTEEL
LAB(40),PSS7EEL
LAB (41),PFRP
TNKCAP(l)
THRUPUT
HORIZ
VERT
COATING (1,
COATING (2,
COATING (3,
COAT ING (4,
.1,1)
J.I)
,1.1)
,1,1)
LAB (25)
LAB (26)
LAB (27)
LAB (28) .
LAB (29),COATING (1.3.1)
LAB (30),COATING (2.3.D
LAB (3D.COATING (3,3.D
READ (9.703) LAB (32) .COATING (4,3.1)
00 49084 L-2.NTK
COATING (1,3.L)-COATING (1.3.D-
COATING (2.3.L)-COATING (2.3.D
COATING (3.3.L)-COATING (3.3.D
COATING(4.3.L)-COATING(4,3,1)
49084 CONTINUE
READ (9,703) LAB (133),COATING (1
READ (9.703) LAB (132),COATING (2
READ (9.703) LAB (126) .COATING (3
READ (9.703) LAB 054),COATING (4
DO 49083 L-2.NPI
COATING (1,1.L)-COATING (1
COAT I NG (2.1. U -COAT ING (2
COATING (3,1.D-COATING(3
CO AT I NG (4.1. L) -COAT I NG (4
49083 CONTINUE
COATlNGd. 2.1)-. FALSE.
COATING (2.2.1)-.FALSE.
COATING(3,2,1)-.FALSE.
COAT ING (4.2.1)-.TRUE.
DO 49085 L-2.NPI
COATlNGd. 2, L) -COATING (1.2,1)
COATING (2.2.L)-COATING (2.2,1)
COATING (3.2.L)-COATING (3,2,1)
COATING (4,2.L) -COATING (4,2.1)
49085 CONTINUE
READ(9.704) LAB (44).DENS
READ(9.704) LAB (45) ,SGRAV
READ (9.704) LAB(46),VISCOS
READ (9.704) LAB(115).FRACH20
READ (9.704) LAB(104),PH(1)
READ (9.704) LAB(103).SUSSOL(1)
READ(9.704) LAB (164).TRTEFF
READ (9.704) LAB(165).DVOLFR
READ (9.703) LAB (92)
READ (9.703)
1,
1.
1,
1.
1)
1)
1)
1)
, IGWASTE
LAB(50),UGPIPE
- £10 -
-------
C28&0 READ(9.703) LA3 (51) .AGPIPE
02865 READ (9. 703) LAB(U7).PICATH
02870 IF(CATSTEL)THEN
02875 PICATH-. FALSE.
02330 ELSE IF(PICATH) THEN
02S85 CATSTEL-.TRUE.
02890 ELSE
02895 END IF
02900 READ (9, 703) LAB(52),WELOFLG
02905 READ (9, 703) LAB (53). GASKET
02910 READ (9, 734) LAB (54), PI PLEN (1)
02915 R€AO(9.704) LAB (62) ,PIPLEN(2)
02920 READ (9. 704) LAB (63) ,PI PLEN (3)
02925 READ (9, 704) LAB (80) , PI PLEN (4)
02930 READ (9, 704) LAB(8l).PIPLEN(5)
02935 READ (9. 703) LAB 060) ,PI 2WALI
02940 READ (9. 703) LAB(141),DIKE
02945 READ (9. 703) LAB (142) .CURB
02950 READ (9. 703) LAB043) .ASPAD
02955 READ (9. 703) LAB(144),COPAD
02960 READ (9. 703) LAB(162),PLINER
02965 READ (9. 704) LAB(145),PAGFRAC
02970 RE AD (9. 703) LAB(55),AGPUMP
02975 READ (9. 702) LAB (56)
02980 READ (9, 703) LAB (57), INSPECT (4)
02985 READ (9, 703) LAB (58), INSPECT (2)
02990 READ (9, 703) LABH63) .WEEKINS
02995 READ (9, 703) LAB(59).INSPECT(1)
03000 READ (9. 703) LAB (60) .INSPECT (3)
03005 READ (9, 703) LAB(6l) .INVCNTL
03010 READ (9. 703) , LAB (125) .WEEK INV
03015 READ (9, 703) , LAB (126) .MONINV
03020 READ (9, 701) , LAB (159) .MINT
03025 RE A3 (9, 704) LAB(6M,MINVLin
03030 MINV-MINVLIM
03035 TMINVL-MINV
030^0 RE AD (9, 704) LAB(12M .WINVLIM
0301*5 RE AD (9, 704) LAB022) ,1 INVLIM
03050 READ (9, 704) LAB(120) .EXMINV
03055 READ (9, 704) LAB(119),EXWINV
03060 READ (9, 704) LAB (118), EXI INV
03065 READ (9. 703) LAB (65) .TKTSTG
03070 READ (9, 703) LAB030) .TNKSTST
03075 READ (9. 703) LAB(66),TNK1TST
03080 READ (9, 703) LAB (67) .TNK5TST
03085 READ (9 , 705) LAB (68) , (TTSTFRQ (K)
03090 READ (9. 703) LAB(69),PITSTG
03095 READ (9. 703) LAB031) .PIPSTST
03100 READ (9. 703) LAB(70),PIP1TST
03105 READ (9. 703) LAB(7D.PIP5TST
03UO ^EAD(9,705) LAB(72),(PTSTFRQ(K)
03115 READ (9, 709) LAB(152),TKTSLIM
03120 READ (9, 709) LAB(136),PITSLIM
03125 READ (9, 709) LAB035) .PIMNLIM
03130 RE AD (9, 703) LAB(73),ULTRTST
03135 READ (9, 7 ID LAB(7M,(UTSTFRQ(K)
03UO READ (9. 703) LAB(75).flONftETH(1)
.K-1,10)
.K-1,10)
.K-1,5)
- Ell -
-------
03145 READ (9.703)
03150 READ (9,703)
03155 READ (9
03160 READ(9
03165 READ (9
03170 READ(9
03175 READ (9
03180 READ(9
03185 READ (9
03190 READ (9
03195 READ (9
03200 READ (9
03205 READ (9
03210 READ (9
03215 READ (9
03220 READ(9
03225 READ(9
03230 READ (9
03235 READ (9,
03240 READ (9,
032t5 READ (9,
03250 READ (9,
03255 READ (9,
03260 READ (9.
03265 READ(9,
03270 READ (9,
03275 READ (9,
03280 READ (9
03285 READ (9
03290 READ.(9
03295 READ (9
03300 RE AD (9
03305 READ (9
03310 READ (9
03315 READ (9
03320 READ (9
03325 READ (9
03330 READ (9
03335
03340
LAB (76) ,MONMETH(2)
LA8(77)..«ON«ETH(3)
LAB(78).*ONMETH(4)
LAB(79).*CNM£TH(5)
LAB(121),MONrtETH(6)
LA3(158).MONMETH(7)
LA8(137).PlPrtON
LAB(83).(VAPWDIS(K),K-1.3)
LAB (127).DIFFI
LAB(12S).VAPRESS
LAB (129). LOWER
FLASHON
703)
703)
703)
703)
703)
714)
701.)
704)
704)
703) LAB 034)
704) LAB(138).FLASHPT
709)LAB039).FLASHX
709)LAB(15D.FLASHDP
704) LAB(84),LYSDPTH
LAB(85),LTSTFRQ
LAB (86). LAB (87),
LAB (93) .RESIS
LAB(94),SPH
LAB(95).SULFSOL
LAB (96)
LAB(97).SATSOIL
LAB (98)
LAB (99) .
LAB (100)
LAB (101)
LAB (102)
LAB (105)
LAB (106)
LAB (107)
LAB (108)
,701)
,715)
.704)
.704)
.703)
,702)
.703)
.702)
,702)
,702)
,702)
,702)
,704)
,703)
J703)
,'703)
,703)
,703)
,703)
,703)
,703)
,704)
LAB (88), LAB (155)
.POSZ
.BAKFILLO)
,BAKFILL(2)
, BAKFILLO)
LAB(109).BAKFILL(4)
LAB(110).SOIL(1)
LAB (111) .SOIL (2)
LAB (112) .SOIL (3)
LAB(113).SOIL(4)
LAB(114),GWOPTH
LAB (123). (SEED
RE AD (9,701)
SEED-ISEEO
03345**********************************
03350* THE OUTLET PIPE IS SIZED TO THE TO A 2 INCH DIAMETER PIPE
03355 IF ((ACTANK.AND. (TNKCAP (1).GT. 100000.)).OR. (.NOT.STORAGE) )THEN
03360 PDIAM(2)-PDIAM(1)
03365 CASK I (2)-CASK I (1)
03370 GASKE(2)-GASKE(1)
03375 PIPEI (2)-PlPEI(l)
03380 PI PEE (2) -PI PEE (1)
03385 END IF
03390************************
03395* MM IS USED IN THE SEEDING
03400* SO THAT THE SAME FACILITY
SEED .
03405* FOR COMPARISON PURPOSES.
03410 MM-0
03415 DO 417 M-1.NYEAR
03420 MM-MM+II
PROCESS TO THE RANDOM NUMBER GENERATOR
FOR EACH RUN WILL START WITH THE SAME
- E12 -
-------
03425 417 CONTINUE
03430* INITIALIZE TANK AND PIPE INTEGRITY TESTING FREQUENCIES*-
03435 IF (TNK1TST) THEN
03440 00 902 l-l.NYEAR
03445 TTSTFRQ(I)-0
03450 902 CONTINUE
03^55 00 745 l-l.NYEAR
03460 TTSTFRQ(I)-I
03^65 745 CONTINUE
03^70 ELSE IF (TNK5TST) THEN
03475 OQ 663 I-1.NYEAR
03480 TTSTFRQ(I)"0
03485 "663 CONTINUE
03490 00 748 I-1.NYSAR
03495 TTSTFRQ(I)-5*I
03500 748 CONTINUE
03505 ELSE
03510 00 636 I-11.NYEAR
03515 TTSTFRQ(I)-0
03520 636 CONTINUE
03525 END IF
03530 IF (PIP1TST) THEN
03535 00 999 l-l.NYEAR
03540 PTSTFRQ(I)»0
03545 999 CONTINUE
03550 00 766 l-l.NYEAR
03555 PTSTFRQ(I)-!
03560 7^6 CONTINUE
03565 ELSE IF (PIP5TST) THEN
03570 00 655 ."l-l.NYEAR
03575 PTSTFRQ(I)-0
03530 655 CONTINUE
03585 00 948 l-l.NYEAR
03590 PTSTFRQ(I)-5*I
03595 948 CONTINUE
03600 ELSE
03605 00 637 I-11.NYEAR
03610 PTSTFRQCO-0
03615 637 CONTINUE
03620 END IF
03625* SET THE BACKFILL SOIL PARAMTETERS
03630 IF(BAKFILL(1)) THEN
03635 VOID-.95
03640 SPHER-.075
03645 DPART-6.6E-06
03650 ELSEIF(BAKFILL(2)) THEN
03655 VOID-.75
03660 SPHER-.34
03665 OPART-2.1E-04
03670 ELSEIF(BAKFILL(3)) THEN
03675 VOID-.53
03680 SPHER-.65
03685 OPART-8.2E-04
03690 ELSE
03695 VOID-.5
03700 SPHER-.7
03705 OPART-3.1E-02
- £13 -
-------
03710 ENDIF
03715* OIL IS NOT BEING
03720* DOES NOT HAVE TO
03725 NOIL-0
03730 IF(NOIL.EQ.I) THEN
03735 NFFLAG-I
03740 ELSE
03745 NFFLAG-0
03750 END IF
03755* SE.T THE PARAMTERS
ANALYZED IN TANK FAILURE MODEL.
BE ADJUSTED.
THE PERMEABILITY
03760
03765
03770
03775
03780
03785
03790
03795
03800
03805
03810
03815
03820
03825
03830
03835
03840
03845
03850
03855
03860
03865
03870
03875
03880
03885
03890
03895
03900
03905
03910*
DEPENDENT ON THE SOIL TYPE.
.
IF (SOILI1)) THEN
* POR-0.5
PERM-(lE-08)*(.12**NFFLAG)*.0102/(VISCOS/6.72£-02)
THETA-.3
NSTYPE-4
ELSE IF (SOIL (2)) THEN
POR-.35
PERM«(1E-08)*(.02**NFFLAG)*.0102/(VISCOS/6.72E-02)
THETA-.27
NSTYPE-3
ELSE IF (SOIL (3)) THEN
POR-.35
PERM-(1E-02)*(.6**NFFLAG)*.0102/(VISCOS/6.72E-02)
THETA-.09
NSTYPE-2
ELSE
POR-.25
PERM- (1E-02) * (.4**NFFLAG) *.0102/ (VISCOS/6.72E-02)
THETA-.09
NSTYF*£-1
END IF
P£RM-PERM*SGRAV
IF(NFFLAG.EQ.1)THEN
THETAP-RESIDP(NOIL.NSTYPE)
ELSE
THETAP
END IF
HRSHO-720.
niNMO-43200.
OAYMO-30.
PROBABILITY
1
OF INSPECTION FAILURE OR DETECTION
03915 PIPINSF(l)-.!
03920 P«PINSF(1)-.l
03925 SECINSP(l)-.9
03930 TNKINSF(I)-.!
03935* PROBABILITY OF INTERSTITIAL MONITORING FAILURE
039^0 INTER-0.1
03945 P INTER-0.1
03950 DO 19009 L-l.NPI
03955 PI INTER (L.I) "PINTER
03960 INTERST(L,1)-INTER
03965 19009 CONTINUE
03970* PROBABILITY OF VAPOR WELL SENSOR DETECTION/DEMAND
03975 VSENSOR-0.9
03980 VAPSENS-VSENSOR
03985* DISTRIBUTION PARAMETERS
03990* PARAMETERS VARY WITH MATERIAL TYPE AND WHETHER THERE IS COATING
- E14 -
-------
03955" OR CATHCDIC PROTECTION.
04000* TANK
01.005 IF ((UCTANK.OR.ICTANK) .AND. (. NOT. VAULT) } THEN
01.010 IF (CSTEEl)THEN
04015 IF (COATINGS. 3.D .AND. (.NOT.CATSTEL) )THEN
04020* NO COATING OR CATHOOIC PROTECTION
OA025 APAR-A(l)
01«030 CPAR-CC (1)
04035 LPAR-1.0
04040 ELSEIFU. NOT. COATING (4. 3.1)). AND. ('.NOT. CATSTEL))THEN
04045*. COATED AND NO CATHOOIC PROTECTION
04050 • APAR-A (2)
01*055' CPAR-CC (2)
01*060 LPAR-1.0/0.77
01*065 00 310 1-1,6
01.070 UGTLOW(1 . 1)»UGTIOW(1 , 1)*LPAR
01*075 UGTMED (1 , 1) -UGTMED (1.1) *LPAR
01*080 UGTHIGH (I . 0-UGTHIGH (I , 1) *LPAR
04085 310 CONTINUE
01.090 ELSEI F (COATING (1*. 3.D .AND. CATSTEDTHEN
04095* NO COATING AND IS CATHOO I CALLY PROTECTED
01*100 APAR-A (5)
01.105 CPAR-CC (5)
01*110 IPAR-l.O
01*115 ELSE
01*120* COATED AND CATHOO I CALLY PROTECTED
01*125 APAR-A(5)
01*130 CPAR-CC (5)
01*135 . LPAR-1.0/0.77
01*11*0 .' ; 00 311 1-1.6
01*11*5 ' UGTLOW(I,1)-UGTLOW(I,1)*LPAR
01*150 UGTMEO (I , 1) -UGTMED (1 , 1) *LPAR
04155 UGTHIGH (I . D-UGTHIGH (1 , 1) *LPAR
01*160 311 CONTINUE
01*165 END IF
OU170 ELSEIF(SSTEEL)THEN
01*175 APAR-A(6)
01*180 CPAR-CC(6)
01*185 L PAR- 1.0
01*190 ELSE
01*195* FRP OR CONRETE
01*200 APAR-A (7)
01*205 CPAR-CC (7)
01*210 LPAR-0.0
01*215 00 312 1-1.6
04220 UGTLOW (1.1) -UGTLOW (1,1) *LPAR
04225 UGTMED (1 . 1) -UGTMEO (1.1) *LPAR
04230 UGTHIGH (1,1) -UGTHIGH (I, 1)*IPAR
04235 312 CONTINUE
04240 END IF
04245 ELSE
04250* AGTANK
04255 (F(CSTEEL)THEN
04260 I F (COATING (4.3. D .AND. (.NOT.CATSTEL)) THEN
04265* NO COATING OR CATHOOIC PROTECTION
04270 APAR-A (3)
04275 CPAR-CC (3)
- E15 -
-------
04290 LPAR-1.0
04235 ELSEIF((.NOT.COATINC(U,3,P) .AND. (.-NOT.CATSTEL))
042SC* COATED AND NO CATHCOIC PROTECTION
01*295 APAR-A (4)
043CO CPAR-CC(4)
Ot305 LPAR-1.0/(0.5*0.77)
04310 00 307 1-1.6
01»315 UGTLOW (1.1)-UGTLOW(1.1}*LPAR
01.320 307 CONTINUE
04325 . ELSEIF (COATING (4,3.1).AND.CATSTELJTHEN
01*330* " NO COATING AND IS CATHOOICALLY PROTECTED
01*335 .' APAR-A (1»)
01*31*0 CPAR-CC(4)
01*31.5 LPAR-1.0
04350 ELSE
04355* COATED AND CATHODICALLY PROTECTED
04360 APAR-A (1.)
01*365 CPAR-CC(1»)
01*370 LPAR-1.0/(0.5*.77)
01*375 00 308 1-1,6
01*380 UGTLOW (1,1) -UGTLOW (1.1) *LPAR
01*385 308 CONTINUE
01*390 END IF
01*395 ELSE IF (SSTEEL) THEN
01*1*00 APAR-A (6)
01*1*05 CPAR-CC (6)
04410 LPAR-1.0
01*415 ELSE
01*420* ''FRF OR CONCRETE
01*425 ' A?AR-A(7)
01*1*30 CPAR-CC (7)
01*1*35 LPAR-0.0
01*1*1*0 00 539 1-1.6
01*1*1*5 UGTLOW (1,1) -UGTLOW (1,1) *LPAR
041*50 539 CONTINUE
04455 END IF
0<*1*60 END IF
01*465* PIPE
04470 IF (UGPIPE)THEN
04475 1F(PCSTEEL)THEN
04480 I FLOATING (4,1,1) .AND. (.NOT.CATSTEL)) THEN
04485* NO COATINC OR CATHOOIC PROTECTION
04490 APARPI-A(I)
04495 CPARPI-CC(I)
04500 LPARPI-1.0
04505 ILSEIF((.NOT.COATING(4,1,1)).AND.(.NOT.CATSTEL))THEN
04510* COATED AND NO CATHOOIC PROTECTION
04515 APARPI-AU)
04520 CPARPI-CCC)
04525 LPARPI-1.0/0.77
04530 ELSE IF (COATING(4,
04535* * NO COATING AND IS
04540 APARPI-A(5)
04545 CPARPI-CC(5)
04550 LPARPI-1.0
04555 ELSE
04560* COATED AND CATHOOICALLY PROTECTED
1).AND.CATSTEL)THEN
CATHOOICALLY PROTECTED
- E16 -
-------
04565
01*570
04=75
OU580
04585
01590
01*600
01*605
OU610*
01.615
01.620
01.625
04630
04635
01.61*0*
01*61*5
01.650
01*655*
04660
04665
01*670
01.675
04680*
04685
04690
04695
04700
04705*
04710
04715
04720
04725
04730*
04735
04740
04745
04750
04755
04760
04765
04770
04775
04780*
04785
04790
04795
04800
04805
04810
04815*
04820
04825
04830*
04835
04840
04845
C?ARPI«CC(5)
LPARPI-1.0/0.77
ENDIF
ELSE I F (PSSTEEL) THEN
A?ARPI-A(6)
CPARPI-CC(6)
LPARP|«1.0
ELSE
FRP OR CONCRETE
APARPI-A(7)
CPARPI-CCC7)
' LPARP 1-0.0
END IF
ELSE
AGPIPE
IF(PCSTEEL)THEN
IF (COATING (1», 1.1) .AND. (. NOT. CATSTEL) ) THEN
NO COATING OR CATHOOIC PROTECTION
APARPI-A(3)
CPARPI»CC(3)
LPARPI-1.0
ELSEIF((. NOT. COATINGS, 1,1)) .AND. (.NOT. CATSTEL)) THEN
COATED AND NO CATHOOIC PROTECTION
APARPI-A(4) •
CPARPI-CC(4)
LPARPI-1.0/ (0.5*. 77)
ELSEIF (COATING (4, 1,1). AND. CATSTEL)THEN
NO COATING AND IS CATHOO I CALLY PROTECTED
.. APARPI-A(4)
' '•- CPARPI-CC(4)
LPARPI-1.0
ELSE
COATED AND CATHODICALLY PROTECTED
APARPI-A(4)
CPARPI-CC(4)
LPARPI-1.0/ (.5*. 77)
ENDIF
ELSE IF (PSSTEEL) THEN
APARPI-A(6)
CPARPI-CC(6)
LPARPI-1.0
ELSE
FRP OR CONCRETE
APARPI-A(7)
CPARPI-CC(7)
LPARPI-0.0
END IF
END IF
IF(AGPUMP)THEN *
ACPUMP
(F(CSTEEL)THEN
I FLOATING (4. 2,1) .AND. (.NOT. CATSTEL)) THEN
NO COATING OR CATHOOIC PROTECTION
APARPH-A (3)
CPARPM-CC (3)
ELSEIF ((.NOT. COATING (4,2,1)). AND. (. NOT. CATSTEL))THEN
- E17 -
-------
1).AND.CA7STEL)THEN
CATHOOICALLY PROTECTED
04850* COATED AND NO CATHOOlC PROTECTION
04355 APARPM-A(4)
04860 CPARPM-CC (k)
01*865 ELSEIF (COATING (U.2
04870^ NO COATING AND IS
01*875 APARPM»A(4)
01*880 . CPARPM-CC (4)
04885 ELSE
Ofc890* COATED AND,CATHODICALLY PROTECTED
04895 APARPM-A{4)
04900 - CPARPM-CC (4)
04905 - END IF
04910* ELSEIF(SSTE£l)THEN
04915 APAP.PM-A(6)
04920 CPARPM-CC (6)
04925 ELSE
04930 APARPM-A (7)
04935 CPARPM-CC (7)
04940 END IF
04945 ELSE
04950 APARPM-0
04955 CPARPM-0
04960 END IF
04965* SET MATERIAL
04970 PIPMATL"!
TYPE PARAMETERS
04975
04980
F(PSSTEEL)PIPMATL"2
F(PFRP)PIPMATL-3
04985 TNKMATL-1
04990 F(SSTEEL)TNKMATL-2
04995 F (FRP.) TNKMATL-3
05000 F(CONCRT)TNKMATL-4
05005*********************************************
05010* NTK:NUMBER OF TANKS IN THE PROCESS
05015* NPI:NUMBER OF PIPES IN THE PROCESS
05020 IF(STORAGE)THEN
05025 NTK-1
05030 NPI-2
05035 END IF
05040 IF(CYNOX.OR.CHRED.OR.PRECIP)THEN
05045 NTK-3
05050 NPi-5
05055 END IF
05060 IF (01 STILL)THEN
05065 NTK-2
05070 HP I-4
05075 END IF
05080*********************************************
05085* SOME PROBABILITIES ARE ADJUSTED BY A FACTOR DEPENDENT ON
05090* MATERIAL TYPE.
05095 TNKRUP(1)-5.3£-03*E(TNKMATL)
05100 TNKRUP2 0)-5-3E-03*E (TNKMATl)
05105-WLDRUP (1)-.005
05110 PIPRUP(1)-3.0E-03*E(PIPMATL)
05115 OPCO«(1)-3.0E-03
05120 PRESREL(1)-1.0E-05
05125* INSTALLATION OEFICEINCY PROBABILITIES
05130 L1FOEFO.D-0.
- E18 -
-------
05135 UFOEF(1.2)-0.
051«»0*QUALITY OF INSTALLATION INSPECTION
05145*NONE^.O.LOW(V1S)"0.5.«EO(VIS+WELD)».75,HIGH(VIS+WELD+TIGHT}..95
05150 UFOEF(1.3)-.75
05155 IF(TKTSTG)LIFDEF(l,3)-.95
05160 LIFOEF(1,lt)-0.
05165 LIFOEF(1,5)-.0)
05170 LiFDEF(1.6)-0.
05175 11FOEF(1.7)-0.
05180 SECDEF(I)-.03 '
05185* PROBILITY OF INTERIOR LOCALIZED CORROSION1
05190 LIFCOR(1.1)-.15*CPAR
05195 LlFCOR(l,5)".Ot*CPARPI
05200*INITIALIZATIONS
05 205*****************
05210 CATFAIL".FALSE.
05215 00 502 L-l.NPI
05220 PIREPAR(L)-. FALSE.
05225 OLCSK(L)-. FALSE.
05230 OOWLO(L)-. FALSE.
05235 ORWLD(L)-. FALSE.
05240 OOCSK(L)-. FALSE.
052<»5 OLPIP(L)-. FALSE.
05250 DDPIP(L)-.FALSE.
05255 ORPIP(L)-.FALSE.
05260 OLPKP(L)-. FALSE.
05265 PIPCONT(L)-0
05270 MPICONT(L)-0
05275 IFCL.LE.3)THEN
05280 TKREPAR(L)-.FALSE. v
05285 OLTNK(L)-. FALSE.
05250 DOTNK(L)-.FALSE.
05295 ORTNK(L)-. FALSE.
05300 TCORE(L)-0.
05305 TCORE2(L)-0.
05310 ENOIF
05315 PCORE(L)-0.
05320 PMCORE(L)-0.
05325 CCORECD-0.
05330 PCORE2(L)-0.
05335 PIEXT2(L)-0.
053^0 PIEXL02(L)-0.
053^5 502 CONTINUE
05350 DO 1077 IM1-1,H
05355 NSIZE(IIII)-0
05360 1077 CONTINUE
05365 DO 1177 III 1-1,12
05370 DETSIZE(IIM)-0
05375-1177 CONTINUE
05380 OALL-.FALSE.
05385 00 1911 M-l.NYEAR
05390 AGUNDET(II)-0
05395 1911 CONTINUE
OSfcOO 00 1912 ll-l.FAC
05405 ACTKIST(M)H)
05^10 1912 CONTINUE
05415 HOSPORT-0
- £19 -
-------
05420 LOCSE-0
05*25 HOSPERM-0
05130 NONLEAK-0
05135 AGGFAIL-0
05440 AGNYFAL-0
05U1.5 AGCOP.NO-0
051*50 AGPIPNO-O
05^55 AGFLASH-0
051*60 cunREL-o.
051*65 AGPLUME-0
05U70 AGPLVOL-0.
05U75 AGPLARE-0.
051*80 AGUNSAT-C.
051*85 AGP 115-0
05U90 AGTKREP-0
051*95 FILLING-0
05500 OISCHRG-1
05505 PORTFP-.FALSE.
05510 PORTOP-.FALSE.
05515 VAULT-.FALSE.
05520 IF (LVAULT.OR.ULVAULT.OR.CONVTPD.OR.ASPVTPD)VAULT-.TRUE.
05525 PIPSEC-.FALSE.
C5530 IF(DIKE.OR.CURB.OR.ASPAD.OR.COPAD.OR.PLINER)PIPSEC-.TRUE,
05535 IF(NOSECON)UGCONFR-O.
05540 IF (.NOT.PIPSEOPAGFRAC-0.
055^5 00 47892 L-l.NPI
05550 ORANPMP(L)-0
05555 I-F(./40T.PIPSEC)PIPCONT(L)-1
05560 IF(L.LE.NTK)THEN
05565 UGCONT(L)-0
05570 AGCONT(L)-0
05575 IF(NOSECON) THEN
05580 AGCONT(L)-!
05585 UGCONT(L)-!
05590 END IF
05595 NUGCONT (I)-0
05600 NAGCONT(L)-0
05605 END IF
05610 U7892 CONTINUE
05615 00 8532 KKK-1.3
05620 00 832 111-1,5
05625 ICOATIM(KKK,III)-0.
05630 ECOATIM(KKK,IIl)-0.
05635 832 CONTINUE
05640 8532 CONTINUE
05645************************
05650* CATASTROPHIC FAILURE PROBABILITIES
05655 ANUCAT(1,2)-1E-06
05660 IF(COASTAL)THEN
05665* ANUCAT(1,3)-.014
05670 ELSE
05675 ANUCAT(1,3)-1.5E-04
05680 END IF
05685 (F(FLOODPL)THEN
05690* FLOOD
05695 ANUCAT(1,5)-.005
05700 ELSE
- E20 - ~
-------
05705 ANUCAT(1.5)"C.
05710 ENOIF
05715 IF(EARTHZN)THEN
05/20 ANUCAT(1.1»)-8E-OJ»
05/25 ELSE
05730 ANUCAT( 1.10-0.
05735 ENOIF
057^.0 IF(AGTANK.OR.IGTANK)THEN
057^5 ANUCAT(1,7)»3E-03
05750 ELSE
05755 ANUCAT(1,7)-1E-03
05760 ENOIF
05765 ANUCAT(1.6)«1E-06
05770 IGPROD-1.
05775 CATREP-0
05780* OVERFLOW PROBABILITIES
05785 OFTRCOrt(l)-.003
05790 OFTROrt(l)".027
05795 «OALARM(1)-.1
05800 LEVIN2(1)-.008
05805 FLVCN1 (1)-9.1»E-02
05810 IF(BATCH)THEN
05815 OPCQMM(1)-1-(1-.003)*.*(30.*NUMBAT)
05820 ELSE
05825 OPCOMM(1)-.086
05830 ENOIF
05835 CALL RANSET(ISEED)
058UO* MAINTENANCE FACTOR RANGES BETWEEN 1 AND 3
058U5 MAINTEN-F.NU(1.,3.)
05850* SAVE INITIAL COMPONENT THICKNESSES
05855 DO 98 L-l.NPI
05860 IPIPE(L)*PIPEI (L)
05865 I PUMP (L)-PUMP I (L)
05870. I CASK (L)-CASK I (L)
05875 98 CONTINUE
05880* SIZE THE FIRST TANK AND SAVE INITIAL COMPONENT THICKNESSES
05885 t-1
05890 CALL TNKDin(L)
05895 I TANK (L)-TANK I (L)
05900 ITANK2(L)«TANK2I (L)
05905 CALL SETCOST(L)
05910 I VENT-VENTI
05915* SET VAPOR TRANSPORT TIMES
05920 DO 81 1*1,3
05925 CALL SETVAP(I.VTIME(I),VAPWOIS(I),LOWER)
05930 81 CONTINUE
05935 CALL SETVAP(1.FLASHTM,FLASHX.FLASHPT)
059W TTCVOL-0
059*»5 SAV-0.0
'05950* SET OPERATING CHARACTERISTICS
05955 CALL SETOPAR
05960* MORE OVERFLOW PROBABILITIES
05965 FLVCN2(1)-.05
05970 IF (BATCH)THEN
05975 MOPMOE(1)-7.5E-05*FILLTIM(1)/60.
05980 MOPVON(1)-7.5E-07*FILLTIM(1)/60.
05985 MOVLOE (1)-3.UE-04*FILLTIM(1)/60.
- E21 -
-------
05990
05995
06000
06005
C6010
06015
C6020
C6025
06030
06035
06040
060^5
06050
06055
06060
06065
06070
06075
06080
06085
06090
06095
06100
06105
06110
06)15
06120*
06125
06130
06135
06140
06U5
06150
06155
06160.
06165
06170
06175
06180
06)85
06190
06)95
06200
06205
06210*
MOVLCN(l)-3
MOVLCE(1)"3
MOVLCN(l)-3
YRPVON(l)-8
YRVLON(l)-8
MOPMCEO)-3
MC?MCN(l)-3,
ELSE
MOPMOEW-7.
MOPVON(1)-7-
MOVLOEO)-3«
MOVLON(1)-3.
MOVLCE(D-3.
MOVLCN(l)-3.
YRPVON(l)-8.
YRVLON(1)-8.
MOPMCE(l)-3
,4E-05*nLLTlrt(l)/6C.
,4E-04*FILLTlf1(l)/60.
,4E-05*FILLTIM(I}/60.
,OE-07*FILLTIM(1)/60.
2E-04*FILLTI«(1)/60.
OE-04*FILLTIM(D/60.
OE-06*FILLTIM(1)/60.
5E-05*FILLTIM(1)/(60,
5E-07*FILLTIM(0/(60,
4E-04*FILLTIM(1)/(60,
4E-05*FILLTI«(1)/(60,
4E-04*FILLTIM(1)/(60,
4E-05*FILLTIM(1)/(60,
OE-07*FILLTIrt(l)/60.
2E-04*FILLTIM(1)/60.
OE-04*FILLTIM(1)/(60,
*2
*2,
*2
*2.
*2
*2
. 4E-04)** (OPHRSOY*OPDYYR/12.)
.4E-05)**(OPHRSOYAOPOYYR/12.)
«OPMCN(1)-3.0E-06*FILLTIM(1)/(60.
END IF
IF (AUTOMAT)THEN
OPVLOE(1)-1-(1-3-
OPVLON(l)-l-(l-3.
ELSE
OPVLOE(1)-0.
OPVLON(1)-0.
ENOIF
SIZE,ANY OTHER TANKS AND SAVE THEIR INITIAL COMPONENT THICKNESSES
IF(NTX.CT.1)THEN
DO 809)6 L-2.NTK
IF(CHRED .OR. CYNOX .OR. PRECIP)THEN
IF(L.EQ.2)THEN
TNKCAP (L)-FILLRT (1)*2.*60/.8
ELSEIF(L.EQ.3)THEN
TNKCAP(L)«FILLRT{1)*4.*60./.8
ENOIF
ELSE IF (01 STILL) THEN
IF (L.EQ.2) TNKCAP (L) -TNKCAP (1)
END IF
CALL TNKOIH(L)
I TANK (L)-TANK I (L)
ITANK2(L)-TANK2I(L)
CALL SETCOST(L)
80916 CONTINUE
ENOIF
SET APPROXIMATE OPERATING PRESSURES
06215 00 77777 L-l.NTK
06220 IF(STORAGE) THEN
06225 PRESS (L.3)-THEIGHT(L)*0.5*OENS
06230 ELSE
06235 P8ESS(L.3)-THEIGHT(L)*0.8*OENS
06240 ENOIF
06245 77777 CONTINUE
06250 IF (STORAGE)THEN
06255 IF(UGTANK) THEN
06260 PRESS (1.1)»DENS*8.0
06265 PRESS(2.1)-OENS*4.0
06270 PRESS (1.2)-620
- E22 -
-------
06275
06280
06285
06290C
06295
06300
06305
06310
06315
06320
06325
06330
06335
0631*0
063*5
06350
06355
06360
06365
06370
06375
06380
06385
06390
06395
06400
06405
06410
06415
06420
06425
06430*
06435
06440
06445
06450
06455
06460
06465
06470
06475
06480
06485
06490
06495
06500
06505
06510
06515
06520
06525.
06530
06535
06540
06545
06550
06555
,2)-820 .
,4)«OENS*10.0
,5)-PRESS (1.4)
*(14.6)-6.84FT/S«
,4)-0
•PRESS (2.4)
•-0.73FT FRICTION LOSS
PRESS (2,
PRESS(1,
PRESS (1,
150/320
PRESS (2,
PRESS (2.5)'
ELSE
PRESS (1,1) - (AGTHGHT (1) /2) *OENS+620
IF(VERT.ANO.(TNKCAP(l).GT.1000))THEN
PRESS (2.1)-(AGTHGHT (1)/2.)*OENS
* ELSE
PRESS (2.1)-AGTHGHT (1) *OENS
END IF
1F(IGTANK)TH£N
IF(FRACTUG.LT..5)TH£N
PRESS (1.1) - (.5-FRACTUG) *THE I GHT (1) *DENS+620
PRESS(2.1) -(.5-FRACTUG)*THEIGHT (1)*DENS
ELSE
PRESS (1. D-620.
PRESS(2.1)-1.
END IF
END IF
2)-PRESS (1.1)
2)-PRESS (1.2)
4)-PRESS (1.1)
4)-PRESS (2.1)
5)-PRESS (1.4)
PRESS (2.5)-PRESS (2.4)
END IF .
EN OIF '•
IF(CYNOX.OR.CHR£O.OR.PRECIP)THEN
AGTANK OR IGTANK ONLY
PRESS (1.1)- (AGTHGHT(1)*.8)*OENS+620
1)- (AGTHGHT(1)*.8)*OENS+620
1)-(AGTHGHT(2)*.8)*OENS+620
D-620*(AGTHGHT (3) *.8) *DENS
PRESS(5.1)"620*(AGTHGHT(3) *.8) *0£NS
IF (IGTANK)THEN
IF(FRACTUG.LT..8)THEN
PRESS (1.1)-(THEIGHT(1)*(.8-FRACTUG))*OENS+620
PRESS (2.D- (THE IGHT(1)*(.8-FRACTUG))*OENS+620
PRESS(3.1)-(THEIGHT(2)*(.8-FRACTUG))*OENS+620
PRESS (4,1)-620.+ (THE IGHT (3)* (.8-FRACTUG))*OENS
.1)-620.* (THE IGHT (3)* (.8-FRACTUG))*OENS
PRESS (1
PRESS (2,
PRESS (1,
PRESS(2,
PRESS (1
PRESS (2,
PRESS (3.
PRESS (4,
PRESS (5
ELSE
PRESS (4
PRESS(1
PRESS(2
PRESS (3
PRESS (5
END IF
END IP
PRESS (1.2)'
PRESS(2.2)
PRESS (3.2)
PRESS (4,2)'
,1)-620.
.D-620.
.D-620.
.D-620.
.D-620.
PRESS (1,
PRESS (2,
PRESS (3,
PRESS (4,
D
D
D
D
PRESS (5.2)-PRESS (5.1)
- E23 •
-------
C6560
06565
06570
06575
06580
06535
06550
06595
066CO
06605
06610
06615
06620
06625
06630
06635
06640
0661*5
06650
06655
06660
06665
06670
06675
06680
06685
06690
06695
06700*
06705
06710
06715
06720
06725
06730
06735
06740
06/45
06750
06755
06760
06765
06770
06775
06780
06785
06790
06795
06800
06305
06810
06815
06820
06825
06830
06835
06840
,4).
,4).
.(AGTHGHT(I)*
' (AGTHGHT {])*
• (AGTHGHT (2)*
'(AGTHGHT(3)*
• (AGTHGH7 (3) *
,8)*OENS+e20.
,8)*OENS
,8)*OENS
,8)*DENS
,8)*DENS
.IT..8)THEN
,4)• (THEICHT (1)* (.8-FRACTUG))*PENS+620.
,4). (THE IGHT (!)*(.8-FRACTUG) )*OENS
,4)«(THE IGHT(2)* (.8-FRACTUG))*OENS
,4)«(THE IGHT(3)* (.8-FRACTUG))*OENS
,4)-(THE IGHT(3)* (.8-FRACTUG))*OENS
,5)'
,5)
,5)'
,5)'
.5)'
•PRESS (1,
•PRESS (2,
•PRESS (3,
•PRESS (4,
•PRESS (5,
4)
4)
4)
4)
4)
IF(AGTANK)THEN
PR£SS(1.4).
PRESS (2.4).
PRESS (3,
PRESS (4,
PRESS (5,
ELSE
IF(FRACTUG.
PRESSO,.
PRESS (2 J
PRESS (3,
, PRESS (4,
PRESS (5,
*' ELSE
PRESS (1,4)-620.
PRESS (2.4)-]
PRESS (3.4).1,
PRESS (4.4)-1,
PRESS (5.4)-1,
END IF
END IF
PRESS (1
PRESS (2,
PRESS (3,
PRESS (4,
PRESS (5.
ENDIF
IF (01 STILL)THEN
AGTANK OR IGTANK ONLY
PRESS (1,1)- (AGTHGHT (1) *.8) *DENS+620
PReSS(2,l)-DENS*3.0
PRESS (3,1)-620+AGTHGHT(2) *.8*OENS
PRESS(4,1)-620+AGTHGHT(1)*.8*DENS
IF (IGTANK)THEN
IF(FRACTUG.LT..8)THEN
PRESS(1,1)-(THE IGHT (1)* (.8-FRACTUG))*OENS+620
PRESS (3.0- (THE I GHT (2) * (.8-FRACTUG)) *DENS+620
PRESS (4.1)- (THE I GHT (1) * (.8-FRACTUG)) *OENS+620
ELSE
PRESS (1.1)-620.
PRESS (3.1)-620.
PRESS (4,1)-620.
END IF
ENDIF
PRESS (1.2)-PRESS (1.1)
PRESS (2.2)-PRESS (2,1)
PRESS(3.2)-PRESS(3,1)
PRESS (4,2) -PRESS (4,1)
IF (AGTANK) THEN
PRESS (1.4)- (AGTHGHT (1) *.8) *OENS+620
PRESS(2.4)-PRESS(2,1)
PRESS (3.*) » (AGTHGHT (2) *.8) *OENS
. PRESS(4.4)-(AGTHGHT(1)*.8)*DENS
ELSE
IF(FRACTUG.LT..8)THEN
PRESS (1,4)- (THE I GHT (1) * (.8-FRACTUG)) *OENS
PRESS (2.4)-PRESS (2.1)
- E24 -
-------
06845 PRES3(3.4)-(TH£!GHTC)M.8-FRACTUG))*.D£NS
06850 PRESS (4.4)- (THE IGHT (!) * (.8-FRACTUG))*OENS
06855 ELSE
06360 PRESS (1,4)-620.
06865 PRESS (2,4)-PRESS(2,1)
06870 PRESS (3.4).1.
06875 PRESS (4.4).I.
06330 ENOIF
06885 ENDIF
06850 PRESS (1,5)-PR£SS(1,4)
06895 " PRESS (2.5)-PRESS(2.4)
06900 , PRESS (3,5)-PRESS(3,4)
06905 PRESS (4,5)-PRESS(4.4)
06910 ENOIF
06915* CALCULATE THE SOIL AGGRESSIVENESS VALUE
06920 CALL SAVCALC(SAV)
06925* OUTPUT THE INPUTS
06930 WRITE (8,7080)TITLE
06935 WRITE (8,7080)TITLE I
06940 WRITE (15.7080)TITLE
06945 WRITE(15.7080)TITLE1
06950 WRITE (14,7080)TITLE
06955 WRITE (14,7080)TITLE1
06960 WRITE (10,7080)TITLE
06965 WRITE (10,7080)TITLE1
06970 WRITE (10,70!) LABOJ.FAC
06975 IF(BASERUN)WR'ITE(10,702) LAB (156)
06980 IF(SKLKTKS)WRITE(10,702) ,LAB (161)
06985 IF(SKUtFAS)WRITE(10,702).LAB(157)
06990 WRITE (1*0.701) LAB (140) ,YRO
06995 WRITE (10.701)LAB(2),NYEAR
07000 WRITE (10,701) LAB(3).OPDYYR
07005 WR I TE (10,706) LAB (4) , OPHRSOY
07010 IF(EARTHZN)WRITE(10.702) LAB (148)
07015 IF(FLOODPL)WRITE(10.702) LAB (149)
07020 IF(COASTAL) WRITE(10,702) LAB (150)
07025 WRITE (10,703) LAB(9D.NEUT
07030 WRITE(10,703)
07035 WRITE (10,703)
07040 WRITE (10,703)
07045 WRITE (10.703)
07050 WRITE (10,703)
07055 WRITE(10.703)
07060 WRITE (10.703)
07065 WRITE(10.708)
.CHRED
.CYNOX
.PRECIP
.DISTILL
,EVAP
.STORAGE
. .70
07070 WRITE (10.701)
07075 WRITE (10.703)
07080 WRITE(10,703)
07085 WRITE(10,703)
07090 WRITE (10.703)
07095 WRITE (10.703)
07100 WRITE (10.703)
07105 WRITE (10,703)
07110
07115
07120
07125
LAB (90)
LAB (82)
LAB (49)
LAB (48)
LAB (47)
LAB (43)
LAB(42) .ACTCARB
LAB(5),NUMBAT
LAB(153).OAYSTOR
LAB (3 3). BATCH
LAB(3M,CONT
LAB(35).MANUAL
LAB (36). AUTOMAT
LAB (37).OPEN
LAB (38), CLOSED
LAB(89),AUTSHUT
IF (UCTANK)WRITE(10,702),LAB(6)
IF(IGTANK)WRITE(10,702),LAB(7)
IF(IGTANK)VRITE(10,709),LAB(11),FRACTUG
IF (AGTANK) WRITE (10.702) .LAB (8)
- E25 -
-------
07130
07135
071*0
071*5
07150
07155
07160
07165
07170
07175
07180
07185
07190
07195
07200
07205
07210
07215
07220
07225
07230
07235
072^0
072<«5
07250
07255
07260
07265
07270
07275
07280
07285
07290
07295
07300
07305
07310
07315
07320
07325
07330
07335
073^0
073*5
07350
07355
07360
07365
07370
07375
07380
07385
07390
07395
07*00
07*05
07*10
I? (CRADLE)WRITE (10.7C2) .LAB (10)
WRITE (10.' (A) ').'***'
WRITE (10.70M LAB(U.6),UGCONFa
WRITE (10.70U) LAB(H7) .AGCONFR
IF(CONCPAO)WRIT£(10.702).LAB(13)
IF(ASPHPAD) WRITE (10,702) ,LA3(lM
IF(ULVAULT) WRITE (10,702).LAB (15)
IF(LVAULT) WRITE (10.702), LAB (16)
IF (TK2WALL) WRITE (10.702) .LAB ('.2)
IF(RETROFT) WRITE (10.702) ,LAB (166)
IF (LINER) WRITE (10,702).LAB (17)
IF'(ASPVTPD)WRITE(10,702) ,LAB (19) '
If (CONVTPD)WRITE(10,702),LAB(l8)
IF (MAINT) WRITE (10.702) LAB (9)
WRITE (10.' (A) '),•***'
I F (CSTEEL) WRITE (10.702) .LAB (20)
IF(SSTEEL)WRITE(10.702),LAB(21)
IF(FRP) WRITE (10,702).LAB (22)
1F(CATSTEL.ANO.(.NOT.PICATH))WRITE(10,702).LAB(23)
WRITE (10.70*) LAB(116),CATHINS
IF(CONCRT)WRITE(10,702),LAB(2*)
WRITE (10.703) LAB(39).PCSTEEL
WRITE (10.703) LAB(*0),PSSTE£L
WRITE (10.703) LAB(*1),PFRP •
WRITE (10.707) .LAB (25) .TNKCAP (1)
WRITE (10.707) ,LAB (26) .THRUPUT
IF (HORIZ) WRITE (10.702).LAB (27)
fF(VERT) WRITE (10,702).LAB (28)
F (COATING (1.3.D) WRITE (10,702).LAB (29)
1))WRITE(10,702) .LAB (30)
F(CDATING (2
F(COATING (3
F (COATING (k
F(COATING(1
F(COATING (2
F(COATING (3
.3.
.3.
.3.
.1.
.1.
.1.
1))WRIT£(10
1))WRITE(10
F (COATING (*,1.D) WRITE (10
WRITE (10.' (A)1).1***1
702)
708)
1))WRITE(10,702),LAB(3D
1)) WRITE (10,702),LAB (32)
1))WRITE(10,702).LAB(133)
702)
702)
702)
, LAB (132)
, LAB (126)
> LAB (15*)
WRITE (10,
WRITE(10,
WRITEOO,
WRITE (10.
WRITE (10,
WRITE (10,
WRITE (10,
WRITE (10
WRITE (10
709)
706)
70k)
70*)
70*)
70*)
70*)
, LAB (33)
,LAB(*5)
, LAB (1*6)
SGRAV
VISCOS
LAB(**) .DENS
LAB(115).FRACH20
LAB (10*)
LAB (103)
PH(1) .
SUSSOL(l)
LAB(16*),TRTEFF
LAB(165).OVOLFR
WRITE (10.703) LAB(92) .IGWASTE
WRITE (10.'(A)'),'***'
F(PI2WALL)WRITE(10,702), LAB(160)
F (DIKE) WRITE (10.702) .LAB (1*1)
F (CURB) WRITE (10.702). LAB (1 *2)
F(ASPAO) WRITE (10.702).LAB (1*3)
F (COPAO)WRITE (10.702) .LAB(1**)
F(PLINER) WRITE (10.702).LAB (162)
WRITE (10.70*) LAB (U*5) .PAGFRAC
F (AGPUMP) WRITE (10.702) .LAB (55)
F (.NOT.AGPUMP) WRITE (10,702) .LAB (56)
- £26 -
-------
07415
07420
071*25
07430
07435
074UO
07445
07450
07455
07460
07^65
07470
07475
07430
07485
07490
07495
07500
07505
07510
07515
07520
07525
07530
07535
07540
07545
07550
07555
07560
07565
07570
07575
07580
07585
07590
07595
07600
F(AGPIPE)WRITE(10.702) .LAB (51)
F (PICATH) WRITE (10,702) ,LAB(M7)
F (UCPIPE) WRITE (10.702).LAB (50)
F(WELDFLG) WRITE (10,702) ,LAB (52)
F (GASKET) WRITE (10,702).LAB (53)
VRITE00.706) .LAB (54) .PIPLEN(l)
LAB (62)
LAB (63)
LAB (80)
WRITE(10.706).LAB (81)
WRITE (10.' (A)
WRITE (10,
WRITE (10,
WRITE (10,
706)
706)
706)
),'***'
,PIPLEN(2)
,PIPLEN(3)
,P!PLEN(10
,PIPLEN(5)
IF(INSPECT(1))WRITE(10.702).LAB(59)
IF (INSPECT (2)) WRITE (10.702).LAB (58)
|F(WEEKINS)WRITE(10,702).LAB(163)
I F(INSPECT(3))WRITE(10.702).LAB(60)
IF (INSPECT (M) WRITE (10,702). LAB (57)
IF(INVCNTL) THEN
WRITE (10.702).LAB (61)
IF (WE£K!NV)WRITE(10,702) ,LAB(125)
IF (MONINV) WRITE (10,702),LAB (126)
WRITE(10,701) ,LAB(159) .MINT
WRITE (10.708),LAB(64).MINVLIM
WRITE (10.708) .LAB024) .WINVLIM
WRITE (10.708) ,LAB(122) ,1 INVLIM
WRITE (10.708).LAB (120).EXMINV
WRITE (10.708).LAB (119).EXWINV
WRITE (10.708),LAB (118).EXIINV
ELSE
WRITE (10.702).'NO V/LAB(6l)
END if ;.
WRITE (10.' (A) ').'***'
IF(TKTSTG) THEN
WRITE (10,702)
LAB (65)
WRITE (10,709).LAB (152).TKTSLIM
IF(TNKSTST)WRITE(10,702),LAB(130)
IF(TNK1TST)WRITE(10.702) .LAB (66)
IF(TNK5TST)WRITE(10.702).LAB(67)
IF(.NOT.(TNK1TST.OR.TNK5TST.OR.TNKSTST))WRITE(10,705),LAB (68) ,
07605-t-TTSTrRQ(1) .TTSTFRQ(2) ,TTSTFRQ(3) ,TTSTFRQ(4) ,TTSTFRQ(5) ,TTSTFRQ(6)
076lO*TTSTrRQ(7) .TTSTFRQ(8) ,TTSTFRQ(9) .TTSTFRQ(IO)
07615 END IF
IF(PITSTG) THEN
WRITE (10,702). LAB (69)
WRITE (10,709).LAB (136).PITSLIM
IF(PIPSTST)WRITE(10,702).LAB(13D
IF(PIP1TST)WRITE(10,702).LAB(70)
IF(PIP5TST)WRITE(10,702),LAB(7D
IF(.NOT.(PIPJTST.OR.PIP5TST.OR.TNKSTST))WRITE(10,705),LAB(72)
07655*.PTSTFRQ(l) ,PTSTFRQ(2) ,PTSTFRQ(3) ,PTSTFRQ(4) ,PTSTFRQ(5) .PTSTFRQ
07660*(6) .PTSTFRQ(7) .PTSTFRQ(8),PTSTFRQ(9),PTSTFRQ(10)
07665 END IF
07670-IF (ULTRTST) THEN
07675 WRITE (10,702),LAB (73)
07680 WRITE(10,711).LAB(74),UTSTFRQ(1),UTSTFRQ(2),UTSTFRQ(3), ,
07685-HJTSTFRQ (4) ,UTSTFRQ(5)
07690 END IF
07695 WRITE (10,'(A)').'***'
07620
07625
07630
07635
07640
07645
07650
- E27 -
-------
07700 l?mONMETHil))VRl7£00.702) ,LA9(75)
07705 • F (MONMETH (2)) WRITE (10,702) , LAB (76)
07710 IF(MONM£TH(3))WR17E(10.702) LAB (77)
07715 IF(rtONn£TH(6))VRITE(10,702) LAB (121)
07720 IF(MONMETH(7))WRI7£(10,702) LAB (158)
07725 IF(PIPMON)TH£N
07730 WRITE(10.702).LAB(137)
07735 WRITE (10.709).LAB(135).PIMNL1M
07740 END IF
07745 IF (MONKETH'5)) THEN
07750 WRITE (10,702).LAB (79)
07755 WRITE (10.714),LAB (83) .VAPWOlS(l) .VAPWDIS (2) .VAPWOlS (3)
07760 WRITE(10.710) LAB(127).OIFFI
07765 WRITE (10,710) LAB(128),VAPRESS
07770 WRITE (10.710) LAB (129).LOWER
07775 END IF
07780 WRITE (10,702) LAB (134)
07785 WRITE (10.710)LAB (138).FLASHPT
07790 WRITE (10.709) LAB (139).FLASHX
07795 WRITE (10,709) LAB (15D .FLASHDP
07800 IF (MONMETH(M) THEN
07805 WRITE (10,702). LAB (78)
07810 WRITE (10.702) ,LAB (85)
07815 IF (LTSTFRQ.EQ.1)WRITE(10,702),LAB(86)
07820 IF (LTSTFRQ.EQ.2)WRITE(10.702),LAB(87)
07825 IF
-------
0793? IF (AGPUnP)THEN
079«0 PttPDRAN(l)-1E-02
07525 ELSE
06000 PMPORAN(I)-0.
08005 END IF
08010* BE CAREFUL WITH TANK SIZE AND PORTABLE HOSES
08015 IF (BATCH.AND.STORAGE.AND.(TNKCAP(1).LT.1000CO))THEN
08020 PORTHOS(1)-5E-03*OISCTIM(2)*OISCFR(2)*365./60.
08025 LOOSCON(1)-1E-02*OISCFR(2)*365.
08030 ELSE
08035 PORTHOS{1)»0.
080UO LOOSCON(1)-0.
0801»5 END IF
08050 WJLEVIN(1)-.15
08055 IF (STORAGE)THEN
08060 «OFILL(1)-.079
08065 ELSE
08070 W)F ILL (0-1.0
08075 END IF
08080*INITIALIZE MORE VARIABLES
08085 00 5^3 J-l.NYEAR
08090 TVOLUME(J)-0.
08095 TCVOL(J)-0
08100 5^3 CONTINUE
08105 TVOL1-0
08110 IF (YRO.NE.O)THEN
08115 TMINVL-rtlNVLIM
08120 TWINVL-WINVLIM
08125 TIINVL-IINVLIM
08130 TPIPWON-PIPMON
08135 TULTRtS-ULTRTST
08140 TTKTST-TKTSTC
081U5 TTK1TST-TNK1TST
08150 T7K5TST-TNK5TST
08155 TTKSTST-TNKSTST
08160 TPITST-PITSTG
08165 TPI1TST-PIP1TST
08170 TPI5TST-PIP5TST
08175 TPISTST-PIPSTST
08180 00 69 11-1,6
08185 TMNMETH(I l)-nONMETH(ll)
08190 69 CONTINUE
08195 ENOIF
08200 AGTKAGE-0
08205 AGPOPUL-0
08210 AGTKLK-0
08215 COUNT1-0
08220 TTREMVL-0.
08225 TPREMVL-0.
08230 SEED-SEEO+FAC
08235 I F(.NOT.BASERUN) READ (13.612) NEXTRUN
08240 IF (STORAGE) TNKCAP (2) -TNKCAP (1)
08245*- NORMAL TANK OPERATING LEVELS
08250 IF (STORAGE)THEN
08255 OPLEV-0.5
08260 ELSE
08265 OPLEV-0.8
- E29 -
-------
08270 END IF
08275* CALCULATE RELEASES DUE TO THE PERMEABILITY OF CONCRETE TANKS
08280 DO 21234 L-1.NTK . - :-
08285 IFJCONCRT)TH£N
08290 IF (VERT)THEN
08295 SAREA-P|*(TWIOTH(L)/20**2.+PI*TWIDTH(L)ftTHEIGHT(L)*.5*CPLEV
08300 ELSE
08305 SAREA«TVIOTH(L)*TLENGTH(L) + (2.*OPLEV)*(TVIDTH(L)*TLENGTH(L) +
08310* TVJDTH(L)*TVIDTH(L))
08315 ENDIF
08320 CNPERM-2.5E-09
08325 PERMREL(L)»(H (PRESS (L.3) /DENS) /(ITANK (L)/12.))*CNPERM*SAREA*
08330* 646696.*(.0102/(VISCOS/6.72E-02))* (DENS/62.4)
08335 ELSE
08340 PERMREL(L)«0.
08345 END IF
08350 21234 CONTINUE
08355* ITERATION LOOP
08360 DO 100 1-1.FAC
08365 ISEEO-SEED
08370* SEED THE RANDOM NUMBER GENERATOR
08375 CALL RANSET(ISEED)
08380 IF(.NOT.8ASERUN)THEN
08385 IF(I.EQ.NEXTRUN)THEN.
08390 READ(13.612)NEXTRUN
08395 ELSE
08400 CO TO 62
08405 END IF
08410 END IF-. .
08415* REINITIALIZE VARIABLES
08420 00 45642.L-l.NYEAR
08425 TVOLUME(L)-0.
08430 45642 CONTINUE
08435 00 87654 L-1.NPI
C8440 INTLK (L) "0
08445 PI PAGE (1)-0
08450 PRAN(L)»FNU(0.,2.)
0845-5 NUrtLK (L) -0
08460 PIPCONT(L)-0
08465 NPICONT(L)-0
08470 IF(L.LE.NTK)THEN
08475 ACCONT(L)-0
08480 NAGCONT (L)-0
08485 UGCONT (L) -0
08490 NUGCONT (L) -0
08495* SAMPLE TIME TO FAILURE
08500 IF(LINER)LINETIM(L)»FNN(35.,10.)
08505 IF(LVAULT)LINETIM(L)«FNN(9.,3.)
08510 IF (VAULT)CALL SECCON(5.FLORTHK.MAINT,VLTTIM(D)
08515 IF(CONCPAD)CALL SECCON (3,FLORTHK,rtAINT.CPADTIM(L))
08520 IF(ASPHPAO)CALL SECCON (1.FLORTHK,MAI NT,APAOTIM(L))
08525 MF (CBERM)CALL SECCON(4.1..MAINT.CBRMTIM(L))
08530 I F(ABERM)CALL SECCON (2,1..MAINT.ABRMTIM(L))
08535 END IF
08540 IF(DIKE) CALL SECCON (2,1..MAINT.DIKTIM(L))
08545 IF (CURB) CALL SECCON (4,1.,MAINT,CURTIM(D)
08550 IF(ASPAO) CALL SECCON (1..667.MA INT, PASPTI M(L))
- E30 -
-------
08535 IF(COPAO) CALL S2CCON (3. .6c7.MAINT,PCOPTlMU)
08560 IF(PLINER) PLINTlML)-rNN(35.,lC.)
08565 IF(PLINER.AND. (ASPAD.CR.COPAO))PL INTIM(L)-FNN(9-,3•)
08570 IF(R£TROFT)THEN
08575* ADO ON TH£ BENCHMARK YEAR FOR THOSE COMPONENTS THAT ARE RETROFITTED
08580 IF (I.IE.NTK)THEN
08585 TLIN£(L)-LINETIM(L)+YRO
08590 LINETIM(L)-IOO
08525 TVLT(L)-VLTTIM(L)+YRO
08600 VLTTIM(L)-100
08605 TCPAD(L)-CPADTIM(L)+YRO
08610 CPADTIM(L)-IOO
08615 TAPAO(L)-APADTIM(L)+YRO
08620 APADTIMD-100
08625 TCBRM(L)-CBRMTIM(L)+YRO
08630 C9RMTltt(l)-100
08635 TABRM(L)-ABRMTIM(L)+YRO
08640 ABRMTIM(L)-100
0861.5 AGCONT(L)-1
08650 UGCONT(L}-1
08655 END IF
08660 TOIK(L)-OIKTI«(L)+YRO
08665 DIKTlMU-100
08670 PIPCONT(L)-!
08675 TCUR(L)-CURTIM(L)*YRO
08680 CURTin(L)-100
08685 TPASP(L)«PASPTIN(L)+YRO
08690 PASPTIM(L)-100
08695 TPCOPU)»PCOPTIM(L)*YRO
08700 PCOPTIM(L)-100
08705 TPLIN(L)-PLINTIM(L)+YRO
08710 PLINT!M(L)-100
08715 END IF
08720 8765** CONTINUE
08725 IF(RETROFT)THEN
08730* STORE THE FLAGS THAT WILL BE TURNED ON WHEN THE RETROFIT OCCURS
08735 TCATST-CATSTEL
087J»0 TPI CATH-PICATH
087^5 TVAULT-VAULT
08750 TULVALT-ULVAULT
08755 TNOSEC-NOSECON
08760 TPIPSEC-PIPSEC
08765 TLVAULT-LVAULT
08770 TUNER-LINER
08775 TCONPAO-CONCPAO
08780 TASPPAO-ASPHPAD
08785 TCBERM-CBERM
08790 TABERM-ABERM
•08795 TO IKE-DIKE
08800 TCURB-CURB
08805. TASPAD-ASPAO
08810 TCOPAO-COPAO
08815 TPLINER-PLINER
08820 NOSECON-.TRUE.
08825 PIPSEC-.FALSE.
08830 VAULT-.FALSE.
08835 ULVAULT-.FALSE.
- E31 -
-------
0831»0 LVAULT-.FALSE.
088«»5 LINER-.FALSE.
08350 CONCPAD-.FALSE.
08855 ASPHPAD-.FALSE.
08360 CBERM-.FALSE.
08865 ABERM-.FALSE.
08870 DIKE*.FALSE.
08875 CURB-.FALSE.
08880 ASPAO-.FALSE.
08885 COPAO-.FALSE.
08890 PLINER-.FALSE.
08895 CATSTEL-.FALSE.
08900 PICATH-.FALSE.
08905 END IF
08910* INITIALIZATIONS
08915 POOF-FLASHTM
08920 TSUB-0
08925 TSURF-0
08930 SUBSURF-0
08935 SURF-0
0891*0 FLREMED-. FALSE.
089fc5 CTFLAG-.FALSE.
08950 TANKREP-.FALSE.
08955 00 970 11-1,100
08960 FALNUM1 (I l)-0
08965 FALNUM200-0
08970 FALNUM5(M)-0
08975 FALNUM6(II)-'ND'
08980 FALNUM30 0-0
08985 FALNUMi*(l 0-0
08990 FALNUM?(I 0-0
08995 970 CONTINUE
09000 FALNUM-0
09005* MCWHORTER-NELSON ESTIMATE FOR THE MONTHLY PENETRATION DEPTH OF THE
09010* CONSTITUENT INTO THE SOIL
09015 MCWHORT-PERM*.01* (I/ (POR-THETA)) *2.592E06/.3Ql»3
09020 TCLVOL-0
09025 TRVOL-0
09030 TMOPEN-0
09035 TPNDPTH-0
090I»0 PPNDPTH-0
0901*5 GDROP-0
09050 00 901 1-1,NPI
09055 GKOEFRT (L) "0 -
09060 PIDEFVL(L)-0
09065 RPPIVOL(L)-0
09070 WLDEFVL(L)-0
09075 CKOEFVL(L)-0
09080 RPWLVOL(L)"0
09085 PILKVOL(L)-0
09090 CKLKVOL(L) -0
09095 ' PMLKVOL (L) -0
09100 PIDEFRT(L)-0
09105 RPPIRT(L)-0
09110 WLOEFRT(L}-0
09115 RPWLRT(L)«0
09120 PILKRT(L)-0
- E32 -
-------
09125 GKLKRT(L)-0
09130 PHLKRT(L)-0
09135 RUPWLO{L)-0
09140 RUPPIP(L)»0
0911-5 PIPDEF(L)-0
09150 WLOOEF(L)«0
09155 GSKOEF(L)-0
09160 PIPLK(L)"0
09165 GSKLK(L)-0
09170 PMPLK(L)"0
09175 901 CONTINUE
09180 00 79010 L-l.NTK
09l85ft SAMPLE THE FAILURE TIME FOR A CONCRETE TANK
09190 lF(CONCRT)CONCTlrt(L)-FNN(35..10.)
09195 TNKLK(L)-0
09200 RUPTNK(L)-0
09205 TNKDEF(L)"0
09210 TKDEFRT(L)-0
09215 RPTKRT(L)-0
09220 TKLKRT(L)"0
09225 TKDEFVL(L)"0
09230 RPTKVOL(L)-0
09235 TKLKVOL(L)-0
0921*0 79010 CONTINUE
0«2U5 VENT-0
09250 TKOFVAP-0.
09255 TKRPVAP-0.
09260 TKLKVAP-0.
09265 00 3d9;L«1.NPI
09270 KPIPDEF(L)-0
09275 NWLOOEF(L)»0
09280 NGSKOEF(L)-0
09285 NPIPLK(L)-0
0929.0 NGSKLK(L)-0
09295 NRUPPIP(L)-0 •
09300 NPMPLK(L)«0
09305 NRUPWLO(l)-0
09310 WGLRVAP(L)-0.
09315 WGOFVAP(L)-0.
09320 PILKVAP(L)-0.
09325 PIOFVAP(L)-0.
09330 PIRPVAP(L)-0.
09335 PKPVAP(L)-0.
093^0 NPICONT(L)-0
093^5 309 CONTINUE
09350 00 8309 L-l.NTK
09355 NAGCONT(L)-0
093^0 NUGCONT(L)-0
09365 NTNKLK(L)-0
09370 NTNKOEF(L)-0
09375 NRUPTNK(L)-p
09380'8309 CONTINUE
09385* SAMPLE THE PROBABILITY OF DIRECT CURRENTS
09390 OCFLAG-FNB(OCPRB)
09395 IF(DCFLAG.EQ.1.)THEN
09WO OCFACT-FNBE (2.. 1..U.)
09405 ELSE
- E33 •
-------
09410 DCFACT-1.0
09415 END IF
09420 IYRNUM-0
091.25*SAMPLE THE FAILURE TIME OF THE COATING
CALL COATS (1.1)
CALL COATS (1.2)
09440 CALL COATS (3.D
09445 CALL COATS(2.1)
09450 CALL COATS(2.2)
09455 MAINTEN-FNU(1.,3.)
09460* SAMPLE THE FAILURE TIME OF THE CATHODIC PROTECTION SYSTEM. FAILURE
09465* TIME IS A FUNCTION OF THE QUALITY OF MAINTENANCE FOR TWE SYSTEM.
09470 IF(CATSTEL.OR.TCATST)THEN
09475 IF(COATING(2.3.D .OR.COATING (3,3. 0 )THEN
09480 CATTIM-FNN(10..5.)*MAINTEN+(ECOATIM(3,1)*FNB(.5))
09485 ELSE
09490 CATTIM-FNN(10.,5.)*MAINTEN
09495 END IF
09500*1F THE CATHODIC PROTECTION SYSTEM IS RETROFITTED, SAVE THE FAILURE
TIME.
09505 IF(RETROFT)THEN
09510 TCATTIM-CATTIM+YRO
09515 CATTIM-100.
09520 END IF
09525 END IF
09530* REINITIALIZE COMPONENT THICKNESSES AND PROBABILITIES
09535* FOR THE NEW ITERATION.
09540 00 99 L-l.NPI
09545 P1PEI (L)-IPIPE(L)
09550 PIPEEU)-IPIPE(L)
09555 PIPE2E(L)-IPIPE(L)
09560 PIPE2I (L)-IPIPE(L)
09565 PUMP I (L)-IPUMP(L)
09570 PUMPE (L) -I PUMP (L)
09575 CASK I (L)-I CASK (L)
09580 GASKE(L)-IGASK(L)
09585 PI INTER (L.I)-PINTER
09590 99 CONTINUE
09595 LYSIM(1)-PLYSIM
09600 VAPSENS-VSENSOR
09605 00 9090 L-l.NTK
096)0 INTERST(L.1)-INTER
09615 TANK! (L)-1 TANK (L)
09620 TANKEU)-ITANK(L)
09625 TANK2I (L)-ITANK2(L)
09630 TANK2E (L) -ITANK2 (L)
09635 9090 CONTINUE
09640 VENT I-IVENT
09645 VENTE-IVENT
09650* REINITIALIZE FLAGS
09655. CATF AIL*. FALSE.
09660 WLDFLGR-.FALSE.
09665 GSKFLGL-.FALSE.
09670 WLDFLGO-.FALSE.
09675 GSKFLGO-.FALSE.
09680 VAPFLG-.FALSE.
09685* CALCULATE CORROSION/EROSION RATES
- £34 -
-------
09690 CALL CORPR3
09695 CALL CORiRAT
09700 IF(YRO.N£.0)THEN
09705 MINV-TMINVL
09710 VINVLIM-TVINVL
09715 IINVLIM*THNVL
09720 ULTRTST-.FALSE.
09725 TKTSTC-.FALSE.
09730 TNK1TST-.FALSE.
09735 TNK5TST-.FALSE.
097*0 TNKSTST-.FALSE.
09745 PITSTC-.FALSE.
09750 PIP1TST-.FALSE.
09755 PIP5TST-.FALSE.
09760 PIPSTST-.FALSE.
09765 «ONMETH(1)-.TRUE.
09770 00 68 11-2,6
09775 fiONMETH (II)-.FALSE.
09780 68 CONTINUE
09785 PIP/ION-. FALSE.
09790 ENOIF
09795* CALCULATE THE INTERIOR LOCALIZED CORROSION RATE
09800 CALL INTCORR
09805* TEAR LOOP
09810 00 110 IYRNUM-I.NYEAR '
09815* SEED THE RANDOM NUMBER CHAMBER
09820 ISEEO-ISEED+IYRNUM
09825 CALL RANSET(ISEED)
09830 J-IYRNUM
09835* IF THE BENCHMARK YEAR HAS BEEN REACHED START ANY
09840* RETROFIT OPTIONS OR DETECTION OPTIONS.
09845 IF((IYRNUM.£Q.YRO;.AND.RETROFT)CALL RETRO
09850 IF(YRO.NE.O.ANO.IYRNUM.GE.YRO)J-IYRNUM-YRO+1
09855 IF(CATTIM.LE.IYRNUM)CATFAIL-.TRUE.
09860* REINITIALIZE WHEN THE BENCHMARK YEAR HAS BEEN REACHED
09865 JFOYRNUM.EQ.YROJTHEN
09870 00 77553 L-l.NPI
09875 ' JF(L.LE.NTK)THEN
09880 ACCONT(Lj«0
09885 UGCONT(L)-!
09890 NAGCONT(L)«0
09895 NUGCONT(L)«0
09900 END IF
09905 PIPCONT(L)-0
09910 NPICONT(L)-0
09915 77553 CONTINUE
09920 ENOIF
09925 If (lYRNUM.EQ.l)THEN
09930 TANKACE-0
09935 ENOIF
09940 TANKAGE-TANKAGE*!
09945* SAMPLE FAULT TREES
09950 CALL CATREL
09955 CALL ANCILOS(J)
09960 CALL SPILLS
09965 00 334*5 L-1.NTK
09970 CALL TNKCONT(L)
- E35 •
-------
09975 33^5 CONTINUE
09980* TANK LOSSES
09585 ANCIL-.FALSE.
09990 CALL LEAKRUP(ANCIL.J)
09995* ESTIMATE RELEASE VOLUMES
10000 CALL RELEASE(I,J.YRO)
10005* IF A TANK HAS FAILED BEFORE THE BENCHMARK YEAR HAS BEEN
10010* RELEASED. EXCLUDE IT FROM THE TANK POPULATION.
10015 IF(YRO.NE.O.ANO.IYRNUM.LT.YRO.AND.TANKREP) CO TO 62
10020 IF(YRO.NE.O.ANO.IYRNUM.LT.YRO.AND.FALNUM.NE.O.AND.(SKLKTKS.OR.
10025+ SKLKFAS))THEN
10030 DO 630 M-1.FALNUM
10035 IF(«NT(MOD(FALNUM1(II).1000)/10).EQ.3.0R.INT(MOD(FALNUM1(I I),1000)
100UO+ /10).EQ.6)GO TO 62
100^5 IFOYRNUM.EQ. (YRO-1) .ANO.FALNUM6 (I I) .£Q.'NO1 .AND'.SKLKFAS) GO TO 62
10050 630 CONTINUE
10055 END IF
10060 IF (CATSTEL.AND.CATFAIL)THEN
10065* SAMPLE IF THE CATHOOIC PROTECTION SYSTEM FAILURE HAS
10070* BEEN DETECTED. REPAIR THE SYSTEM IF IT IS DETECTED.
10075 CATREP-FNB(CATHINS)
10080 IF(CATREP.EQ.1)THEN
10085 CALL REPLAC(9.D
10090 CATREP-0
10095 END IF
10100* ORGANIZE THE RESULTS USED TO GENERATE THE
10105* FREQUENCY TABLES.
10110 ENOIF
10115
10120
10125
10130
10135
10UO
101J»5
10153
F(IYRNUM.GE.YRO)THEN
F (lYRJIUM.EQ.NYEAR)THEN
IF(BASERUN)WRITE(13.612) I
F(AGTANK)OBS«0.
F(IGTANK)OBS-UGTHGHT(1)/2.
F(UGTANK) DBS-(UGTHGHT(1)/2.)*PIPLEN(2)
F(VAULT.AND.UGTANK) DBS-UGTHGHT(1)+PIPLEN(2)
F(VAULT.AND.IGTANK) DBS-UGTHGHT (1)
10155 00 61? 11-1,11
10160 YREVOO-0
10165 YREVKlD-0
10170 YREVP(M)"0
10175 YREVPHlO-0
10180 YREW(II)«0
10185 YREWKID-O
10190 617 CONTINUE
10195 ITKPNTR-1
10200 IPIPNTR-1
10205 00 616 H-1.FALNUM
10210 IF(YREV(6).GT.O.)ITKPNTR-2
10215 IF (YREV(7) .CT.O) JTKPNTR-3
10220 IF (YREV(8) .GT.O) ITKPNTR«0
10225 IF(YREVP(6) .GT.O.) IPIPNTR-2
10230. IF (YREVP(7) .CT.O) IPIPNTR-3
10235 IF(YREVP(8).GT.O)IPIPNTR-0
10240 FAILS-.FALSE.
10245 IF(YREV(1) .EQ.O.AND.INT(MOD(FALNUM1 (I I) , 1000)/10.) .EQ.6,)THEN
10250 YREV(1)«INT((FALNUM7(ll)-l)/12.-«-1)
10255 IF(YREV(1).EQ.O)YREV(1)-1
- E36 -
-------
10260 FAILS-.TRUE.
10265 END IF
10270 IF (YREV(2) .EQ.O.AND. INT(FALNUM1 (I 0/1000) .EQ.3
10275* .ANO.INT(MOD(FALNUM1 (I I) . 1000)/10) .EQ.3)THEN
10280 YREV(2)-INT((FALNUM7(II)-0/12.*0
10285 IF(YREV(2).EQ.O)YREV(2)-1
10290 FAILS-.TRUE.
10295 END IF
10300 IF(YREV1 (2) .EQ.O.ANO. (.NOT.FAI L5) .AND. INT(FALNUMl (II)/1000) .EQ.3
10305* .AND.INT(MOD(FALNUM1 (I I) ,1000)/10) .EQ.3)THEN
10310 YREV1 (2)-INT((FALNUM7(ll)-1)/12.*1)
10315 IF(YREV1 (2) .EQ.O)YREV1(2)-1
10320 FAIL5--TRUE.
10325 ENDIF
10330 IF (YREVP(2) .EQ.O.AND.INT(FALNUM1 (I 0/1000) .EQ.3.AND.
10335* iNT(MOO(FALNUMi(io ,iooo)/io) .EQ.OTHEN
10340 YREVP(2)-INT((FALNUM7(I D-0/12.+1)
10345 IF (YREVP (2).EQ.O)YREVP(2) -1
10350 FAILS-.TRUE.
10355 END IF
10360 IF(YREVP1 (2) .EQ.O.AND. (.NOT.FAILS)-AND.INT(FALNUM1 (I 0/1000) .EQ.3
10365* .ANO.INT(MOD(FALNUM1 (I I) ,1000)/10) .EQ.DTHEN
10370 YREVP1(2)-INT((FALNUM7(I D-D/12.*!)
10375 IF(YREVP1 (2) .EQ.O)YREVP1 (2)-l
1038C FAILS-.TRUE.
10385 END IF
10390 IF(YREV(3) .EQ.O.AND.INT(FALNUM1(II)/1000.).EQ.2.AND.
10395+ INT(MOD(FALNUM1 (I I), 1000)/10) .EQ.3)THEN
10400 '• YREV(3)-INT((FALNUM7 (I 0-0/12.*!)
10405 ' '' IF(YREV(3).EQ.O)YREV(3)-1
10410 FAILS".TRUE.
10415 ENDIF
10420 IF(YREV1 (3) .EQ.O.AND. {.NOT.FAI L5) .AND. INT(FALNUM1 (I I)/1000.) .EQ.2
10425* .AND.INT(MOD(FALNUM1 (I I) , 1000)/10) .EQ.3)THEN
10430 YREV1 (3)-INT((FALNUM70 l)-1)/12.*l)
10435 IF (YREV1 (3) .EQ.O) YREV1 (3) -1
10440 FAILS".TRUE.
10445 ENDIF
10450 IF (YREVP (3) .EQ.O.AND. INT(FALNUH1 (I 0/1000.) .EQ.2.AND.
10455* INT (MOD (FALNUM1 (I I), 1000)/10).EQ.OTHEN
10460 YREVP(3)-INT((FALNUM7(I 0-0/12.*0
10465 IF (YREVP (3) .EQ.O) YREVP (3) -1
10470 FAILS-.TRUE.
10475 END IF
10480 IF(YREVP1 (3) .EQ.O.AND. (.NOT.FAILS) .AND. INT(FALNUM1 (I 0/1000.) .EQ.2
10485* .AND. INT (MOD (FALNUM1 (II), 1000) /10) .EQ. 1)THEN
10490 YREVP1(3)-INT((FALNUM7(M)-D/ir.*D
10495 IF (YREVP1 (3) .EQ.O) YREVP1 (3)-l
10500 FAILS".TRUE.
10505 END IF
10510 IF (YREW(3) .EQ.O.AND. (INT(FALNUM1 (I 0/1000.) .EQ.2.OR.
10515* INT (FALNUni (I 0/1000.).EQ.3) .AND.
10520* (INT(MOD(FALNU«1 (I I) ,1000)/IO) .EQ.4.0R.
10525* I NT (MOD (FALNUM1 (II). 1000) /10) .EQ.5) )THEN
10530 YREVW(3)-INT((FALNUM7(M)-D/12.*1)
10535 IF(YREVW(3).EQ.O)YREW(3)-1
10540 FAILS".TRUE.
• E37 •
-------
105^5 END IF
105=0 IF (YREVW1 (3) .EQ.O.AND. (.NOT.FAILS) .AND. (I NT (r ALNUM1 00/1000.)
10555* .EQ.2.0R.INT(?ALNUM1 (I 0/1000.) .EQ.3) .AND.
10560* (INT(HOD(FALNUM1 (I I) .1000)/10) .EQ.U.OR.
10565+ INT(MOD(FALNUM1 (I I) ,1000)/10) .EQ.5))THEN
10570 YREVW1 (3)-INT((FALNUM7(l l)-l
10575 IF (YREVWl (3) .EQ.O)YREVW1 (3)
10580 FAILS-.TRUE.
10585 ENDIF
10530 IF (YREV(9) .EQ.O.AND.INT (FALNUM1 (I 0/1000.) .EQ.l.ANO.
10595* INT(MOD(FALNUM1 (II) ,1000)/10) .EQ.3)THEN
10600 YREV (9) -I NT ((FALNUM7 0 0-1) /12.+1)
10605 IF(YREV(9).EQ.O)YREV(9)-1
10610 FAIL5-.TRUE.
10615 ENDIF
10620 IF(YREVP(9) .EQ.O.AND.INT(FALNUM1 00/1000.) .EQ.1.AND.
10625+ INT(MOD(FALNUM1 (I 0 ,1000)/10) .EQ.1)THEN
10630 YREVP(9)-INT((FALNUM70 0-0/12.+1)
10635 IF (YREVP (9) .EQ.O) YREVP (9) -1
106W FAIL5-.TRUE.
1061* 5 ENDIF
10650 IF(YREVW(9) .EQ.O.AND. INT(FALNUM1 (I 0/1000.) .EQ.l
10655+ .AND. (INT(MOO (FALNUM1 (I I) ,1000)/10) .EQ.l*.OR.
10660+ INT(MOO(FALNUni (I I) ,1000)/10) .EQ.5))THEN
10665 YREVW(9)»INT((FALNU«70 0-D/12.+1)
10670 IF(YREVW(9) .EQ.O)YREVW(9)-1
10675 FAIL5-.TRUE.
10680 ENDIF
10685 IF (YREV(4) .EQ.O.AND. INT (MOD (FALNUni (I I) , 1000)/10.) .EQ.8)
10690+ '• THEN
10695 • fR£V(M"INT((FALNUM700-1)/12.+l)
10700 IF (YREV (J») .EQ.O) YREV (M-l
10705 FAIL5-.TRUE.
10710 ENDIF
10715 IF(YREV1 (4) .EQ.O.AND. (.NOT.FAILS) .AND. INT (MOO (FALNUM1 (I 0 .1000)/
10720+ 10.).EQ.8)THEN
10725 YREV1 (M-INT((FALNUM7(M)-1')/12.+1)
10730 IF (YREV1 (k) .EQ.O) YREV1 (4) -1
10735 FAIL5-.TRUE.
107^0 ENDIF
107^5 IF (YREV(IO) .EQ.O.AND. INT (MOO (FALNUM1 (M) .1000)710.) .EQ.7)
10750+ THEN
10755 YREV(10)«INT((FALNUM700-1)/12.+1)
10760 IF (YREV (10). EQ.O) YREV (10) «1
10765 FAIL5--TRUE.
10770 ENDIF
10775 IF (YREV1 (10) .EQ.O.AND. (.NOT.FAILS) .AND.INT(MOD(FALNUM1 (II) ,1000)7
10780+ 10.).EQ.7)THEN
10785 YREV1(10)»INT((FALNIW700-0/12.+1)
10790 IF(YREV1(10).EQ.O)YREV1 (10) -1
10795 FAILS-.TRUE.
10800 ENDIF
10805' IF(YREV(11).EQ.O.AND.INT(MOD(FALNUft1(ll).1000)/10.).EQ.9)
10810+ THEN
10815 YREV(11)-INT((FALNUM700-D/12.+1)
10820 IF(YREV(11).EQ.O)YREV(11)-1
10825 FAILS--TRUE.
- E38 -
-------
10830 ENOIF
10835 IF(YREV1(11).EQ.O.AND.(.NOT.FAILS)•AND.I NT(MOD(FALNUM1 (I I),1000)/
108UO+ 10.) .EQ.10)THEN
108U5 YREV1 (11)-INT((FAINUM7(I l)-l
10850 IF(YREV1 (11) .EQ.O)YREV1 (1
10855 FAIL5--TRUE.
10860 ENOIF
10865 IF(YREV(5) .£Q.O.ANO..NOT.FAIL5)YREV(5)-INT((FALNUM7(M)-1)/12.+1)
10870 IF(YREV(6) .EQ.O.AND.ITKPNTR.EQ.LAND. ((INT (MOD (FALNUM1 (I I) ,
10875+ 1000)710.).EQ.3.ANO.FALNUM60I).NE.'CA').OR.I NT(MOD
10880+(FALNUM1 (I I) ,1000)710.) .EQ.6) .AND. (FAINUM60 I) .NE.'NO')) THEN
10885 YREV(6)-INT((FALNUM3(I I) -1) /12.+1)
10890 IF(YREV(6) .EQ.O)YREV(6)-1
10895 ELSEIF(YREV(7).EQ.O.AND.ITKPNTR.EQ.2.AND.
10900+((INT(MOD(FALNUM1 (II) , 1000) /10.) .EQ.3-AND.FALNUM6 (I I) .NE.'CA1)
10905+ .OR.INT(MOO(FALNUM1 (I I) .1000)710.) .EQ.6.) .AND.
10910+ (FALNUM60I) .NE.'NO'))THEN
10915 YREV(7)-INT((FALNUM3(I l)-l)/12.+1)
10920 IF(YREV(7) ,£Q.O)YREV(7)-1
10925 ELSEIF(YREV(8).EQ.O.AND.ITKPNTR.EQ.3-AND. ((INT(MOD
10930+ (FALNUM1(I I).1000)710.) .EQ.3-ANO.FALNUM6(I I) .NE.'CA1)
10935+ .OR.INT(MOO(FALNUM1 (I I) , 1000) 710.) .EQ.6) .AND. (FALNUM&(I I) .NE.
109*»0+'ND'))THEN
109^5 YREV(8)-INT((FALNUM3(I l)-l)/12.+l)
10950 IF(YREV(8) .EQ.O)YREV(8)-1
10955 ENOIF
10960 IF(YREVP(6) .EQ.0.AND. IPIPNTR.EQ.LAND. ((INT(MOO (FALNUM1 (I I) ,
10965+ 1000)7.10.) .EQ.1.ANO.FALNUM6(II).NE.'CA') .OR. INT (
10970+ MOD (FALNUM1 (I I), 1000)710.) .EQ.6) .AND. (FALNUM6 (I I)
10975* .-NE4.'NO'))THEN
10980 YREVP(6)-INT((FALNUM3(M)-1)/12.+1)
10985 IF(YREVP(6) .EQ.O)YREVP(6)-1
10990 ELSHIF(YREVP(7).EQ.O.AND.IPIPNTR.EQ.2.ANO.
10995*((INT(MOD(FALNUM1 (I I) ,1000)710.) .EQ. 1 .ANO.FALNUM6 (I I) .NE.'CA1)
11000+ .OR.INT(MOD(FALNUM1 (II) ,1000)710.) .EQ.6.) .AND. (FALNUtt6(ll)
11005+ .NE.'NO'))THEN
11010 YR£VP(7)-INT((FALNU«3(I D-D/12.+1)
11015 IF (YREVP (7) .EQ.O) YREVP (7) -1
11020 ELSE IF (YREVP (8).EQ.O.AND.I PIPNTR.EQ.3-AND.((I NT(MOD
11025+ (FALNUM1 (10.1000)710.) .EQ. 1 .AND.FALNUM6 (I I) .NE.'CA')
11030+ .OR.INT(MOD(FALNUM1 (I I). 1000)710.) .EQ.6) .AND. (FALNUM6 (I I)
11035* .NE.'NO'))THEN
11040 YREVP (8) -INT ((FALNUM3 (I I) -1) 712.+1)
11045 -" IF (YREVP (8). EQ.O) YREVP (8)-1
11050 ENOIF
11055 616 CONTINUE
11060 615 FORftATOl (1X.E10.3))
11065 6U FORAAT(I3.1X,F6.3.1X.F5.3.9(1X.E10.3))
11070 IF(.NOT.STORAGE)THEN
11075* FOR TREATMENT TANKS THE AMOUNT OF UNTREATED WASTE
11080* THAT IS RELEASED MUST BE ESTIMATED FROM THE RELEASE
11085* VOLUME PROFILE.
11090 YRAOJ-YRO
11095 JJ-YRO
11100 IF(YRO.EQ.O)JJ-1
11105 IF(YRO.EQ.O)YRAOJ-1
11110 DO 10 ll-JJ.JJ+19
- E39 -
-------
11115 IF(CONCRT.AND. ((.NCT.VAUL7.AND. (UGTANK.OR.IGTANK/KOR.
11120*(NCSECON.AND.AG7ANK)))TH£N
11125- SUBTRACT OFF THE CONCRETE RELEASES DUE TO ITS PERMEABILITY,
11130* SINCE THE 'FALNUM1 VARIABLES 00 NOT STORE THIS VALUE.
11135 00 2093^ L-l.NTK
11U.O TVOLUMEU I)-TVOLUM£(II)-PERMREL(L)*12
1111.5 2093^ CONTINUE
11150 ENOIF
11155 IF(TVOLUMEOl) .NE.OTHEN
11160* 'TEMPFAL' IS THE NEW FAILURE COUNTER; ITS USED FOR THE NEW LEAK
11165* VOLUME ESTIMATES.
11170 TEMPFAL-0
11175* 'VOLADJ1 REDUCES THIS VOLUME FOR RUPTURES. DEFI C1ENCI ES.SP I LLS AND
11180* IMMEDIATELY DETECTED LEAKS.
11185 TEMPVOL-TVOLUME(II)
11190* SUMS UP NEW 'TVOLUME1.
11195 CALCVOL-0.
11200 DO 20 LL-l.FALNUM
11205 IF(FALNUMMLL) .EQ.DTHEN
11210* SECONDARY CONTAINMENT FAILED
11215 IF((YRO.EQ.O.ANO.II.GE.((FALNUM7(LL)-1)/12*1) .ANO.II.LE
11220*. ((FALNUM3(LL)-1)/12*1)) .OR. (YRO.NE .O.ANO-. (II-YRO*!) .CE. ((FALNUM7
11225* (LL)-1)/12*1) .AND. (I I-YRO*1) .LE. ( (FALNUM3 (LL) -1) /12+1) ) ) THEN
11230* FAILURE OCCURRED THAT YEAR.
11235 IF(INT(FALNUM1 (LD/1000) .NE.3JTHEN
112*»0* THE FAILURE IS NOT A CORROSION LEAK.
112^5* CALCULATE 'FALTIME'(# OF HRS THE COMPONENT IS IN
11250* THE FAILED STATE FOR THAT YEAR)
11255 IF((YRO.EQ.O.ANO.II.GT.((FALNUM7(LL)-1)/12+1)) .OR. (
11260* . YRO.NE.O.AND. (M-YRO+1) .GT. ( (FALNUM7 (LL) -1) /12*1) ) ) THEN
11265* ' ; THE RELEASE STARTED BEFORE THE PRESENT YEAR.
11270 .' IF((YRO.EQ.O.ANO.II.LT. ( (FALNUM3 (LL) -1)/12*1) )
11275* .OR. (YRO.NE.O.ANO. (I l-YRO+1) .LT. ( (FALNUM3 (LL) -1) /12*1) ) )THEN
11280* THE RELAEASE ENDED AFTER THE PRESENT YEAR
11285 FALTIME-720.*21».
11290 ELSE
11295* THE RELEASE ENDED BEFORE THE END OF THE PRESENT
YEAR
11300 FALTIME-(FALNUM30.D*720.)-(I I -YRAOJ) *720.*12.
11305 ENOIF
11310 ELSE
113'5* THE RELEASE STARTED DURING THE PRESENT YEAR.
11320 IFUYRO.EQ.O.AND.II.LT. ((FALNUM3 (LL) -1) /12+1) )
11325* • OR. (YRO.NE.O.AND. (I l-YRO+1) .LT. ( (FALNUM3 (LI) -1) /12*1) )) THEN
11330* THE RELEASE ENDED AFTER THE PRESENT YEAR.
11335 FALTIME-(II-YRAOJ*1)*720.*12.-(FALNUM7(LL)-1)*720.
113^0 ELSE
113^5* THE RELEASE STARTED ANB ENDED IN THE PRESENT YEAR.
11350 FALTIME-FALNUM50.L)
11355 ENDIF
11360 ENOIF
11365* ADJUST RELEASE PROFILE TO REFLECT THE AMOUNT OF UNTREATED
WASTE. .
11370 CALL VOLAOJ(TEMPVOL, (FALTIME*(FALNUM2(LL)/FALNUM5
1 1375+ (LL))) .MOO (INT(FALNUM1 (LL) /10) , 100) .MOD (FALNUM1 (LL) , 10) .CALCVOL)
11380 ELSE
11385* FAILURE IS A CORROSION LEAK
• E40 -
-------
11390
11395
111.00*
11405
11410
11415
111*20
11425*
11430
1 1435
1 1440
11445
1 1450
1 1455
1U60
FALTIKE-FALNUM? (LI) -FALNUM3 (LL) + 1
IF(FALTIME.EQ.1)THEN
LEAK LASTED .LE. 1 MONTH , RATE NEVER CHANCED
FALTIME-FALNUMS(LL)
CALL VOLADJ(7E.«.PVOL.(FALTIME*(FALNtm2(LL)/FALNUM5
,MOO(INT(FALNUM1 (LL)/10) . 100) ,MOO(FALNUM1 (LL) . 10) .CALCVOL)
ELSE
LEAK LASTED MORE THAN A MONTH
7EMPFAL-TEMPFAL-H
FALTMP1 (TEMPFAL) -FALNUM1 (LL)
FALTMP2 (TEMPFAL) "FALNUM2 (LL)
FALTMP3 (TEMPFAL) -FALNUM3(LL)
FALTMP5 (TEMPFAL) -FALNUM5 (LL)
FALTMP? (7-MPFAL) -r ALNUM? (LL)
END IF
ENDIF
11470 ENDIF
111*75 ENDIF
111*80 20 CONTINUE
111*85 IF(TEMPVOL.GT.O)THEN
111*90* AT THIS POINT OF THE ROUTINE 'TEMP.VOL1 SHOULD CONTAIN
111*95* THE LONG LEAKS (>MONTH) . IF 'TEMPVOL' IS NEGATIVE IT IS
11500* ASSUMED THAT THE LONG LEAKS ARE VERY MINOR CONTRIBUTORS
11505* TO THE ANNUAL RELEASE VOLUME — THESE VOLUMES ARE NOT ADDED TO
11510* 'CALCVOL' (THE NEW TVOLUME) .
11515* 'TOTALLK1 SUMS UP THE TOTAL RELEASE VOLUME OF THE LONG
11520* LEAKS USING THE 'FALTrtP' VARIABLES.
11525 TOTALLK-0.
11530 . DO 30 LL-1, TEMPFAL
11535 • •'. IF((YRO.EQ.O.AND.II.GT.((FALTMP7(LL)-1)/12+1)) .OR. (YRO
11540+ .NE.O.AND. (I l-YRO+1) .67. ( (FAL7MP7 (LL) -1) /12+1) ) )7H£N
11545* 7HE RELEASE S7ARTED BEFORE THE PRESENT YEAR
11550 . IF((YRO.EQ.O.AND.II.LT.((FALTMP3(LL)-l)/12+1)) .OR. (
11555* YRO.NE.O.ANO. (I l-YRO+1) .LT. ( (FALTMP3 (LL) -1) /12+1) ) )THEN
11560* THE RELEASE ENDED AFTER THE PRESENT YEAR.
11f65 FALTIME-720.*21».
11570 ELSE
1 1575 FALTIME-(FALTMP3 (LL) *?20.) - (I I -YRAOJ) *720.*12.
11580 ENOIF
11585 • ELSE
11590* THE RELEASE STARTED DURING THE PRESEN7 YEAR.
11595 IF((YRO.EQ.O.AND.II.L7.((FAL7MP3(LL)-1)/12-H)).OR.(
11 600* YRO. NE.O.AND. (M-YRO+1) .LT. ( (FALTMP3 (LL) -D/12+1) ) )THEN
11605* THE RELEASE ENDED AFTER THE PRESENT YEAR.
11610 FALT1ME-U l-YRADJ+1) *720.* 12.- (FALTMP? (LL) -1) *720.
11615 ELSE
11620* THE RELEASE S7AR7ED AND .ENDED IN 7HE SAME YEAR.
11625 FALTI«E-FALTMP5(LL)
11630 ENOIF
11635 ENOIF
1I6UO* CALCULA7E THE LEAK VOLUME RELEASED FOR THAT YEAR.
1 16U5- FALTMP2 (LL) »FALTI«E*FALT«P2 (LL) /FAL7MP5 (LL)
1 1 650 T07ALLK-70TALLK+FAL7MP2 (LL)
11655 30 CON7INUE
11660 00 40 LL-1, TEMPFAL
1 1665 CALL VOLADJ (TEMPVOL, (FAL7MP2 (LL) *7EMPVOL/707ALLK) ,MOO
11670* (IN7(FAL7«P1 (LL)/10) .100) ,MOO(FALTMP1 (LL) .10) .CALCVOL)
- E41 -
-------
11675 fcO CONTINUE .
11630 END IF
116S5* STORE NEW RELEASE VOLUME NUMBER.'-
11690 TVOLUMEdO-CALCVGL
11655 END IF
11700* ADD THE RELEASE VOLUMES DUE TO CONCRETE PERMEABILITY
11705* BACK INTO THE RELEASE PROFILE.
11710 IF (CONCRT.'ANO. ( (.NOT.VAULT.AND . (UGTANK.OR. I GTANK)) .OR.
11715+(NOSECON.ANO.AGTANK)))THEN
11720 00 68543 L-l.NTK
11725 IFU.EQ.DTHEN
11730 IF (DISTILL)THEN
11735 TVOLUMEd I)-TVOLUME(I 0+PERMREL (L) *12*DVOLFR
11740 ELSE
11745 TVOLUMEd I )-TVOLUME( I D+PERMREL (L) *12
11750 END IF
11755 END IF
11760 IF(L.EQ.2)THEN
11765 IF(01 STILL)THEN
11770 TVOLUMEd I) -TVOLUME (I 0+PERMREL (L) *12
11775 ELSE
11780 TVOLUME (I I) -TVOLUME (I 0+PERMREL (L)*12* (1-TRTEFF)
11785 END IF
11790 ENOIF
11795 IF(L.EQ.3)"HEN
11800 TVOLUME (I I) -TVOLUME (I D+PERMREL (L) *12* (1-TRTEFF)
11805 END IF
11810 68543 CONTINUE
11815 ENOIF'- •
11820 10'CONTINUE
11825 END IF
11830 00 45962 L-1.NYEAR
11835* CONVERT THE RELEASE PROFILE FROM GALLONS TO CUBIC METERS
11840 TVOLUME (L)-TVOLUME (L)*.003785
11345 45962 CONTINUE
1185"0* OUTPUT THE RELEASE PROFILE RESULTS.
11855 IF(YRO.EQ.O)THEN
11860 WRITE04,614) I, DBS*. 3048,1.,TVOLUME (1),
11865+TVOLUME (2).TVOLUME (3).TVOLUME (4).TVOLUME (5).TVOLUME(6),
11870+TVOLUME (7) .TVOLUME (8) .TVOLUME (9)
11875 WRITE (14,615) (TVOLUME(I I),11-10.20)
11880 ELSE
11885 WRITE(14,614) I,DBS*.3048,1..TVOLUME (YRO),
11890+TVOLUME (YRO+1) .TVOLUME (YRO+2) .TVOLUME (YRO+3) .TVOLUME (YRO+4) ,
11895+TVOLUME (YRO+5) .TVOLUME (YRO+6) .TVOLUME (YRO+7) .TVOLUME (YRO+8)
11900 WRITE (14.615) (TVOLUMEd I) ,M-YRO+9, YRO+19)
11905 ENOIF
11910 66614 FORMAT (26 (IX. 12). IX. 13)
11915* OUTPUT THE FREQUENCY TABLE RESULTS
11920 WRITE(15.66614) YREVP(8}.YREVP(7),YREVP(6),YREV(8),YREV(7),
11925+YREV(6) ,YREV(5) .YREV(ll) .YREV(IO) .YREV1 (4) .YREV(4) ,
11930+YREVW(9) ,YREVP(9) ,YREV(9) .YREVW1 (3) .
11935*YREVW(3) .YREVP1 (3) ,YREVP(3) ,YREV1 (3) .YREV(3) .YREVP1 (2) ,
11940+YREVP(2) .YREV1 (2) ,YREV(2) ,YREV(1) , (FALNUM7 (0/12)+1.1
11945 OTNONLK-1
11950 IREPFLG-0
11955 1F(FALNUM.NE.O)THEN
- E42 -
-------
11960 IF(FAlNim.EQ.l)GO TO 527
11S65- OUTPUT THE DUMP FILE RESULTS
11S70 DO 526 I l-l.FALNUM-1
11975 WRITE (8, 93D I,I!,FALNUM7(I I) .FALNUM50 I
11930+FALNUM2(I 0/FALNUM50 I) , I NT (MOOJF ALNUM1 { l
,FALNUM3(l I)
'l ) , 1000)710)
11985*.NOD (FALNUMI (II) ,10) , I NT (FALNUMI (I 0/1000) ,rALNUMU(| I)
11990+ ,FALNUM6(II)
11995 IF(IREP?LG.EQ.O)THEN
12000 IF((INT(MOD (FALNUMI(II),1000)/10).EQ.3).OR.(INT(MOD(FALNUMI(II)
12005+ ,1000)/10) .EQ.6))THEN
12010* YEAR OF FIRST TANK REPLACEMENT
12015 AGTK1ST(I)-FALNUM3(I 0/12.+YRO-1
12C20 AGTKREP-AGTKREP+1
12025 IREPFLG-1
12030 ENOIF
12035
1201.0
1201.5
12050
12055
12060
12065
12070
12075
12080
12085*
12090
12095
12100
12105
12110*
12115
12120
12125
12130
12135
12UO
12U5
12150
12155
12160
12165+
12170
12175
12180
12185
12190
12195
12200
12205
iF(FALNUMi»(i i) .EQ.DTHEN
IF(I i .NE.DTHEN
00 380 JKL-l.I 1-1
IF(FALNUM3(JKL) .EQ.FALNUM3 (I I) .AND.FALNUMl* (JKL) .EQ.OGO TO 381
380 CONTINUE
ENDIF
IPIPFLG-0
ICORFLG-0
IF((IPIPFLG.EQ.O).AND. (INT (MOO (FALNUMI (II) ,1000)/10) .EQ.1))THEN
NUMBER OF FACILITIES WITH A PIPE FAILURE INCIDENT
AGPIPNO-AGPIPNO+1
IPIPFLG-1
END.IF:
IF ((KORFLG.EQ.O) .AND. (INT (FALNUMI (I 0/1000) .EQ.3))THEN
NUMBER OF FACILITIES WITH A CORROSION INCIDENT
AGCORNO-AGCORNO+1
ICORFLG-1
ENDIF
SI2D-FALNUM2(M)
IDETD-FALNUM5(I I)
DO 382 JLK-Il+l.FALNUM
IF(FALNUM3(JLK) .EQ.FALNUM3 (I I) .AND .FALNUMI. (JLK) .EQ.DTHEN
SIZD-SIZD+FALNUM2MLK)
IDETD-MAX(REAL(IOETD),FALNUM5(JLK))
IF((IPIPFLG.EQ.O).AND. (INT (MOD (FALNUMI (JLK) ,1000)/10) .EQ.l))
THEN
AGPIPNO-AGPIPNO+1
IPIPFLG-1
ENOIF
IF ((ICORFLG.EQ.O) .AND. (INT (FALNUMI (JLK)/1000) .EQ-3))THEN
AGCORNO-AGCORNO+1
ICORFLG-1
ENOIF
ENOIF
382 CONTINUE .
NUMBER OF RELEASE INCIDENTS NOT DETECTED BY THE FINAL
12210
12215*ACGREGATE
YEAR.
12220 IF ((FALNUM30 I) .EQ. (J*12)) .AND. (.NOT.TANKREP) .AND. (FALNUM6'(I I) .EQ.
12225+ 'ND'))AGNYFAL-AGNYFAL+1
12230* CALCULATE DISTIBUTION TABLES FOR RELEASE VOLUMES
12235* AND DETECTION TIMES.
-------
122J»0 CALL SIZDIST(SIZD)
122U5 CALL DETDIST(IDETD)
12250 ACGFAIL-AGGFAIL+r
12255 381 CONTINUE
12260 OTNONLK-0
12265 END IF
12270 526 CONTINUE
12275 527 WRITE (8, 932) I. FALNUM, FALSUM7 (FALNUM) .FALNUM5
12280+ (FALNUM) .FALNUM3 (FALNUM) .FALNUM2 (FALNUM)
12285+/FALNUM5 (FALNUM) . INT (MOO (FALNUM1 (FALNUM) ,1000)/10) ,MOD(
12290+FALNUM1 (FALNUM) ,10) , INT(FALNUM1 (FALNUM) /1000)
12295* FALNUM4(FALNUM) , FALNUM6 (FALNUM)
12300 IF(IRE?FLG.EQ.O)THEN
12305 IF((INT(MOO(FALNUM1 (FALNUM) .1000)710) .EQ-3) .OR. (I NT (MOD (
12310+FALNUM1 (FALNUM) ,1000)710) .EQ.6))THEN
1 23 15
12320
12325
12330
12335
12340
12345
12350
12355
12360*
12365
12370
AGTK 1 ST ( I ) -F ALNUM3 (FALNUM) 712 .+YRO- 1
IREPFLG-1
AGTKREP-AGTKREP+1
ENDIF
I F(FALNUM4 (FALNUM) .EQ.1)THEN
IF (FALNUM. NE.DTHEN
DO 383 LKJ-l.FALNUM-1
IF(FALNUM3(LKJ) .EQ.FALNUM3 (FALNUM) .AND .FALNUM4 (LKJ) .EQ.1)GO TO
38A
383 CONTINUE
ENOIF
12375*AGGREGATE NUMBER OF RELEASE INCIDENTS CAUSED BY CORROSION
12380 IF (INT(?.ALNUM1 (FALNUM) /1000) .EQ.3) AGCORNO-AGCORNO+1
12385 IF (INT(MOO(FALNUM1 (FALNUM) ,1000)710) .EQ. 1) ACPI PNO-AGPI PNO+1
12390*AGGREGATE NUMBER OF RELEASE INCIDENTS NOT DETECTED BY THE FINAL
YEAR.
12395 IF ((FALNUM3 (FALNUM) .EQ. (J*12)) .AND. (.NOT.TANKREP) .AND. (FALNUM6(
12400+ FALNUM) .EQ. 'NO ' ) ) AGNYFAL-AGNYFAL+1
12405 CALL SIZDIST(FALNUM2(FALNUM))
12410 CALL OETDIST(INT(FALNUM5(FALNUM)))
12415 AGGFA!L»AGGFAIL-H
12420 384 CONTINUE
12425 OTNONLK-0
12430 ENOIF
12435 NONIEAK-NONLEAK+OTNONLK
12440 ELSE
12445* NON-LEAKING FACILITY
12450 NONLEAK-NONLEAK+1
12455 ENOIF
12460 IF (ACTKIST(I) .EQ.O) AGTKIST(I) -100.0
12465 TVOL1-TVOL1+VOL1
12470*CUMULATIVE AGGREGATE RELEASE VOLUME
12475 IF (VAULT.OR.PIPSEC.OR.CONCPAD.OR.ASPHPAO)THEN
12480 CUMREL-CUMREL+VOLHTRVOL
12485 SLSE
12490 CUMREL-CUMREL+VOL1+TRVOL+TCLVOL
12495 ENOIF
12500 AGTKAGE-AGTKAGE+IYRNUM
12505 ENDIF
12510 931 FORMAT (14, IX, 12. IX. 13. IX, F8.1, IX. 13. IX, Fl 1.6, IX, 12, IX, II, IX,
12515+H. IX. II, IX, A2)
- E44 -
-------
12520 932 FORMAT(I4.1X,I2.1X,I3.1X.F8.I.1X,I3,1X.F11.6,1X,I2.1X.M.1X
12525+11.IX,i1,IX.A2)
12550 IF(FALNUM.GT.O)THEN
12535 DO 620 ll-l.FALNUM
12540 IF (FALNUM6(II).EQ.'NO1)THEN
12545* AGGREGATE NUMBER OF UNDETECTED RELEASES.
12550 AGUNDET(IYRNUM)-AGUNDET(IYRNUM)v1
12555 GO TO 621
12560 ENDIF
12565 620 CONTINUE
12570 621 CONTINUE
12575 ENDIF
12580 ENCIF
12585 IF(YRO.NE.O.AND.IYRNUM.EQ. (YRO-1))CALL RESTART
12550 IF (YRO.NE.O.ANO.IYRNUM.EQ. (YRO-1))COUNT 1-COUNT 1 + 1
12595 110 CONTINUE
12600 TTCVOL-TTCVOL+TCLVOL
12605 62 CONTINUE
12610 SEED»SE£D+MM+(78*NYEAR)
12615 100 CONTINUE
12620 WRITE(13.612)NYEAR
12625 WRITE (10.713) 'TOTAL CLEANUP VOLUME FOR ALL FAC.-1.TTCVOL
12630 WRITE(12.7080)TITLE
12635 WRITE(12.7080)TITLE1 .
12640 7080 FORMAT(A 110)
12645 WRITE(12,1082) 'I1,'2','3','4'
12650 WRITE(12.108l)'CUMULAT'.'# OF1
12655+'# REL W/'.'VOLUM IN',
12660+'# Of REL'
12665 WRITE02.1081)'RELEASE1
12670+ 'W/ TANK1,
12675+'FLASH1,'UNSAT1.1 IN W/ '
12680 WRITE02.1081) ' '.'FACIL1
12685+'POINT1,'ZONE'.'PI-FAIL1
12690 WRITE (12,1084)CUMREL.NONLEAK.AGGFAIL.AGCORNO.AGNYFAL.AGTKREP,
12695+AGFLASH,AGUNSAT,AGPIPNO
12700 IF(YRO.EQ.O)AGPOPUL-FAC
IF(YRO.NE.O)THEN
WRITE(12,41)'33','34','35I
WRITE (12.42)'# OF TKS','# OF TKS1
WRITE02.42) 'LKING BY1,1 IN EXIST1
WRITE (12,42)'YRO UNOET1,'POPULAT1
WRITE(12,43)AGTKLK,AGPOPUL,AGTKAGE/REAL(AGPOPUL)
ENOIF .
41 FORMAT (3 (A6.4X))
12745 42 FORMAT(3(A9,IX))
1275043 FORMAT(2(19,IX) ,F6.1)
12755 1081 FORMAT(9(A9,1X))
12760 1082 FORMAT(9(A6.4X))
12765 1084 FORMAT(E10.4,6(I9JX) ,E10.4,1X,I9)
V6'
OF',
,'7',
'# OF
'8V9'
REL'.1
# NOT','#OF FAC'
'NON-LEAK1.'RELEASE'.'IN W/','DETECTED'
INCID','CORROS','BY END','REPLAC'
12705
12710
12715
12720
12725
12730
12735
'AVERAGE1
'TANK'
'AGE1
12770 WRITE (12,1086)
12775-WRITE (12,1087)
12780 WRITE(12
12785 WRITE (12
12790 WRITE (12
12795 WRITE (12.1088)NSIZE(M
12800 WRITE(12,1088)NSIZE(5)
'SIZE DISTRIBUTION
'NUMBER','SIZE"
1088)NSIZE(1)
1088)NSIZE(2)
1088)NSI2E(3)
OF RELEASE INCIDENTS (GALLONS)
'
'
. 1-10'
,'10-25'
,'25-100'
,'100-500'
- EU5 -
-------
12805 WRITE(12,1088)NSIZE(6)
12810 WRIT£(12.1088)NS!Z£(7)
12815 WRITE02.
WRITE02.
WRITE (12,
WRITE (12,
WRITE (12
1088)NSIZ£(8).
1083)NSI2E (9) ,
1088)NSIZ£ (10)
1088)NSIZE(1D
1088)NSIZE(12)
WRIT£(12,1088)NSIZE(13)
WRlTt(12.1083)NSlZE(HO
1086 FORMAT(A50)
1087 FORMAT(A6,3X,A12)
1088 FORMAT(l6,3X.A12)
WRITE(12.1086)'DISTRIBUTION OF
1087)'NUMBER1.'SIZE
1088)OETSIZE(D ,
1088)0£TSIZ£(2) ,
1088)OETSIZ£(3)',
1088)DETSIZE(M ,
1088)DETSIZE(5) .
1088)OETSIZE (6) .
1088)DETSIZE(7) ,
1088)OETSIZE(8) .
1088)DETSIZE(9),
1088)DETSIZE(1.0)
1088)OETSIZE(11)
WRITE(12,1088)OETSIZE(12)
1086)'TIME
1089)'FAC1
1000-3CC01
3000-5C001
5COO-7CC01
'70CO-10C001
'10000-20000'
'20000-30000'
'30000-60000'
'>60000'
WRITE02,
WRITE02,
WRITE(12,
WRITE (12,
WRITE (12,
WRITE (12,
WRITE (12,
WRITE (12,
WRITE02,
WRITE (12.
WRITE(12,
WRITE (12,
OF INITIAL
'YEAR
DETECTION TIMES
'25 YEARS'
TANK REPLACEMENT1
12820
12825
12830
12835
1281*0
1281*5
12850
12855
12860
12365
12870
12875
12880
12885
12890
12895
12900
12905
12910
12915
12920
12925
12930
12935*WRITE(12
12gl»0*WRITE(12
1291»5*AGGAG.E-0.
12950* i CT-O'- ;
12955*00 5022' .1-1. FAC
12960*WRITE(12,10SO) I.AGTKIST(I)
12965*1 F ((AGTK1ST (I) .GT.O.) .AND. (AGTKIST(I) .LT. 100.)) THEN
12970* ICT-ICT-H
12975*AGGAGE-AGGAGE+AGTK1ST (I)
12980*ENDIF
12983*5022 CONTINUE
12990* AVGAGE-AGGAGE/REAL(I CT)
12995*WRITE (12.1093)'MEAN TIME TO FIRST TANK FAILURE'.AVGAGE
13000*1093 FORMAT(/,A31,1X,F6.1,/)
13005*1090 FORMAT(|1»,3X,F6.1)
13010*1089 FORMAT (A3,3X.A6)
13015 WRITE (12,21113)'AGGREGATE NUMBER OF UNDETECTED RELEASES/YEAR1
13020 WRITE02.21111) 'YEAR1, '# UNDETECTED RELEASES'
13025 DO 2113 III-1,NYEAR-1
13030 WRITE02,21112) 111 ,AGUNDET(I I I)
13035 2113 CONTINUE
1301*0 WRITE(12.21112)NYEAR,AGNYFAL
130U5 21112 FORMAT (I 3,3X, 16)
13050 21111 FORMAT (AU.3X.A21)
13055 21113 FORMAT (A60)
13060 .END
13065 SUBROUTINE ANCILOS(YR)
13070* 'ANCILOS1 CALLS THE ROUTINES THAT ESTIMATE ANY
13075* ANCILLARY EQUIPMENT FAILURES DUE TO LEAKS. RUPTURES OR
13080*OEFICEINCIES. IT ALSO CHECKS WHETHER THE PIPE SECONDARY CONTAINMENT
13085* IS IN THE FAILED STATE. IF IT IS IN A FAILED STATE IT
-------
130=3* SAMPLES THE MONTH Cr FAILURE.
13095 COMMON/LOOPCT/NPI,NTK
13100 INTEGER NPI,NTK
13105 COMMON/IYRNO/IYRNUM
13110 INTEGER IYRNUM
13115 COMMON/PI2Tlrt/DIKTIM(5) . CURT. IM (5) ,PAS?TIM(5) ,PCOPTIM(5) . PL I NT IM (5)
13120 REAL DIKTIM.CURTIM.PASPTIM.PCOPTIM.PLINTIM
13125 LOGICAL PCFAIL
13130 COMMON/SECON/ULVAULT.LVAULT.PIPSEC.VAULT.NOSECON
13135 LOGICAL ULVAULT.LVAULT.PIPSEC,VAULT,NOSECON
13UO COMMON/PLACE/UGPIPE.AGTANK.IGTANK.UGTANK.AGPIPE.AGPUMP
13U5 LOGICAL UGPIPE.AGTANK. I GTANK.UGTANK, AGP I PE , AGPUMP
13150 COMMON/ANC/ANCIL
13155 LOGICAL ANCIL
13160 COMMON/CONT/UGCONT(3) ,AGCONT(3) ,PIPCONT(5) ,NUGCONT(3) ,NAGCONT(3)
13165+,NPICCNT(5)
,NUGCONT,NAGCONT,NPICONT
,COPAO,PLINER
.PLINER
13170 INTEGER UGCONT.AGCONT.PIPCONT,
13175 COMMON/PIPCON/DIKE,CURS,ASPAD,
13180 LOGICAL DIKE,CURB,ASPAO.COPAO,
13185 INTEGER YR
13190 ANCIL-.TRUE.
13195 IF(UGPIPE)THEN
13200* CHECK TO SEE IF THERE ARE ANY ANCILLARY FAILURES IN THAT YEAR.
13205 CALL LEAKRUP(ANCIL,.YR)
13210 ELSE
13215* AC PIPES
13220^ CHECK TO SEE IF THERE ARE ANY ANCILLARY FAILURES IN THAT YEAR.
13225 CALL LEAKRUP(ANCIL.YR)
13230 PCFAIL-.FALSE.
13235 IF(PIPSEC)THEN
132UO* CHECK FOR ANY PIPE CONTAINMENT FAILURES.
1321*5 DO 57913 L-l.NPI
13250 PCFAIL-.FALSE.
13255 IF(NPICONT(L) .EQ.O)THEN
13260 IF(DIKTIM(L).LE.IYRNUM)PCFAIL-.TRUE.
13265 IF(CURTIM(L).LE.IYRNUM)PCFAIL-.TRUE.
13270 IF (PASPTIM(L).LE.IYRNUM)PCFAIL".TRUE.
13275 IF(PCOPTIM(L).LE.IYRNUM)PCFAIL-.TRUE.
13280 IF (PLINER)THEN
13285 IF (PL I NT IM (L) . LE. IYRNUM) THEN
13290 IF((DIKE.OR.CURB.OR.ASPAD.OR.COPAD).ANO.PCrAIL)THEN
13295 PCFAIL-.TRUE.
13300 ELSEIF(.NOT.(DIKE.OR.CURB.OR.ASPAD.OR.COPAO))THEN
13305 PCFAIL-.TRUE.
13310 ELSE
13315 PCFAIL-.FALSE.
13320 END IF
13325 ELSE
13330 PCFAIL-.FALSE.
13335 ENDIF
ENDIF
IF(PCFAIL)CALL FT I ME (PIPCONT(L))
13350 ENDIF
13355 57913 CONTINUE
13360 ENDIF
13365 ENDIF
13370 ANCIL-.FALSE.
-------
13375 RETURN
13380 END
13385 REAL FUNCTION FNB (P)
13390* THIS FUNCTION SAMPLES
A BINOMIAL DISTRIBUTION
13395
13*00
13*05
13*10
13*20
13*25
13*30
13*35
13**0
13**5
131*50*
13*55
13*60
13*65
13*70
13*75
13480*
COMMON/AX/iY
REAL P
X-0
R-RAN(IY)
IF(R-P)5,5.10
5 X-X+1
10 CONTINUE
FN9-X
RETURN
END
SUBROUTINE FTIME(FCOMP)
THIS SUBROUTINE RETURNS
A MONTH OF FA I LURE (1
12)
INTEGER FCOMP
FCOMP-I NT (FNU(0., 11.99))+!
RETURN
ENO
SUBROUTINE LEAKRUP (ANCIL.YR)
THIS ROUTINE CALLS THE ROUTINES
THAT CHECK FOR COMPONENT
,PICATH,CONCRT
,CONCRT •
13*85* RUPTURE.LEAK OR DEFICIENCY.
13*90 COMMON/TANKMAT/CSTEEL.SSTEEL.FRP.CATSTEL,
13*95 LOGICAL CSTEEL.SSTEEL.FRP.CATSTEL.PICATH,,
13500 COMKON/CONCTM/CONCTIM(3)
13505 REAL CONCTJM
13510 COMMON/THICKNS/PIPEI (5),PUMP I(5),GASKI(5)
13515 COMMON/EXTHICK/PIPEE(5) ,PUMPE(5) ,GASKE(5) .PIPE2E(5),PIPE2I (5)
13520 REAL-PIPE I,PUMP I,CASK I,PDI AM
13525 REAL- PIJ»EE,PUMPE.GASKE,PIPE2E,PIPE2I
13530 COMMON/PIPELK/INTLK(5) .PI PAGE (5) ,NUMLK(5) ,PRAN(5)
13535 INTEGER INTLK.NUMLK.PIPAGE
1351«0 REAL PRAN
135*5 COMMCN/LOOPCT/NPI.NTK
13550 INTEGER NPI.NTK
13555 COMMON/IYRNO/IYRNUM
13560 COMMON/PIPETIM/PIPDEF(5).WLDOEF(5) ,GSKOEF(5) ,PIPLK(5) ,
13565+GSKLK (5) , RUPPIP (5)
13570 COMMON/TANKTIM/TNKDEF(3) .TNKLK (3) ,RUPTNK(3)
COMMON/SURFTIM/LOOSE.HCS?ORT,PMPLK(5),RUPWLD(5),VENT
COMMON/SUFTIM/HOSPERM.ORANPMP(5)
13575
13580
13585
13590
13595
13600
13605
13610
13615
13620
13625
13630
INTEGER PIPOEF.WLODEF.GSKDEF.PIPLK.GSKLK.RUPPIP
INTEGER TNKOEF,TNKLK,RUPTNK
INTEGER LOOSE.HOSPORT,PMPLK.RUPWLD,VENT
INTEGER HOSPERM.DRANPMP
COKMON/RUPPROB/TNKRUP2(2).TNKRUP(2) ,WLDRUP(2) .PIPRUP(2) .PORTHOS(2)
COMMON/RUPPR1/PERMHOS(2).PMPDRAN(2)
REAL PERAHOS.PMPDRAN
REAL TNKRUP2,TNKRUP,WLDRUP,PIPRUP,PORTHOS
REAL TRUP.TRUP2.WRUP.PRUP.PRUP2
13635 "LOGICAL ANCfL
136*0 COMMON/F101TYP/FILLING,01SCHRG
136*5 INTEGER FILL ING,01SCHRG
13650 COMMON/PUMPTYP/PORTFP.PORTDP
13655 LOGICAL PORTFP.PORTDP
- E*3 -
-------
13660 INTEGER IYRNUM.YR
1 3665 COMMON/PLACE/UG? I PE , AGTANK, I GTANK. UGTANK . A3?I?£. AGP'JMP
13670 LOGICAL UGPIPE.AGTANK, IGTANK.'JGTANK.AGPIPE.AGPUMP
13675 COMMON/C3NNECT/WELDFLG,GASKET
13630 LOGICAL WELDFLG,GASKET
13685 COMMON/DEFFLAG/DLTNK(3) ,OOTNK(3) ,DRTNK(3) ,DLGSK(5) .DOGSK(5) ,
13690+OOWLO(5) ,DRWLD(5) .OLPIP(S) ,ORPIP(5) ,OOPIP(5) .OL?MP(5) .DALL
13695 LOGICAL OLTNK.DDTNK.DRTNK.DLGSK.DOGSK.ODWLD.DRWLD.DLPIP.DRPIP.
13700+DGPIP.OLPMP.DALL
13705 COMMON/VAPPRB/VAPSENS.VSENSOR
13710 REAL VAPSENS,VSENSOR
13715 INTEGER FALNUM.FALNUM1 ,FALNUM3,FALNUMl4,FALNUM7
13720 COMMON/FALNUM/FALNUM.FALNUM1 (100).FALNUM2 (100),FALNUM3(100),
13725-r FALNUMU(IOO) ,FALNUM5 (100) , FALNUM7 (100)
13730 COMMON/FALNUM6/FALNUM6(100)
13735 CHARACTER FALNim6*2
1371iO REAL FALNUM2.FALNUM5
137U5 COMMON/I THICK/I PIPE(5) . 1 PUMP (5) ,ITANK(3) .(CASK (5) ,ITANK2(3)
13750 REAL IPIPE.IPU«P,ITANK,IGASK.ITANK2
13755 COMKON/EXTHI/TANKE(3) .TANK2E(3)
13760 REAL TANKE.TANK2E
13765 CO«nON/THICK/TANKI (3).TANK2I (3)
13770 REAL TANKI.TANK2I
13775 COrtnON/ALARM/INTERST(5.2),INTER,PI INTER(5.2).PINTER
13780 REAL INTERST.INTER.PIINTER,PINTER
13785 COMMON/WALL/TK2WALL.PI2WALL
13790 LOGICAL TK2WALL.PI2WALL
13795 COMMON/MONIT/MONrtETH(7),PIPMON
13800 LOG I CAL.MONttETH.plPMON
13805 COMMON/&OUNT/NPIPOEF(5) .NWLDDEF (5) ,NGSKDEF(5) ,NPIPLK(5) ,NGSKLK(5) .
138lO+NRUPPIP(5) ,NPMPLK(5) ,NRUPWLD(5) ,NTNKLK(3) .NTNKOEF (3) ,NRUPTNK(3)
13815 REAL NPIPOEF.NWLOOEF.NGSKOEF.NPIPLK.NGSKLK.NRUPPIP.NPMPLK.NRUPWLD.
13820* NTNKLK.NTNKDEF.NRUPTNK
13825 LOGICAL PIREPAR.TKREPAR.PMREPAR
13830 COMMON/PITRE/PIREPAR(5) .TKREPAR (3) ,PMREPAR(5)
13835 LOGICAL WALL2.TKFAIL
138UO LOGICAL PWALL2.PIFAIL
138^5 INTEGER RUPTNK2.RUPPIP2
13850 WALL2-.FALSE.
13855 TKFAIL-.FALSE.
13860 IF (.NOT.ANClDTHEN
13865 DO 281 L-l.NPI
13870 IF(IYRNUM.EQ.1)THEN
13875*1N YEAR 1, CALL ROUTINE THAT SAMPLES FOR INSTALL OEFICEI NCIES.
13880 CALL DEFICNT(L,YR,1)
13885 CALL DEFICNT(L,YR,2)
13890 CALL OEFICNTU.YR.M
13895 CALL DEFICNT(L,YR,5)
13900 DALL-.FALSE.
13905 END IF
13910 IF(lYRNUM.NE.I)THEN
13915*' WHEN A COMPONENT IS REPLACED, CALL ROUTINE THAT SAMPLES
13920* FOR INSTALLATION DEFICEINCIES.
13925 IF(DALL)THEN
13930 CALL OEFICNT(L,YR,1)
13935 CALL DEFICNT(L.YR,2)
13940 CALL DEF1CNT(L,YR,4)
-------
1391*5 CALL DEFICN7(L.YR,5)
13=50 ENOIF
139S5 IF(D3PIP(L))THEN
13560 CALL DEFICNT(L.YR.I)
13965 DRPIP(L)-.FALSE.
13970 ENOIF
13575 IF(DL?IP(L))TH£N
13950 CALL DEFICNT(L.YR.I)
13?55 DLPIP(L)-.FALSE.
13950 END IF
13995 IF (OOPIP (D)THEN
14C30 CALL DEFICNT(L,YR, 1)
14C05 DDPIP(L)-.FALSE.
140'0 ENOIF
14015 IF(DOGSK(L))THEN
14020 CALL DEFICNT(L,YR,5)
14025 DDGS.K(L)-. FALSE.
U050 ENOIF
14035 IF(OLGSK(L))THEN
14040 CALL OEFICNT(L.YR.5)
14045 OLGSK(L)».FALSE.
14050 ENDIF
,li»055 1F(ORWLO(L))THEN
14060 CALL DEFICNT(L,YR,1«)
U065 ORWLD(L)-.FALSE.
U070 ENOIF
U075 IF(DDWLD(L))THEN
U080 CALL OEFICNT(L,YR,M
U085 % 90WLD(L)-.FALSE. '
14090 ENOLF
14095 IF(OLPMP(L))THEN
14100 CALL OEFICNT(L,YR,2)
14105 DLPMP(L)-.FALSE.
14110 ENOIF
14115 ENDIF
14120 231 CONTINUE
14125 DO 2310 L-l.NTK
14130 IF(lYRNUn.EQ.l)THEN
14135 CALL OEFICNT(L,YR,3)
14140 DALL-.FALSE.
14145 ENOIF
14150 IF(lYRNUM.NE.l)THEN
14155 IF(DALL)TH£N
14160 CALL DEFICNT(L,YR,3)
14165 OALL-.FALSE.
14170 ENDIF
14175 IF(OOTNK(L))THEN
14180 CALL OEFICNT(L,YR,3)
14185 ODTNK(L)-. FALSE.
14190 ENDIF
14195 IF(DRTNK(L))THEN
14200- CALL DEFICNTU.YR.3)
14205 ORTNK(L)-. FALSE.
14210 ENOIF
14215 IF(DLTNK(L))THEN
14220 CALL DEFICNT(L.YR,3)
14225 DLTNK(L)-.FALSE.
• E50 -
-------
14230 END IF
14235 ENDIF
14240* SAMPLE FOR RUPTURE FAILURES.
14245 IF (CONCRT)THEN
14250 IF (CONCTIM(L) .LE . I YRNU,M.) THEN
U255 CALL FTIME(RUPTNK(L))
14260 ENDIF
11*265 ENDIF
14270 IF (,NOT.CCNCRT)THEN
14275 IF{.NOT.TK2WALL)THEN
14280 TRUP-RUPTURE(3.IYRNUM)
14285 IF (TRUP.EQ.I)THEN
14290 CALL FTIM£(RU?TNK(L))
14295 END IF
14300 ENOIF
14305 IF (TK2WALL)THEN
U31C* ASSUME 50 REDUCTION IN PROB. OF INNER WALL FAILING
U315 TRUP-RUPTURE (3, IYRNUM) *FNB (-50)
14320 IF (TRUP.EQ.I)THEN
U325 CALL FTIME(RUPTNK(L))
U330 TKFAIL-.TRUE.
14335 IF (NRUPTNK(L) .EQ.O)THEN
U3UO* INTERSTITIAL MONITORING
1U3U5 IF (MONMETH(2)) THEN
14350 INTERST (L. 2) -FNB (INTERST (L.D)
14355 IF (INTERST (L,2).EQ.O) THEN
14360 CALL RE?LAC(3,D
14365 VAPSENS-VSENSOR
14370 '• • FALNUM-FALNUM^I
14375 ' '' FALNUM1 (FALNUM)-2030+L
14380 FALNUM? (FALNUM)•(YR-1)*12+RUPTNK(L)
14385 FALNUM2(FALNUM)-1.
143SO FALNUM3 (FALNUM) -((YR-1) *12) *RUPTNK (L)
14395 FALNUM4 (FALNUM)-2
14400 FALNUM6 (FALNUM)-1IS'
14405 TANKI (L)-ITANK(L)
14410 TANKE(L)"ITANK(L)
14415 TANK2I (L)-ITANK(L)
14420 TANK2£(L)-ITANK(L)
14425 WALL2-.FALSE.
14430 TKFAIL-.FALSE.
14435 TKREPAR(L)-.TRUE.
14440 NRUPTNK(1)-0
14445 RUPTNK(L)«0
14450 RUPTNK2-0
14455 ELSE
14460 INTERST(L,1)-1.0
14465 ENOIF
14470 ENDIF
14475 ENOIF
14480. ENOIF
14485 TRUP2-RUPTURE(3,IYRNUM)
U490 IF(TRUP.EQ.1)TRUP2-1
14495 1F(TRUP2.EQ.1)THEN
14500 WALL2-.TRUE.
14505 CALL FTIME(RUPTNK2)
14510 IF(TRUP.EQ.1)GO TO 11961
- E51 -
-------
1*515 I? (NRUPTNK(L) .£Q.O)TK£N
11*520* INTERSTITIAL MONITORING . .
1*52? IF (MONKETH(2)) THEN
U530 INTERST(L.2)-FNB{INT£RS7(L.l))
1*535 IF(INTERST(L.2) .EQ.O) THEN
1*5*0 CALL REPLAC(3,D
U«5*5 VAPSENS-VSENSOR
1*550 FALNUM-FALNUM+1
1*555 FALNUK1 (FALNUM)-2030+L
1*560 FALNUM7(FALNUM)«(YR-1)*12+RL'PTNK2
1*565 FALNUM2(FALNUM)-1.
1*570 FALNUM3(FALNUM)«((YR-l)*12)-rRUPTNK2
1*575 FALNUM*(FALNUM)«2
1*530 FALNUrt6(FALNUM)-' IS1
11*585 TANKI (L)-ITANK(L)
11*590 TANKE(L)-ITANK(L)
1*595 TANK2I (L)-ITANK(L)
1*600 TANK2E(L)-ITANK(L)
U605 WALL2-. FALSE.
U610 TKFAIL-. FALSE.
11*615 TKREPAR(L)".TRUE.
1*620 NRUPTNK(L)-0
1*625 RUPTNK(L)-0
1*630 RUPTNK2-0
1*635 ELSE
1*6*0 INTERST(L, 0-1.0
1*6*5 ENOIF
1*650 END IF
1*655 END IF
1*660 1196.1' CONTINUE
1*665 END IF
1*670 ENOIF
1*675 IF(WALL2.AND.TKFAIL.AND. (NRUPTNK(L).EQ.O))THEN
1*630 IF(RUPTNK(L).LE.RUPTNK2.AND. (RUPTNK2.NE.O)) THEN
1*635 RUPTNK (L)-RUPTNK2
1*690 ELSE
1*695 RUPTNK (L)"0
1*700 ENOIF
1*705 ENDIF
1*710 ENOIF
1*715 2810 CONTINUE
1*720 ENDIF
1*725 IF(ANCIL)THEN
1*730 DO 501 L-1.NPI
1*735 IF(WELDFLG)THEN
1*7*0 WRUP-RUPTURE(*,IYRNUtt)
1*7*5 I.F(WRUP.EQ.1)THEN
1*750 CALL FTIME(RUPWLO(D)
1*755 ENDIF
1*760 ENOIF
1*765 IF(.NOT.PI2WALL)THEN
1*770 . PRUP-RUPTURE(1.1YRNUM)
1*775 JF(PRUP.EQ.1)THEN
1*780 CALL FTIME(RUPPIP(L))
1*785 ENOIF
1*790 ENOIF
1*795 IF(PI2WALL)THEN
- £52 -
-------
14SOO PWALL2-.FALSE.
11.805 PIFAIL-. FALSE.
U810 RUPPIP(L)«0
1-315 RUPPIP2-0
14820* ASSUME 50 REDUCTION IN PROS. OF INNER WALL -FAILING
14325 PRUP-RUPTURE (I.IYRNUM) *FN3 (.50)
U830 IF(PRUP.£Q.1)THEN
U835 CALL FTIME(RUPPIP(L))
14840 PlrAIL-.TRUE.
14845 IF(NRUPPIPU) .EQ.O)TH£N
14850* INTERSTITIAL MONITORING
14855 IF (MONMETH(7)) THEN
14860 PI INTER (L,2)-FNB(PIINTER(L.I))
14865 IF (PI INTER (L.2).EQ.O) THEN
14870 CALL REPLACO.L)
14875 FALNUM-FALNUM-H
14880 FALNUM1 (FALNUM)"2010+L
14835 FALNUM7(FALNUM)-(YR-1)*12+RUPPIP(L)
14890 FALNUM2(FALNUM)-1.
14895 F ALNUM3 (F ALNUM) - ((YR-1) * 12) +RUPP I P (L)
14900 FALNUM4(FALNUM)-2
14905 FALNUM6(FALNUM)-'IS1
14910 PIPEI (L)-IPIP£{L)
14915 PIPEE(L)-IPIPE(L)
14920 PIPE2I (D-IPIPE (L)
14925 PIPE2E(L)-IPIPE{L)
14930 INTLK(L)-0
14935 PIPAGE(L)-0
14940 NUMLK(L)"0
14945 ' PRAN(L)-rNU(0.,2.)
14950 -. PWALL2". FALSE.
14955 • .PIFAIL-.FALSE.
14960 PIREPAR(L)-.TRUE.
14965 NRUPPIP(L)-0
14970 RUPPIP(L)»0
14975 RUPPIP2-0
14980 ELSE
14985 - PI INTER (L.l)-l.O
14990 END IF
14995 END IF
15000 ENDIF
15005 END IF
15010 PRUP2«RUPTURE(1,IYRNUM)
15015 IF(PRUP.EQ.1)PRUP2-1
15020 IF(PRUP2.EQ.1)THEN
15025 PWALL2-.TRUE.
15030 CALL FTIME(RUPPIP2)
15035 IF(PRUP.£Q.1)GO TO 2196'
15040 IF(NRUPPIP(L) .EQ.O)THEN
15045* INTERSTITIAL MONITORING
15050 IF(MONMETH(7)) THEN
15055 PI INTER (L,2)-FNB (PI INTER (L.D)
15060 IF (PI INTER(L,2).EQ.O) THEN
15065 CALL REPLAC(l.L)
15070 FALNUM-FALNUM+1
15075 FALNUM1 (FALNUM)-2010+L
15080 FALNUM? (FALNUM)•(YR-1)*12+RUPPIP2
- E53 •
-------
15085 FALNUM2CFALNUM)-'.
15090 FAINUM3 (FALSUM) -( {YR-1) *12) -SJPP IP2
15095 FALNUM«(rALNU*)-2
151CO FALNUMS(FALNUM)-1 IS'
15105 PIPEI (L)-IPIPE(L)
15110 PIPEE(L)«IPIP£ (L)
15115 PIPE2I (L>«?'PE(L)
15120 PIP-IE (!.}»'PIPE (L)
15125 INTLK(L)-0
15130 P!PAGE(L)-0
15135 NUMLK(L)«0
15UO PRAN(L)-FNU(0.,2.)
15U5 PWALL2-. FALSE.
15150 PIFAIL-.FALSE.
15155 PIREPAR(L)-.TRUS.
15160 NRUPPIP(L)-0
15165 RUPPIP(L)«0
15170 RUPPIP2-0
15175 ELSE
15180 . PI INTER(L,1)-1.0
15185 ENOIF
15190 ENOIF
15195 ENDIF
15200 21961 CONTINUE
15205 ENDIF
15210 IF(PWALL2.AND.PIFAIL.AND. (NRUPPIP(L).EQ.O))THEN
15215 IF(RUPPIP(L).LE.RUPPIP2.ANO. (RUPPIP2.NE.0) )THEN
15220 RUPPIP(L)-RUPPIP2
15225 ENDIF
15230 ELSE''
15235 RUPPIP(L)-0
152UO RUPPIP2-0
152U5 ENDIF
15250 ENOIF
15255 IF(AGPUMP)THEN
15260 PMPDRAN(2)-FNB(PHPDRAN(1))
15265 IF (PMPDRAN(2) .EQ.DTHEN
15270 CALL FTIME(DRANP«P(L))
15275 ENDIF
15280 ENDIF
15285 501 CONTINUE
15290 IF((FILLING.EQ.l).OR.PORTFP.OR.PORTDP.OR.(DISCHRG.EQ.1) )THEN
15295 PORTHOS(2)-FNB(PORTHOS(1))
15300 IF (PORTHOS (2).EQ.l)THEN
15305 CALL FTIME(HCSPORT)
15310 ENDIF
15315 ENOIF
15320 ENOIF
15325*
15330* CALL ROUTINE THAT CHECKS FOR CORROSION LEAKS.
15335 CALL INADSTR(ANCIL.YR)
153*»0* RETURN
153^5 END
15350 SUBROUTINE OEFICNT (LOC.YR.COMP)
15355* THIS ROUTINE SAMPLES FOR ANY INSTALLATION OEFICE I NCIES.
15360 COMMON/PIPELK/INTLK(5) .PIPAGE (5) ,NUMLK(5) ,PRAN(5)
15365 INTEGER INTLK.NUMLK.PIPAGE
-------
15370 REAL PRAN
1 = 375 COMMON/THICKNS/PIPEI (5) .PUMP I (5) .CASK I (55
15380 COr.rtON/EXTH I CK/PI PEE (5) . PU.MPE (5) . 5ASKE (5) . P I ?E2£ ;3)'. PI ?E2 ! (5)
15385 REAL PIPEI.PUMP!,GASKi.PDlAtt
15350 REAL PIPEE,PUMPS,GASKE,Pl?E2E.?iPr2l
15395 COMMON/PIFRP/PFRP
15400 LOGICAL PFR?
15405 INTEGER LOG
15410 COMMON/IYRNC/IYRNUM
15415 COMMON/VAPPRS/VAPSENS.VSENSCR
15420 REAL VAPSENS.VSENSOR
15425* '
15430 COMMON/PI PET IM/PIPDEF(5) .WLDDEF (5).GSKDE?(5) ,PIPLK(5) ,
15435-cGSKLK(5) ,RUPPIP(5)
15440 COMMON/TANKTIM/TNKDEF(3) ,TNKLK(3),RUPTNK(3)
15445
15450 INTEGER PIPDEF,VLDOEF,GSKOEF,PIPLK,GSKLK,RUPPI?
15455 INTEGER TNKDEF.TNKLK.RUPTNK
15460 COMMON/DEFPROB/LIFDEFU.7) ,GSK!NC(2)
15465 REAL LIFOEF.GSKINC
15470 COMMON/CONNECT/WELDFLG,GASKET
15^75 LOGICAL WELOFLG,GASKET
15480 COMMON/FIDITYP/FILLING.DISCHRG
15485 INTEGER FILLING,OISCHRG
154SC COMMON/PUMPTYP/POR7FP.PORTDP
15495 LOGICAL PORTFP.PORTDP
15500 INTEGER COttP
15505 COMMON/TANKMAT/CSTEEL,SSTEEL,FRP,CATSTEL,PICATH,CONCRT
15510 LOGICAL CSTEEL,SSTEEL.FRP,CATSTEL.PICATH.CONCRT
15515 INTEGER FALNUM,FALNUM1,FALNUM3.FALNUM4,FALNUM7
13520 COMMON'/FALNUM/FALNUM.FALNUMI (100) ,FALNUM2(ioo) ,FALNU«3(ioo),
15525* FALNUM4(100).FALNUM5(100),FALNUM7(100)
15530 COMMON/FALNUM6/FALNUM6000)
15535 CHARACTER FALNUM6*2
15540 REAL FALNUM2.FALNUM5
155-5 CO«MON/ITHICK/IPIPE(5) . I PUMP (5) ,ITANK(3) . I CASK (5) ,ITANK2(3)
1=550 INTEGER IYRNUM.YR
15555 REAL IPIPE,IPUMP,ITANK.IGASK,ITANK2
15560 COMMON/EXTHI/TANKE(3) .TANK2E(3)
15565 REAL TANKE,TANK2E
15570 COMMON/THICK/TANK I (3).TANK2I (3)
15575 REAL TANKI.TANK2I
15580 COMMON/ALARM/1NTERST(5.2),INTER,P!INTER(5,2) ,PINTER
15585 REAL I NTERST, I NTER, PUNTER. PI NTER
15590 COMMON/WALL/TK2WALL.PI2WALL
15595 LOGICAL TK2WALL.PI2WALL
15600 COMMON/MONIT/MONMETH(7) ,PIPMON
15605 LOGICAL MONMETH.PIPMON
15610 CO«MON/COUNT/NPIPOEF(5),NWLOOEF(5) .NGSKOEF (5) ,NPIPLK(5) ,NGSKLK(5) ,
15615-H4RUPPIP(5) ,NPMPLK(5) .NRUPWLD(5) ,NTNKLK(3) .NTNKOEF (3) ,NRUPTNK(3)
15620 REAL NPIPDEF,NWLOOEF,NGSKOEF,NPIPLK,NGSKLK,NRUPPlP,NPnPLK,NRUPWLO,
15625* NTNKLK,NTNKOEF,NRUPTNK
15630 LOGICAL PIREPAR.TKREPAR.PHREPAR
15635 COMMON/PITRE/PIREPARC5) .TKREPAR(3).PNREPAR(5)
15640 INTEGER TNKDEF2.PIPOEF2
15645 LOGICAL WALL2.TKFAIL
15650 LOGICAL PWALL2.PIFAIL
- E55 -
-------
15655 IF (COMP.EQ.l)THE.N
156=0 PIPDEF (LOC)»0
15665 PIPCEF2«0
15670 IF (.NOT.PI2WALDTHEN
1=675 IF(.NOT. ((PORTDP.AND. (LOC.EQ.2)) .OR.PCRTFP))THEN
15&30* PIPE
15685 IF(.NOT.PFRP)THEN
156SO LIFDEF (2,5)-FNB(LIFDEF(l,5))
15695 ELSE
157CO LIFDEF(2,5)-FN8(LIFDEF(1.5)*2.)
15705 ENOIF
15710 IF (LiFOEF(2.5) .EQ.DTHEN
15715 LIFOEF(2,3)»FN8(LIFDEF(1.3))
15720 iFdiFOEF(2,3) .EQ.DTHEN
15725 CALL REPLACO.LOC)
15730 ELSE
15735 CALL FTIME(PIPDEF(LOO)
157UO ENDIF .
157U5 ENDIF
15750 ENOIF
15755 ENDIF
15760 IF (PI2WALDTHEN
15765 IF(PFRP)THEN
15770 LIFDEF (2.5)-FNB(LIFOEF (1,5)*2.)
15775 ELSE
15780 LIFDEF (2,5)-FNB(LIFDEF(1,5))
15785 ENDIF
15790 If (LIFDEF (2,5) .EQ.DTHEN
15795 ' CALL FTIME(PIPOEF(LOO)
15800 PIFAIL-I'TRUE.
15805 IF (NPIPOEF(LOC) .EQ.O)THEN
15810* INTERSTITIAL MONITORING
15815 I F (MONMETH (7)) THEN
15320 PI INTER(LOC.2)»FNB(PI INTER (LOC, 1))
15825 IF (P.I INTER(LOC,2) .EQ.O) THEN
15830 CALL R£?LAC(1,LOC)
15835 ' FALNUK-FALNUM+1
1581*0 FALNUM1 (FALNUM)»1010+LOC
158*45 FALNUM7(FALNUM)-(YR-l)*12-t-PIPDEF (LOC)
15850 FALNUM2(FALNUM)-1.
15855 FALNUM3(FALNUM)-((YR-1)*12)+PIPDEF(LOC)
15860 FALNU«U(FALNUM)-2
15865 FALNUM6(FAINUM)-'IS'
15870 PIPE I (LOC)-I PIPE(LOC)
15875 PIPEE(LOC)-IPIPE(LOC)
15880 PIPE2I (LOC)-I PIPE(LOC)
15885 PIPE2E(LOC)-IPIPE(LOC)
15890 (NTLK(LOC)-O
15895 PI PAGE (LOC)-0
15900 NUMLK(LOC)-0
15905 . PRAN(LOC)-FNU(0.,2.)
15910 PWALL2-.FALSE.
15915 PIFAJL-.FALSE.
15920 PIREPAR(LOC)-.TRUE.
15925 NPIPDEF(LOC)"0
15930 PIPDEF(LOC)-0
15935 PIPDEF2-0
- E56 -
-------
55-0 ELS;
59-5 ?MNT£R(LOC.1)-1.0
5950 ESCIF
5955 ENDIF
5360 ENDIF
5965 ENDIF
15970 IF(PFRP)THEN
15975 L1FDEF (2.5)"FNB(LIFOEF (1,5)*2.)
159SO ELSE
15985 LIFDEF(2.5)»FNB(LIFDEF(1,5))
15990 ENDIF
15995 iF(LiFDEF(2,5) .EQ.DTHEN
16000 LIFOEr (2,3)-FN3(LIFDEF(l,3))
16005 iF(L!FOEF(2,3) .EQ.DTHEN
16010 CALL REPLAC(l.LOC)
16015 PIFAIL-.FALSE.
16020 PWALL2-.FALSE.
16025 ELSE
16030 . PWALL2-.TRUE.
16035 CALL FTIME(PIPDEF2)
16040 IF (NPIPDEF (LOO .EQ.O)THEN
16045* INTERSTITIAL MONITORING
16050 IF(MONMETH (7)) THEN
16055 PI INTER (LOC,2)-FNB (PI INTER (LOC,1))
16060 IF (PI INTERUOC.2) .EQ.O) THEN
16065 CALL REPLAC(l.LOC)
16070 FALNUM»FALNU*+1 -
16075 FALNUM1 (FALNU«)-1010+LOC
16080 FALNUM7(FALNU«)-(YR-1)#12+PIPDE?2
16085 - FALNUM2(FALNUrt)"l.
16090 • i. FALNUM3(FALNUM)-((YR-l)*12)-t-?IPDEF2
16095 FALNUM4(FALNUM)-2
16100 FALNUM6(FALNUM)-'IS'
16105 PIPEI (LOC)-IPIPE(LOC)
16HO PIP£E(LOC)-IPIP£(LOC)
16115 PIPE2I (LOC)-IPIPE(LOC)
16120 PIPE2E(LOC)-IPIPE(LOC)
16125 INTLK(LOC)»0
16130 PIPAGE (LOC)-O
16135 NUrtLK(LQC)-0
16140 PRAN(LOC)-FNU(0..2.)
16145 PWALL2-.FALSE.
16150 PIFAIL-.FALSE.
16155 PIREPAR(LOC)-.TRUE.
16160 NPIPDEF(LOC)-0
16165 PIPOEF(LOC)-0
16170 PIPDEF2-0
16175 ELSE
16180 PIINTER(LOC.1)-1.0
16185 ENDIF
16190 ENOIF
16195 ENOIF
16200- ENOIF
16205 ENOIF
16210 IF(PWALL2.ANO.PIFAIL.ANO. (NPIPDEF(LOC).EQ.O))THEN
16215 IF(PIPDEF(LOC).LE.PIPOEF2.ANO.(PIPOEF2.NE.O))THEN
16220 PIPDEF(LOC)-PIPOEF2
- E57 •
-------
16::= ESDI?
Ic220 ELSE
16235 PIPDEF (LOC)-O
16240 ENDIr
16245 ENDIF
16250 ENCIF
16255 IF (COMP.EQ.4)THEN
16260 IF (WELOFLG)THEN
16265 LIFOEF (2,5)-FNB(LIFDEF(1.5)*2.)
16270 IF(LIFDEF (2,5) .EQ.DTHEN
16275 LIFOEF(2.3)-FNB(LIFDEF(1.3))
16280 IF (LIFDEF (2.3) .EQ.DTHEN
16285 ELSE
16290 CALL FTlMEtWLOOE?(LCC))
16295 ENDIF
16300 ENOIF
16305 ENOIF
16310 ENOIF
16315 IF(COMP.EQ.5)THEN
16320 IF (GASKET)THEN
16325 LIFDEF(2,5)-FNB(LIFDEF(1.5)*1.5)
16330 IF(LIFDEF(2.5) .EQ.DTHEN
16335 LIFOEF (2.3)-FMB(LIFDEF (1.3))
16340 IF (LIFOEF (2.3) .EQ.DTHEN
163I«5 ELSE
16350 CALL FTIME(CSKDEF(LOO)
16355 ENDIF
16360 ENOIF
16365 ENQfF;
16370 ENOIF '
16375 IF(COMP.EQ.3)THEN
16380* TANK
16385 TNKDEF(LOC)-0
16390 TNKDEF2-0
16395 IF (.NOT.TK2WALL)THEN
16400 lr(FRP)THEN
16505 LIFOEF (2,5)-FNB(LIFOEF (1.5)**».)
16410 ELSE
16415 LIFDEF(2,5)-FNB(LIFDEF (1.5)*3-)
16420 ENOIF
16425 IF (LIFOEF (2,5) .EQ.DTHEN
16430 LIFDEF(2.3)-FNB(LIFDEF(1,3))
16435 IF (LIFOEF (2,3) .EQ.DTHEN
16440 CALL REPLACED
16445 VAPSENS-VSENSOR
16450 ELSE
16455 CALL FTIME(TNKDEF(LOO)
16460 ENOIF
16465 END IF
16470 END IF
16475. IF (TK2WALL)THEN
16480 IF(FRP)THEN
16485 LIFOEF (2,5)-FNB(LIFOEF(1.5)*4.)
16490 ELSE
16495 LIFDEF(2.5)-FNB(LIFDEF(1,5)*3.)
16500 ENOIF
16505 IF(LIFDEF(2.5).EQ.1)THEN
- £58 -
-------
165-0 CALL F7^.E(TNKC£F (LOCJ)
16515 7KFAIL-.7RUE.
16520 IF (NTNKDE? (LOO .EQ.O)TH£,N
16525='- IN7-P.S7ITIAL MONITORING
16530 IF (MONM£7H(2)) THEN
16535 IN7ERS7(L3C.2)-FN3(IN7£RS7(LOC, 1))
165-0 IF(INTERST(LOC,2) .EQ.O) THEN
165*5 CALL REPLAC(3.1)
16550 VAPSEMS-VSENSOR
16555 FALNUM-FALNUM+1
16560 FALNUrtl (FALNUrt)-1030+LCC
16565 FALNUrt7(FALNUM)»(YR-l)*12+7NKDEF (LOC)
16570 FALNUrt2(FALNUrt)-l.
16575 FALNU«3(FALNUM)-((YR-1)*12)+7NKOEF(LOC)
16530 FALNUK4(FALNUrt)-2
16585 FALNUM6(FALNUM)-' IS1
16590 7ANKI (LOC)-1 TANK (LOC)
16595 TANKE(LOC)-ITANK(LOC)
16600 TANK2I (LOC)-ITANK(LOC)
16605 7ANK2E(LOC)-I7ANK(LOC)
16610 WALL2-.FALSE.
16615 7KFAIL-.FALSE.
16620 7KREPAR(LOC)-.7RUE.
16625 N7NKDEF(LOC)-0
16630 TNKDEr (LOC)-p.
16535 TNKOEF2-0
16640 ELSE
I66i»5 INTERST(LOC,1)-1.0
16650 END IF
16655 ENOIF
16660 ENCMF-
16665 END IF"
16670 IF(FRP)THEN
16675 LIFOEF(2,5)-FNB(LIFDEF (l,5)*i.)
16630 ELSE
16635- LIFDEF (2,5)»FNB(LIFDEF(1,5)*3.)
16690 ENOIF
16695 iF(LiFDEF(2,5) .EQ.DTHEN
16700 LIFDEF (2,3)»FNB(LIFOEF(1,3))
16705 IF(LIFDEF(2.3) .EQ.D7HEN
16710 CALL REPLAC(3,D
16715 VAPSENS-VSENSOR
16720 7KFAIL-.FALSE.
16725 WALL2-.FALSE.
16730 ELSE
16735 WALL2-.TRUE.
167^0 CALL F7I«E(7NKOEF2)
167^5 IF(N7NKO£F(LOC) .EQ.O)7HEN
16750* IN7ERSTITIAL MONITORING
16755 IF(MONMETH(2)) THEN
16760 INTERS7(LOC,2)"FNB(INT£RST(LOC,1))
16765 IF(INTERST(LOC,2).EQ.O) THEN
16770 CALL REPLAC(3,1)
16775 VA?SENS»VSENSOR
16780 FALNUM«FALNUW+1
16785 FALNUM1 (FALNUM)-103CHLOC
16790 FALNUM7(FALNUM)-(YR-1J*12-»-TNKDEF2
-------
16795 FALNim2(F'ALNUK)»l.
168CO FALNUM3(FALNUM)-((YR-l)ftl2)+TNKCEF2
16805 FALNUMMFALNUM)-2
16810 FALNUM6(FALNUM)-' IS1
16S15 TANKI (LOC)-ITANK(LOC)
163:0 TANKS (LOO-ITANK (LOG)
IsSo TANK2I (LOC)-ITANK(LCC)
16S30 TANK2E(LOO-ITANK(LOC)
16335 WALL2-.FALSE.
I63i»0 TKFAIL-. FALSE.
168^5 TKREPAR (LOO-.TRUE.
16550 NTNKDEF (LOO-0
16855 TNKDEF (LOO-0
16860 TNKDEF2-0
16365 ELSE
16370 INTERS? {LOG. 0-1.0
16875 ENDIF
16330 END IF
16885 ENOIF
168=0 ENDIF
16395 ENOIF
16900 IF(WALL2.ANO.TKFAIL.AND.(NTNKDEF(LOG).EQ.O))THEN
16905 IF (TNKDEF (LOO.LE.TNKDEF2) THEN
16910 TNKDEF (LOG)-TNKDEr2
16915 ELSE
16920* VISUAL INSPECTION OF WALL2
16925 TNKDEF (LOO-0
16930 ENOIF
16935 END IF-. .
169<*0 • .'. ENOIF
169^*5 ENDIF
16950 RETURN
16955 END
16960 SUBROUTINE SPILLS
1696=* SAMPLES THE PROBABILITY OF A LOOSE HOSE CONNECTION.
16970 COKMON/FIDITYP/rILLING.DISCHRG
16975 INTEGER FILLING,DISCHRG
16980 COmCN/S?LPR3/LOOSCON(2)
16985 REAL LOOSCON
16990 LOGICAL LOOP
169S5 INTEGER ttON
17000 COMON/SURFTIM/LOOSE.HOSPORT,PMPLK(5) ,RUPWLD(5) ,VENT
17005 INTEGER LOOSE,HOSPORT.PMPLK.RUPWLD,VENT
17010 IF((OISCHRG.EQ.O .OR. (F ! LLING .EQ. 1)) THEN
17015 LOOSCON (2)-FNB(LOOSCON(1))
17020 IF (LOOSCON (2).EQ.l) THEN
17025 CALL FTIttE(LOOSE)
17030 ENOIF
17035 ENOIF
170UO RETURN
1701*5 END
17050 SUBROUTINE TNKCONT (L)
17055* SAMPLES THE PROBABILITY OF TANK SECONDARY CONTAINMENT
17060* FAILURES (EXCLUDING DOUBLE-WALLED STEEL TANKS).
17065 INTEGER L
17070 COMMON/DEFSEC/SECDEF(2)
17075 REAL ScCDEF
- E60 -
-------
.17080 COMMN/L IN/LINER
17085 LOGICAL LINER
17090 CC«MON/7IME/APAD7IM(3) .CPADTJK (3) .VLTTIM(3) ,C3SMTin(3) , A3S.-.7! rt (3)
1/055 REAL A?AD7IM.C?ADTlrt,VL7TIM,C3RM7lM.A3RK7lrt
17100 COttttON/PLACE/UG?IPE,AG7ANK,IG7ANK.UG7ANK,AG?IPE,AGPUM?
17105 LOGICAL UGPIPE.AG7ANK, I G7ANK .'JG7ANK, AG? I PE . AGPUMP
17110 COrtMON/DEFPRCS/LIFDEF(2,7),G2KINC(2)
17115 REAL LIFDEF.GSKINC
17120 COMrtON/IYRNO/IYRNUM
17125*
171 30 COMMCN/7KCON7/CONCPAD.ASPHPAD
17135 COMW3N/SECON/ULVAUL7,LVAUL7,?IPSEC,VAUL7,NOSECON
171UO COr.r.ON/CON7/UGCON7(3) ,AGCON7(3) , P I PCON7 (5)'.NUGCON7 (3) ,NAGC3NT(3)
17150
17155
17160
171&5
17170
17U5
17180
17185
17190
17195
17200
17205
17210
17215
17220^
17225
17230
17235
172^0
172^5
1/250
17255
17260
17265
17270
17275
17280
17285
17290
17295
17300
17305
17310
17315
17320*
17325
17330
17335'
173^*0
COI-.MCN/LINE/LINE7IM(3)
LOGICAL CONCPAD.ASPHPAD
LOGICAL ULVAUL7,LVAUL7,PIPScC,VAUL7,NOSECON
IN7EGER UCCONT.AGCONT.PIPCONT.NUGCONT.NAGCONT.NPICONT
REAL LINE7IM
REAL SE77LE
IN7EGER IYRNUM
IF(ULVAUL7)7HEN
IF(IYRNUM.EQ.1)7HEN
SECOEF (2)-FN8(SECDEF(D)
iF(sscoEF(2) .EQ.DTHEN
CALL F7!ME(UGCON7(L))
ENDIF
IF (VAUL7.0R.CONC?AO.OR.ASPHPAO)7HEN
-. SE77LING FAILURES'
LIFBEr (2,6)-FNB(LIFOEF{1,6))
LIFOEF(2,7)»FNS(UFOEF(1.7))
SE77LE-1-(1-LIFDEF(2,6))*(1-LIFOEF(2,7))
1F(SE77LE.EQ.1)7HEN
CALL F7I«E(UGCON7(L))
ENDIF
ENOIF
IF(VLT7IM(L) .LE.IYRNUM)7HEN
CALL F7IME(UGCON7(L))
17350
17355
17360 ENDIF
ENDIF
IF(LVAUL7)7HEN
IF (IYRNUM. EQ.DTHEN
SECOEF (2) -FNB(SECDEF(D)
IF {SECOEF (2) .EQ.DTHEN
VLTTIM(L)-100.
ENDIF
IF (VAULT. OR. CONCPAO. OR. ASPHPAO) THEN
SETTLING FAILURES
LIFDEF(2,6)»FNB(LIFOEF(1,6))
LIFDEF(2,7)-FNB(LIFOEF (1,7))
SETTLE-1-(1-LIFDEF(2,6))*(1-LIFDEF(2,7))
IF (SETTLE. EQ.DTHEN
VLTTIM(L)-100.
ENDIF
ENOIF
- E61 -
-------
17365 IF(UNETIM(L) .LE.IYRNUM)THEN
17370 IF (V177I M(l) .IE. IYRNUM)THEN
17375 CAIL F7IME(UGC3N7(L})
17380 ENOIF
173S5 ENDIF
17390 ENOIF
17395*AG CONTAINMENT FAILS
171*00 IF (CONCPAO)THEN
17405 IF(IYRNUM.EQ.1)7H£N
17**10 SECOEF(2)-FNB(SECOEF(1))
17M5 iF(SECOEF(2) .EQ.DTHEN
17U20 CPADTIM(L)-1CO.
17<*25 ENDIF
IF(VAULT.OR.C3NCPAD.OR.ASPH?AD)7HEN
SETTLING FAILURES
LIFOEF(2,6)-FNB(LIFOEF{1,6))
LIFOEF(2.7)-FNB(LIFOEF(1.7))
SETTLE-1-(1-LIFDEF(2.6))M1-LIFDEF(2.7))
171*55 IF (SETTLE.EQ.DTHEN
171*60 CPAOTIM(L)«100.
171*65 ENOIF
171*70 ENDIF
171*75 ENDIF
17l»80 IF (LINER)THEN
17485 IF (LINETIM(L) .LE . IYRNUM) THEN
171*90 IF ((CPADTIM(L) .LE.IYRNUM) .OR. (CBRMTIM(L) .LE. I YRNUM)) THEN
171»95 • CALL FTIME(AGCON7(L))
17500 ENOIF
17505 .ENplF
17510 ELSE '
17515 IF((C?ADTIM(L) .LE.IYRNUM) .OR. (CBRMTIM(L) .LE. I YRNUM)) THEN
17520 CALL FTIME(AGC3NT(D)
17525 ENDIF
17530 ENDIF
17535 ELSEIF(ASPHPAD)THEN
1751*0 IF(IYRNUM.EQ.DTHEN
175*5 SECOEF(2)-FNB(SECOEF(D)
17550 IF (SECDEF (2) .EQ.DTHEN
17555 APAOT1M(L)-100.
17560 ENOIF
17565 IF(VAULT.OR.CONCPAO.OR.ASPHPAD)THEN
17570* SETTLING FAILURES
U575 LIFDEF(2,6)-FNB(LIFDEF(1,6))
17580 LIFOEF(2,7)-FNB(LIFOEF(1,7))
17585 SETTLE-1-(1-LIFD£F(2,6))*(1-LIFDEF(2.7))
17590 JF (SETTLE.EQ.DTHEN
17595 APAOTIM(L)-100.
17600 ENOIF
17605 ENOIF
17610 ENOIF
17615. IF(LINER)THEN
17620 I F (LI NET IM (L) . LE. I YRNUM) THEN
17625 IF((APADTIM(L) .LE.IYRNUM) .OR. (ABRMTIM(L) .LE. I YRNUM)) THEN .
17630 CALL FTIME(AGCONT(l))
17635 ENOIF
17640 ENDIF
17645 ELSE
- E62 -
-------
17 = 53 IF((APADT!M(L) .LE.IYRNUK) .OR. (ABRMTlMD .L£. I YP.NUM)) THEN
17655 CALL FTlrtE (AGCONT(L))
I?s60 ENDir
1/665 END IF
17670 ELSE
17675<» NO PAD OR CL'RB
17680 IF(.NOT.LINER)AGCONT(L)«1
17685 ENDIF
17690 IF (LINER.AND. (.NOT. (VAULT.OR.CONCPAD.OR.ASPHPAD))) THEN
17695 IF(LI NET IM(L).LE.IYRNU«)THEN
17700 IF (UGTANK.OR.ICTANK)THEN
17705 CALL FTIME(UGCONT(L))
17710 ELSE
17715 CALL FTIrtE(AGCONTU))
17720 ENDIF
17725 ENOIF
17730 ENDIF
17735 RETURN
177^0 END
177^5 SUBROUTINE INADSTR (ANCIL.YR)
17750* CHECKS FOR FAILURES DUE TO CORROSION.
17755 LOGICAL PWALL2.PIFAIL
17760 COMrtON/PMATL/PCSTEEL.PSSTEEL
17765 LOGICAL PCSTEEL.PSSTEEL
17770 COMMON/CTFL/CTFLAG
17775 LOGICAL CTFLAG
17780 COMMON/CATHOD/CATFAIL
17785 LOGICAL CATFAIL
17790 COMMON/TANKrtAT/CSTEEL.SSTE£L,FRP,CATSTEL,PICATH,CONCRT
17795 LOGICAL'-CSTE£L.SST£EL,FRP,CATST£L,PICATH,CONCRT
17800 COMMON/COAT I rt/I COAT IM3,5) .E COAT IM (3,5)
1/305 REAL ICOATIM.ECOATItt
17810 COMMON/COATS/COAT ING(4,3,5)
17815 LOGICAL COATING
17320 COMrtON/LKLEN/PILKWID (5),PILKL£N(5)
17825 REAL PILKWIO.PILKLEN
17830 COMMON/CWIO/PIOFWID(5).RPPIWID(5).TKDFWIO(3) ,RPTKWID(3) .WLDFWID
17835-^(5) ,GKDFWID(5) ,RPWLWID(5)
178UO REAL PIDFWID.RPPIWID.TKDFWID.RPTKWID.WLOFWIO,
178i»5*GKDFWID,RPWLWIO
17850 COMrtON/CLEN/PIOFLEN(5) ,RPPILEN(5) ,TKDFLEN(3) ,RPTKLEN(3) .WLDFLEN
17855*(3) .CKDFLEN (5) .RPWLLEN (5)
17860 REAL PIOFLEN.RPPILEN.TKOFLEN.RPTKLEN.WLDFLEN,
17865-*-CKDFLEN, RPWLLEN
17870 REAL PIPLEN
17875 COM«ON/P!PEDK/PIPLEN(5)
17880 COMMON/LENMIN/CLENMIN(5) ,CWIOMIN(5) ,CDIM.MIN(5)
17885 REAL CLENMIN.CWIDMIN.COIMMIN
17890 COMMON/RUPLEN/CLENGTH(5),CW1OTH(5),CO I AM(5)
17895 REAL CLENGTH.CWIOTH.CDIAM
17900 COMMON/COUNT/NPIPOEr (5).NWLDDEF(5).NGSKDEF(5).NPIPLK(5).NGSKLK(5),
17905+NRUPPIP(5) ,NPMPLK(5) ,NRUPWLO(5) ,NTNKLK(3) ,NTNKOEF(3) ,NRUPTNK(3)
17910 REAL NPIPDEF,NWLDDEF,NGSKOEF,NPIPLK,NGSKLK,NRUPPIP.NPMPLK.NRUPWLD,
17915* NTNKLK.NTNKDEF.NRUPTNK
17920 COnMON/AX/IY
17925 REAL TEMPOIA.TAREA
17930 LOGICAL LKFLAG
- E63 -
-------
17935 COMMON/PIPELK/IN7LK(5) ,PIPAGE (5) ,NUMLK(5) ,= = AN(5)
173**0 INTEGER IN7LK.NUMLK.PIPAGE
175-5 REAL PRAN
1/550 COm>N/CDIAfl/PIDFDIA(5) ,PILKDIA(5) .PMLK2I A(5) ,GKLKDIA(5) .TKLKDi
17955* (3)
17560 REAL PlOFDIA.PILKDIA.PMLKOIA.GKLKDIA.TKLKOiA
17965 C3MMCN/AREAS2/PIPESA(5)
17970 REAL PIPESA
17975 COM/10N/MODE/CDIMMOO(5)
17980 REAL COIMMOO
17985 COMMON/LOOPCT/NPI,NTK
17990 INTEGER NPI,NTK
17995 COMMON/IYRNO/IYRNUM
18000 COMMON/VAPPRB/VAPSENS.VSENSOR
18005 REAL VAPSENS.VSENSOR
18010 INTEGER FALNUM.FALNUMl,FALNUM3,FALNUMi»,FALNUM7
18015 COMMON/FALNUM/FALNUM.FALNUM1 (100).FALNUM2(100).FALNUM3(100),
18020* FALNUMU(IOO).FALNUM5(100),FALNUn7(100)
18025 COMMON/FALNUM6/FALNUM6(100)
18030 CHARACTER FALNUM6''«2
18035 REAL FALNUM2.FALNUM5
18040
180U5 COMMON/PIPETIM/PIPDEF(5) .WLOOEF.(5) ,CSKDEF(5) ,PIPLK(5) , '.
1805(HGSKLK(5) ,RUPPIP(5)
18055 COMMON/TANKTIAVTNKDEF (3) .TNKLK (3) .RUPTNK (3)
18060 COMrtON/SURFTlM/LOOSE.HOSPORT.PMPLK(5) .RUPWLD(5) ,VENT
18065
18070 INTEGER P!PDEF,WLDDEF,GSKDEF.PIPLK,GSKLK,RUPPIP
18075 INTEG.EA TNKDEF,TNKLK,RUPTNK,TNK2
18080 INTEGER. PIP2
18085 INTEGER LOOSE.HOSPORT.PMPLK,RUPWLD,VENT
180SO LOGICAL ANCIL
18095AREL-ASE DUE TO INADEQUATE COMPONENT STRENGTH
18100 COMMON/PRESS/PRESS(5,5)
18105 COMMON/STRESS/STRESS(5),CORTHDS(2)
18110 COMMON/THICKNS/PIPEI (5),PUMP I(5),CASK I (5)
18115 COW}N/ITHICK/IPIPE(5) . I PUMP (5) , I TANK (3) , I CASK (5) ,ITANK2(3)
18120 COMMON/0 IAM/PDI AM(5)
18125 COMMON/MATL/TNKMATL.PIPMATL
18130 INTEGER IYRNUM.YR
18135 REAL IPIPE,IPUMPfITANK,IGASK,ITANK2
131UO COMMON/EXTHICK/PIPEE(5) ,PUMPE(5),GASKE(5),PIPE2E(5),PIPE2I (5)
181U5 COMMON/EXTHI/TANKE (3).TANK2E(3)
18150 REAL TANKE.TANK2E
18155 REAL PIPEE,PUW»£,GASK£,PIPE2E,PIPE2I
18160 REAL PRESS,PIPE!.PUMPI.GASKI,POIAM
18165 COMMONAHICK/TANKI (3) .TANK2I (3)
18170 REAL TANKI.TANK2I
18175 COWION/CORE/PCORE (5) .CCORE (5) .PMCORE (5) .TCORE (3) .TCORE2 (3)
18180 COMMON/CORE1/PCORE2 (5).PIEXT2(5),PIEXL02(5)
18185 REAL PCORE2.PIEXT2.PIEXL02
18190 ftEAL PCORE.GCORE,PMCORE,TCORE,TCORE2
18195 REAL STRESS.CORTHOS
18200 INTEGER TNKMATL.PIPMATL
18205 LOGICAL TKFAIL
18210 COMMON/ALARM/INTERST (5.2).INTER,?I INTER(5,2) .PINTER
18215 REAL INTERST.INTER.PIINTER,PINTER
- E6U -
-------
13:20
13:25
1 S23C
1S235
18240
18245
18250
13255
18260
18265
18270
18275
18280
18285
18290
18295
18335*
183UO*
LOGICAL ULVAULT.LVAULT.PlPSEC.VAULT.i
COMMGN/PLACE/UGPIPE.AGTANK,IGTANK,UGTANK.AGP IPE.AGPUMP
LOGICAL UGPIPE. AGTANK, I GTANK, UGTANK. AGPU.HP, AG? I P£
COM.10N/WALL/TK2WALL.PI2WALL
LOGICAL 7K2WALL.PI2WALL.WALL2
COrtMON/MONIT/ttONMETH(7).PIPrtON
LOGICAL MONMETH.PIPMON
CO-".ttCN/ECORE/PI EXT (5) ,TKEXT(3) ,PMEX7(5) ,TKEXT2(3)
REAL PIEXT.TKEXT.PMEXT.TKEXT2
COMMON/I LOCAL/PI LOCAL (5).PMLOCAL(S).TKLOCAL(3).TKLOCA2(3)
REAL PI LOCAL.PMLOCAL,TKLOCAL,TKLOCA2
COMttCN/ELOCAL/?IEXLOC(5),TK£XLCC(3),TK£XL02(3)
REAL PIEXLO.TKEXLO.TKEXL02
INTEGER PIP.PMP.GSK
COW10N/VENT/VCORE.VENTI,VENTE,I VENT,VLOCAL,VNTLOC,VEXT,
18300+VEXTLOC
18305 REAL VNTLOC
18310 REAL VCORE.VENTI.VENTE,IVENT,VLOCAL.VEXT,VEXTLOC
13315 LOGICAL PIREPAR.TKREPAR.PMREPAR
18320 COMMON/PITRE/PIREPAR(5) ,TKREPAR(3) ,PMREPAR(5)
18325*COMPONENTS
18330* 1-PIPE
2-PUrtP
3-TANK
4-WELDED FLANGE
18350* 5-GASKET
18355*MATERIALS
18360* 1-CARBON
2-STAIjJLESS
3-FRP
18375* 4-CONCRETE
18380* 5-GASKET MATERIAL
18385*FILL-DI5CHARGE STEP
18390* 1-rlLLING STEP
18355* 5-OISCHARGE STEP
18400 IF(ANC!L)THEN
DO 10 1-1,NPI
PIFAIL-.FALSE.
PWALL2-.FALSE.
PIPLK(I)-0
PIP2-0
IF(I.EQ.1)THEN
CALL 7HLOSS (VENTI.VENTE.VCCRE,VEXT,VLOCAL.VEXTLOC.1,1)
IF((V£NT.LE.O).OR.(VENTE.LE.0.))THEN
18445 CALL FTIME(VENT)
18450 ENOIF
18455 ENOIF
18460 IF (AGP IPE)THEN
18465 CALL THLOSS (PIPEI (I) .PIPEE(I) ,PCORE(I) ,PIEXT(I) .PILOCAL(I) ,
18470+PIEXLOC(I),1.I)
18475 CLSE
18480 CALL THLOSS (PIPE I (I) ,P I PEE (I) .PCORE (I) ,0. ,PI LOCAL (I) ,0., 1,1)
18435 ENOIF
18490*PRESSUR»PRESS(I,1)
18495*BURSTP- (2*STRNGTH(PIPEI (I),1,1,PIPMATL)*PIPEI
18500 IF (PIPEI (I) .LE.O.)THEN
18365*
18370*
STEEL
STEEL
18410
18420
18425
18430
18435
- E65 -
-------
135C5 CALL F7IM- (PIPLKd))
13510 PIFAIL-.7RUE.
18=15 Ir ((INTLK(I) .EQ.O) .AND.UG?!P>)THEN
18520 TtrtPOIA-FNSE(COIM«00(l) ,CD I MM I N (1) ,CD I AM (1) )
18525 7AR£A-(((7E.".PDIA/2.)**2)->-((PlLKDIAi;i)/2.)**2r;*3.1Mo
13530 PILKDIA(I)-SQR7(7AR£A/3.H*16)*2
13 = 35 IN7LK(I)-1
185^0 ENDIF
I85fc5 ENOIF
18550 IF((PICATH.OR.CA7S7EL).AND. (.NOT.CA7FAIL)) GO 70 26249
18555 IF(.NC7.COA7ING(U,1,1)) THEN
18560 IF(ECOATlMl.l) .LE.IYRNUM)7HEN
18565 C7FLAG-.7RUE.
18570 ELSE
18575 GO 70 262i»9
18530 ENOIF
18535 ENDIF
18590 IF(.N07.PI2WALL)7HEN
18595 IF(UGPIPE)7HEN
18600 PIPAGE(I)-PIPAGE(I)+1
18605 LKFLAG-.FALSE.
18610 IF(PIP£E(I) .G7.0)7HEN
18615 IF(PSS7EEL)7HEN
18620 PAGE-PIPAGE (I) /4.
18625 ELSE
18630 PAGE-PIPAGE (!)
18635 ENOIF
18640 CALL LKPIPE(PAGE,PIPESA(I) ,PIPEE(I) ,NUMLK(I) ,PRAN(I) .LKFLAG.
18645-1-C7FLAG)
18650 IF(LKFUG)7HEN
18655 NUMLK(I)«NUMLK(I) + 1
18660 7EMPDIA-FNBE (CD I/WOO (1) ,CDIfl«IN(l) ,CDIAM(1))
18665 "AREA- (((7EMPDI A/2.)**2) + ((PILKDI A(I) /2.))) *3.1k16
18670 PILXDIA(I)-SQR7(7AREA/3.1416) *2
186/5 PRAN(I)-?NU(0.,2.)
18680 LKFLAG-.FALSE.
1&685 CALL F7IME(PIP)
18690 IF (PIP.L7.PIPLK(I) .OR. (PIPLK(I) . EQ.O)) PI PLK (I)-P I P
18695 ENOIF
18700 ELSE
18705 IF (NPIPLK(I) .EQ.O)7HEN
18710 PILKLEN(I)-FNU(CLEN«IN(1) ,CLENG7H(1))
18715 PILKWIO(l)»FNU(CWIDrtlN(l) ,CWIDTH(I))
18720 ELSE
18725 PILKLEN(l)-2ftPILKLEN(l)
18730 IF(PILKLEN(I) .GT.PIPIEN(I))PILKLEN(I)-PIPLEN(I)
18735 PILKWIO(I)"2*PILKWID(I)
187*»0 IF(PILKWIO(I) .G7.3.)PILKWID(!)"3.0
187^5 ENDIF
18750 CALL F7IME(PIP)
18755 IF(PIP.L7.PIPLK(I) .OR. (PIPLK(I) .EQ.O)) PIPLK (I) -PIP
18760-END IF
18765 ELSE
18770*BURSTP-(2*STRNG7H(PIPEE(I),1,I,PIPMA7L)*PIPEE(I))/POIAM(I)'
18775 IF(PIPEEd) .LE.OJ7HEN
18780 CALL F7IME(PIP)
18785 IF(PIP.L7.PIPLK(I) .OR. (PIPLK(I) .EQ.O)) PIPLK (I)-PI P
- £66 -
-------
18750 END!?
1S735 ENDI?
1380C ENOIF
183C5 262*9 CONTINUE
18810 IF(PI2WALLJTHEN
13315 IF(PlrAIL.AND.NPIPLKd) .EQ.O)TH = N
l£82C* IN7ERSTITAL MONITORING
18825 IF (MONK-TH (7)) THEN
18830 PI INTER(I,2)-FN8(PI INTER (I ,1))
18835 IF (PIINTER(I,2).EQ.O) THEN
I88i*0 CALL REPLACd, I)
138<«5 FALNUM-FALNUM+1
18850 FALNUttl (FALNUM)-3010-H
18855 FALNUM7(FALNUM)-(YR-l)*l2+?IPLKd)
18360 FALNUrt2(FALNUn)-l.
18865 FALNU«3(FALNUM)-((YR-l)ftl2)+PIPLKd)
18870 FALNUrtU(FALNUM)-2
18875 FALNUM6(FALNUM)-'IS1
18880 PIPEI (I)-IPIPE(I)
188S5 PlPEE(l)-IPIPEd)
18890 PIPE2I (I)-IPIPE(I)
18895 PIPE2E(I)"IPIPE(I)
18900 PWALL2-.FALSE.
18905 PIFAIL-.FALSE.
18910 PIREPAR(I)-.TRUE.
18915 NPIPLK(I)-0
18920 PIPLK(I)-0
18925 PIP2-0
18930 • PIPAGE(I)-0
18935 • '. NUMLK(I)-0
189W INTLK(I)»0
189^5 PRAN(I)-FNU(0..2.)
18950 ELSE
18955 PI INTER(I,1)-1.Q
18960 ENOIF
18965 END IF
18970 ENDI-F
18975 IF((PICATH.OR.CATSTEL).AND.(.NOT.CATFAIL))GO TO 2&2U8
18980 IF(.NOT.COATING(U,1,1))THEN
18985 IF(ECOATIM(1.I) .LE.IYRNUM)THEN
18990 CTFLAG-.TRUE.
18995 ELSE
19000 GO TO 2621*8
19005 ENOIF
19010 ENOIF
19015 IF(UGPIPE)THEN
19020 PI PACE (I) -PI PAGE (I) +1
19025 LKFLAG-.FALSE.
19030 IF(PIPE2E(I).GT.O)THEN
19035 IF(PSSTEEL)THEN
190AO PAGE-PIPAGE (I) A.
190U5- ELSE
19050 PAGE-PIPAGE(I)
19055 ENOIF
19060 CALL LKPIPE(PAGE.PIPESA(I) ,PIPE2E(I) ,NUMLK(I) ,PRAN(I) .LKFLAG,
19065*CTFLAG)
19070 IF(NU«LK(I) .GT.OJPWALL2-.TRUE.
- E67 -
-------
15075
19C83
19065
1=050
1 5055
15100
19105
19HO
ig; 15
19120
19125
19130
15135
19140
19H5
19150
19155
igioO
19165
19170
19175
19180
19185
19190
19195
19200
19205
19210
19215
19220
19225
19230
19235
19240
19245
19250
19255
19260
19265
19270
19275
19280
19285
19290
15295
19300
19305
19310
19315
1 9320
19325
19330-
19335
193*»0
193^5
19350
19355
5 IF(LKFLAG)7HEN
D)
?WALL2».7R»J£. '
7E.1POIA-FNBE (CSlKKQDd) .CO IrtMIN (!) , CD I AMD)
TAR- A- ( ( (7EWPO I A/2 . ) **2) •»• ( (P I LKO I A ( I ) /,2 . ) ) ) *3 • 1 «• 1 6
PILKDIA(I)-SQR7(TAR£A/3.1416)*2
PSANd)-FNU(0.,2.)
LKrLAG-. FALSE.
CALL F7lrtE(P!P2)
IF (NPIPLK(I) .EQ.O)THEN
IN7ERS7I7AL MONI70RING
IF (MONMETH(7)) THEN
PI IN7ERCI .2}-FNB(PIIN7ERd,
IF (PI IN7£R(I ,2) .EQ.O) 7HEN
CALL REPLAC(l.l)
FALNUM-FALNUm-1
FALNUM1 (FALNUM) -3010+1
FALNUM7(FALNUn)»(YR-l) *12+PIP2
FALNUM2 (FALNUM) -1.
FALNUM3 (FALNUM) « ( (YR-1) *12)+PI P2
FALNUMU (FALNUM) -2
FALNUM6 (FALNUM)-1 IS1
PIPEI (I)-IPIPE(I) -
PIPEEd)-IPIPE(l)
PIPE2I (I)-IPIPE(I)
PIP£2E(I)-IPIPE(I)
PWALL2-. FALSE.
PIFAIL-. FALSE.
PIREPAR(I)-.7RUE.
NPIPLK(I)-0
PIPLK(I)-0
PIP2-0
IN7LK(I)-0
PIPAGE (0-0
NUMLK(I)-0
PRAN(I)-FNU(0.,2.)
ELSE
PI IN7ER(I.1)-1.0
ENOIF
ENDIF
ENDIF
ENOIF
ELSE
PWALL2-.7RUE.
IF(NPIPLKd).EQ.O)7HEN
PILKLEN(I)-FNU(CLENMIN(1) ,CLENG7H(1))
PILKWIO(I)-FNU(CWIOMIN(1) ,CWI07H(1)-)
ELSE
PILKLEN(I)-2*PILKLEN(I)
I F (P I LKLEN (I ) . G7.P I PLEN (I ) ) P I LKLEN ( I ) -P I PLEN (I )
PILKWIDd)-2*PILKWIO(l)
IF(PILKWIOd) .G7.3.)PILKWID(I)»3.0
ENOIF
CALL F7I«E(PIP2)
ENDIF i
ENOIF
IF(PWALL2.ANO.PIFAIL.AND.(NPIPLK(I).EQ.O))7HEN
- E68 -
-------
19360 IF((?!PLK(I) .L-.PIP2) .AND. {? I ?:.N£.0))THEN
15365 PIPLX(I)-PIP2
19370 ENOIr
19375 Si-SE
19380 PIPLK{!)-0
19385 ENDIF
15390 26248 CONTINUE
19395 ENOIF
19400 IF(AG?UMP)TrEN
1Q405*PRESSUR-?RESS(I,2)
19410 CALL THLCSS(PUMPI (I) .PUMPS(I) .PMCCRE(I) ,PMEXT(I) .PMLOCAL
19-15^(0,0..2.1)
19420* 8URS7P»(2*S7RNCTH(PUMPI (I) ,2.I.1)*PUMPI (I))/PD I AM (I)
19425 IF (PUMP I (I).LE.OJTKEN
19430 CALL FTIME(?.HPLKd))
19435 ENDIF
19440*BURS7?- (2*S7RNG7H (PUMPE (0,1,1,1) *PIMPE (I)) /PDI AM (I)
\3UUy |F(PUMPE(I) .LE.OJ7HEN
19450 CALL F7IMECPMP)
19455 IF (PMP.L7.PMPLMI) .OR. (PMPLK(I) .EQ.O)) PMPLK (I) -PMP
19460 ENOIF
19465 ENOIF
19^*70 GASKI (I)-GASKI (I)-GCORE(I)
19^*75 GASKE(I)-GASKE(I)-GCORE{1)
19480'1: BURS7P-2*S7RNG7H (GASKI (I) ,5, I ,P I PMA7L) *GASK I (I)/PDIAM(I)
15^85 IF (GASKI (D.LE.O.)THEN
15^90 CALL FTIME(GSKLKO))
19495 ENOIF
19500A3URS7?.- (2*S7RNG7H (GASKE (IJ , 1. I . P I PMA7L) *GASKE (I)) /PD I AM (I)
1950S IF(GASKB-d) .LE.O.J7HEN
19510 CALL F7IME(GSK)
19515 IF (GSK.L7.G3KLK(I) .OR. (GSKLK(I) .EQ.O)) GSKLK (I) "GSK
19520 ENOIF
19525 10 CON7INUE
19530 £NOIF
19535 DO 101 1-1,N7K
19540 7KFAIL-.FALSE.
195^5 WALL2-.FALSE.
19550 IF(.N07.ANCIL)7HEN
19555 IF(.N07.7K2WALL)7HEN
19560 CALL 7HLOSS(7ANKI (I) ,7ANKE(I) .TCORE(I) ,7KEX7(I) ,7KLOCAL(I) ,
19565+7KEXLOC(I).3.D
19570 IF((7ANKI (I) .LE.O.) .OR. (7ANKE(I) .LE.O.))7HEN
19575 CALL F7IME(7NKLK(I))
19530 7KFAIL-.7RUE.
19585 ENDIF
19590 ENOIF
19595 IF(7K2WALL)7HEN
19600 CALL 7HLOSS(7ANKI (I) .TAMKE(I) .TCORE(I) ,0. .7KLOCAL (I) ,0.,3,0
1960S IF ((TANKI (I) .LE.O) .OR. (7ANKE(I) .LE.O.))7HEN
19610 CALL FTIME(TNKLK(I))
19615 TKFAIL-.7RUE.
19620 IF (NTNKLK(I) .EQ.O)TH£N
19625* IN7ERS7I7IAL MON070RING
19630 IF (MONME7H(2)) 7HEN
19635 IN7ERS7 (1,2) -FNB (I N7ERS7 (1,1))
19640 IF(INTERST(I,2).EQ.O) 7HEN
- E69 -
-------
CALL P.i?LA:(3,l)
19650 VAPSENS-VSENSOR
196 = 5 FALNUM-FALNUK+l
19660 FALNUrtl (FALNUM)"3030*1
19665 FALNUM7(FALNUM)-(YR-1) *12-7NKLK(I)
19670 FALNUM2(FALNUM)-1.
19675 FALNUM3(FALNUM)-((YR-1)*12)-rTNKLK(0
19680 FALNUMU(FALNUrt)-2
19685 FALNl'M6(FALNUM)-' IS1
19690 TANKI (I)-ITANK(I)
19695 TANKE(I)-ITANK(I)
197CO TANK2I (I)-ITANK(I)
19705 TANK2E (I)-ITANK(I)
19710 WALL:-.FALSE.
19715 TKFAIL-.FALSE.
19720 TKREPAR(I)-.TRUE.
19725 NTNKLK(I)-0
19730 TNKLKd)-0
19735 TNK2-0
ELSE
INTERST(I,1)-1.0
19750 ENDIF
19755 ENDIF
19760 ENDIF
19765 ENOIF
19770 CALL THLOSS (TANK2I (I) .TANK2E (I) ,0. .TKEXT2 (I) .0. .TKEXL'02,3. I)
19775 IF ((TANK2I (I) .LE.O.) .OR. (TANK2E (I) .LE.O.))THEN
19780 WALL2-.7RUE.
19785 •. CALL FTIMECTNK2) .
19790 \f (NTNKLK(I) .EQ.O)THEN
19795* INTERSTITIAL MONOTORING
19800 IF(MONMETH(2)) THEN
1980S INTERST(I ,2)-FNB (INT£RST(I , 1))
19810 IF(INTERST(I,2) .EQ.O) THEN
19815 CALL REPLAC(3,1)
19820 VAPSENS-VSENSOR
19825 FALNUM-rALNUM+1
19830 FALNUni (FALNUM)-3030-i-l
19835 FALNUK7(FALNU«)-(YR-1)*12+TNK2
198UO 'FALNUM2(FALNUM)-1 .
198J.5 FALNUM3(FALNUn)-((YR-1)*12)+TNK2
19850 FALNUM4(FALNU«)-2
19855 FALNUrt6(FALNU«)-'IS1
19860 TANKI (I)-ITANK(I)
19865 TANKE(I)-ITANK(I)
19870 TANK2I (I)-ITANK(I)
19875 TANK2E(I)-ITANK(I)
19880 WALL2-.FALSE.
19885 TKFAIL-.FALSE.
19890 TKREPAR(I)-.TRUE.
19895 NTNKLK(!)"0
19900- TNKLK(I)-0
1990S TNK2-0
19910 ELSE
19915 INTERSKl.D-l.O
19920 ENDIF
19925 ENOIF
- E70 -
-------
'55- IF (WALLZ.ANO.TKFAIL.AS:. (NTNKLK (!) .•;.:) ) 7.--N
155-3 If (TNKLX(I) .LE.TNKIJTh-N
155=0 TNKLX(I)"TSK2
'S555 ELSE
1QS6C* VISUAL INSPECTION Or WALL2
15535 TNKLK(I)-0
15570 END IF
15975 ENOIF
15530 ENOIF
19985 END IF
19990 101 CONTINUE
19595 RETURN
20COO END
20C05 SUBROUTINE TNKDIM(L)
20010* CALCULATES TANK DIMENSIONS.
20015 COMMON/TECH/NEUT.CHRED,CYNOX,PRECIP.DISTILL.EVAP,STORAGE.ACTCARB
20020 LOGICAL NEUT.CHRE3,CYNOX.PREC!P,0 ISTlLL.EVAP,STORAGE.ACTCARB
20025 INTEGER L
20030 COrtrtON/FLORTHK/FLORTHK
2C035C
20040 COMMCN/TANKMAT/CSTEEL,S3TEEL, FRP, CATSTEL. PI CATH, CONCRT
200^5 LOGICAL CST££L,S3Ti£L.FR?,CATSTIL,PlCATH,CONCRT
22050 COMON/TKGEOM/HORIZ.VEST
20055 LOGICAL HOR1Z.VERT
"20060 COMMCN/TANKDrt/TLENGTH (3) ,TWIOTH(3) ,TH£IGHT(3) ,UGTHGHT(3) .
20065+AGTBfiHT (3) . 01 AM (3) , LENGTH (3)
20070 REAL.Ti£NGTH,TWIDTH,TH£IGHT,UGTHGHT,AGTHGHT,OlAM,LENGTH
20075 COMMCN/TKINFO/FRACTUG.TNKCA?(3)
20380 REAL FRiCTUG.TNKCAP
2C085 C:MMON/THICX/WALLTHK(3) ,TANK2(3)
20090 CC«MON/£XTHI/WALLEX(3) .WALLEX2(3)
2CO$5 COMMON/WALL/TK2WALL.PI2WALL
20ICO LOGICAL TK2WALL,?I2WALL
20105
20110 REAL WALLEX/WALLEX2
20115 IF (CONCRT) THEN
20120 IF (TNKCAP(L).LE.3000) THEN
20125 WALLTHK(L)-6
20130 ELSE IF (TNKCA? (L).IE.10000) THEN
20135 WALLTHK(L)-8
20 UO ELSE IF (TNKCAP (L) .IE .20COO) THEN
20 U5 VALLTHK (L)-8
20150 ELSEIF (TNKCAP(L).LE.50000) THEN
20155 WALLTHK(L)-12
20160 ELSE
20165 WALLTHK(L)»15
20170 END IF
20175 IF (VERT) THEN
20180***** CIRCULAR
20185 % 01 Art (L) " (.698* ((1.005*TNKCAP (L)) ** (1 /3.)))* (WALLTHK (L) /6.)
20190 LENGTH (L)-0.5* (01 Art (L)-(WALLTHK (L)/6.))
20195 ELSE
20200******** SQUARE
20205 LENGTH (L) • (.6U* ((1.005*TNKCAP (L)) ** (1/3.))) +(VALLTHK (L) /6.)
20210 DI Art (L) "0.5* (LENGTH (L) - (WALLTHKQ.) /6.)) -
- E71 -
-------
20225
2C223
2CI35
2::-o
202^*5
20250
20255
20260
2C2&5
20270
20275
20230
20285
20290
20295
20300
20305
20310
20315
20320
20325
20330C
20335
C!Art(L)-0!A.v;L)-2-WALLTHX {._} /i.
L-NGTH {L)-LENGTH(Li-wALLThx(J /i.f\
ENOIF
ELSEIF (HCRIZ.AND.F3P) TH-S
D I AM (L) -0 . 4* ((TNKCA? (L) * 1 .005) ** (1 /3 -))
LENGTH (L)-3*OIAM(L)
IF (OIArt(L) .LE.4) T-iEN
WALLTHK(L)"0.25
LE,
31
LE,
44
LE.3) THEN
31
LE.10) THEN
• 5)
.6)
THEN
THEN
.23
20345
20350
20355
2C360
20365
20370
20375
20380
20385
20390
20395
20400
20405
20410
204.15
20420
20425
20430
20435
204*0
20445
20450
20455
20460
20465
20470
20475*
20480
20485
20490
20495
ELSEIF (OIAM(L)
WALLTHi<(L)-0
ELSEIF (OIAM(L)
WALLTHK(L)-0
ELSEIF OlArt(L)
WALLTHK(L)«0
ELSEIF (OIA«(L)
WALLTHK(L)-!
ELSE IF(01 AM(L).LE.12)THEN
WALLTHK(L)-1.50
ELSE
WALLTHK(L)-1.75
END IF
ELSEIF (VERT.AND.FRP)' THEN
0 I Art (L)-0. 38* ((TNKCAP (L)* 1.005)** (1/30)
LENGTH (L)-3*01 Art (L)
IF (OIArt(L) .LE.4) THEN
WALLTHK(L)-0.19
ttS'SIF (DIArt(L) .LE.5) THEN
ELSEIF (DIArt(L).LE.S) THEN
WALLTHK(L)-0.31
ELSEIF (DIAM(L) .LE.8) THEN
WALLTHK(L)-O.UU
ELSEIF (DIAM(L) .LE.10) THEN
WALLTHK(L)-0.75
ELSEiF(OIAM(L) .LE.U) THEN
WALLTHK(L)-1.12
ELSE
WALLTHK(L)-1.5
END IF
ELSE
I F(TNKCAP(L).LE. 50000) THEN
01 AM (L) -0 .M»* ((1.005*TNKCAP (L)) ** (1 /3.))
LENGTH (L) "2*01 Art (L)
ELSE I F(TNKCAP(L).L£. 375000) THEN
OIArt(L)-0.652*(TNKCAP(L)*1.005)**0./3.)
LENGTH (L) -01 Art (L)
ELSE
01 Art (L) -0.551** (TNKCAP (L) *1.005) ** (1 ./3«)
LENGTH (L) -40
' END IF
IF (TNKCAP (L) .LE. 10000) THEN
WALLTHK(L)-0.25
ELSEIF (TNKCAP(L).LE.20000) THEN
WALLTHK(L)«0.31
- E72 -
-------
:;=;: ILS:;: ;TNK:A= :L: ..-._
::f: = -ii:"-* o-c. -3
::5'0 tLStl? {TNKCAPtL; .LE.13CCC3; THES'
2C515 WALLTHK(L)-0.='3
2:5:: ELS;
::5:5 WALLTHK(L)-0.625
2:533 END IF
23535 SN2IF
2: = -0 IF (TK2WALL.AND..NOT.CONCRT)THEN
2: = -5 D I *« (L) -0 I Art (L) + (li-WALLTHK (D ) /6.
20550 LENGTH (L) -LENGTH (L) + (KWALLTHK (L)) /6.
20555 EN3IF
20560 TANK2(L)-WALLTHK(L)
2:5i5 WALLEX(L)-WALLTHK(L)
20570 WALLEX2(L)-WALLTHK(L)
2C575C
20580 RETURN
20535 END
20530 SUSROUTINE CORERAT
20535^ ESTIMATE THE INTERIOR GENERALIZED CORROSION RATE AND
20600* THE EXTERIOR GENERALIZED AND LOCALIZED CORROSION RATES.
20605 CCrtrtCN/TKFRAC/TANKTIrt(3)
20610 REAL TANKTIrt
23615 COrtrtON/CRAD/CRAOLE
20620 LOGICAL CRADLE
2C625 CO.-.rtCN/AREAS2/?IPESA(5)
20630 REAL PIPESA
20635 REAL TANKSA
206uO C2M.HON/AREAS/TANKSA (3)
20645 CCfl«bH/P.M.ATL/?CSTEEL,PSSTEEL
20650 LaCIC-AL PCSTEEL.PSSTEEL
20655 COrtrtON/OPDAY/OPOYYR
2C660 INTEGER OPOYYR
20665 COrtrtON/OPHRS/CPHRSDY
20670 REAL CPHRSOY
20675 CCrtrtON/OlSCH/OlSCRT(5),OISCTirt(5).DISCFR(S).VEHTANK.THRUPUT
20630 REAL OISCRT.OISCTIM.OISCFR,VEHTANK.THRUPUT
20635 COrtrtON/OPERAT/BATCH.CONT
20630 LOGICAL BATCH,CONT
206S5 C3rtMON/TECH/NEUT,CHREO,CYNOX.PRECIP.01ST1LL,EVA?,STORAGE,ACTCAR3
20700 LOGICAL NEUT,CHREO,CYNOX,PRECIP,01STILL.EVAP,STORAGE,ACTCARB
20705 COrtrtON/PlFRP/PFRP
20710 LOGICAL PFRP
20715 COWtON/LOOPCT/NPl.NTK
20720 INTEGER NPI.NTK
20725
20730 COMMON/TANKMAT/CSTEEL.SSTEEL.FRP.CATSTEL.PICATH,CONCRT
20735 LOGICAL CSTE£L.SSTEEL,FRP,CATSTEL,PI6ATH,CONCRT
207U5 COMMON/MATL/TNKHATL.PIPrtATL
20750 CQ/WON/ELOCAL/PIEXLOC(5).TKEXLOC (3).TKEXL02(3)
20755. REAL PI EXLOC.TKEXLOC.TKEXL02
20760 CCMrtON/EXTERN/EXCORLO
20765 COAWON/CORE/PCORE (5) , GCORE (5) , P«CORE (5) .TCORE (3) .TCORE2 (3)
20770 COMMON/CORE 1/PCORE2(5),PIEXT2 (5),PIEXL02(5)
20775 REAL PCORE2.PIEXT2.PIEXL02
20780 INTEGER TNKMATL.PIPMATL
• £73 '
-------
2C7?5 P-£AL PCCr.E, jCIS;
2:73: 3-ii EX::RLO "
1C755 C:.1.-CN/S£CCN/ULVAJLT.LVA!JL".?:?S£C,yiL'L7,N.:S£::N
2C800 LOGICAL ULVAULT.LVAULT.PIPSaC.VAULT.N2S-:CS
2:305 CCM."CN/WALL/7K:WALL.?I2WALL
2CSIO LOGICAL 7K2WALL.PI2WALL
2C3i5 CCMMCN/PLACE/UGPIPE.AGTANK. IG7ANK.UGTANK.AC?I ?• .ASP'JMP
20320 LC3ICAL UG? I PE. AGTANK, I GTANK.'JGTANy.. AG? I P£ . AG?U«?
2032? COM.".CN/£::R£/?!£XT{5) .TKEXT3) ,PMEXT(5) ,TK£XT2(3)
20830 REAL PIEXT.TKEXT..PMEXT.TKEXT2
20835 COMMON/1 THICK/I PIPE (5) ,I PUMP (S).I TANK(3) .1 CASK(3) .ITANK2(3)
20S40 R£AL IPIPE.IPUMP.ITANK.IGASX.ITANK2
208^5 COMMON/MATPAR/APAR.CPAR.ABARPI .CPARPI , APARPH. CPARP.1
20850 REAL APAR.CPAR.APARPI.CPARPI.APARPM. CPARPM
20855 REAL THADJ
20860 COMMCN/rlLL/FILLRT(5) .FILLTIM(S) ,?ILLFR(5) ,FILLVCL(5)
20865 REAL FILLRT.FILLTIM.FILLFR.FILLVOL
20870 CO/WON/VENT/VCORE,VENTi,VENTEJVENT.VLOCAL.VNTLOC.VEX7,
2C875*VEX7LOC
20880 REAL VNTLOC
20885 REAL VCORE.VEN7I.VEN7E.IVEN7.VLOCAL.VEXT.VEX7LOC
20890
20895 ATMOS-.OOU
20900 VCORE-ATMCS
20905 VEXT-EXTCOR(1.1.1,.19)
20910 VEXTLOC-EXCORLO
20915 DO 31 1-1.NPI
20920
20925 IP{.NOT.PFRP)7HEN
20530 .'."•;|F((I.EQ.1) .OR. (.NOT.STORAGE)) THEN
20935 YF (BATCH)THEN
20940 IF (I.SQ.DTH-N
209*0 PCORS(I)-(CORSR(I,1)-A7«OS>*FILLFR(I)*FILL7IM(I)/1UC.*
20950* (ATMOS*(1-FILLFR(I)*FILLTIM(I)/UUO.))
20955 I F (PSSTEELJ PCORS (I) " (C3RER (I , 1) /U.-ATMOS) *F I LLFR (I) *F I LL7IM (I) /
20960* 1WO.+ (A7MOS*(1-FILLFR(I)*FILL7IM(I)/1UO.))
20965 ELSE
20970 PCORE(l)«(CORER(I.U-A7MOS)*OlSCFR(IJ*OlS:T!M(l)/iUO.*
20975* (A7MOS*(1-CISCFR(I)*OISCTIM(I)/1UO.))
20980 IF(PSSTEEL)PCORE(I)-(CORER(I.D A.-ATrtOS) *OI SCFR (I) *OISCTIM (I) / -
20985* 1UO.*(AT«OS*(!-DISCFR(I)*OISCTIM(I)/1UO.))
20990 END IF
20995 ELSE
21000 PCORE(l)-(CORER(l,1)-AT«OS)*OPHRSDY/2U.*OPOYYR/365.*
21005* (ATMOS*(l-(OPHRSOY/2U.*OPOYYR/365.)))
21010 IF(PSSTEEL)PCORE (I)"(CORER(1,1)/U.-ATMOS)*OPHRSDY/2fc.*CPDYYR/365.*
210)5* (A7MOS*(l-(OPHRSOY/2l».*OPOYYR/365.)))
21020 ENOIF
21025 IF(PCORE(!).L7.0.)PCORE(!)-A7MOS
21030 ELSE
21035 PCORE(I)*(CORER(I.1)-ATMOS)*OISCFR(I)*OISC7IM(I)/UJ»0.*
210UOt. (ATMOS*(1-OISCFR(l)*OISC7lM(l)/l4i»0.))
21045 IF(PSS7E£L)PCORE(I)«(CORER(I,1)A.-A7MOS)*OISCFR(I)*OISC7IM(I)/
21050* Ui»0.*(A7MOS*(1-DISCFR(l)*OISC7in(l)/1440.))
21055 ENOIF
21060* 10.U7FT2-SURFACE AREA OF 20 F7 PIPE
21065 PIEX7(I)-EXTCORCI,PIPMATL,1..19)
- E7U -
-------
p • r jr •«•'•' x r _^ •• * s ^ 2 ••'••''! = " ; i ''' ' ' C -?'•••'•'•• ' -
21075 if {435!?-j ? r- x:::'{ i >£x ::«•.:»(.:= =:»..= £5i :•; / ':.--.' :'::';. ; =
'2!Cs5 Ei.3£
2 1235 PC:SE(I)«0.
21C=0 PIEX7(I)-0.
21095 Pl£Xl3C(l)-0.
21100 ENOIF
21105 IF (Pir-ALDTH-N
21110 I? (. NOT. P-RP) THEN
21115 PCGRE2(I)»0.
21120 PIEXT2(I)-PIEXT(I)
21125 PI£X7(I)»0.
21130 PIEXLC2(I)»»IEXLCC(I)
21135 ?I£XLO:(I)"0.
21 UO ELS-
2IU5 PCOR£(I)-0.
21150 PCCRE2(I)-0.
21155 PIEXT2(1)-0.
21160 PIEXLC2(I)-0.
21165 PIEXT(IJ-0.
21170 PIEXLOC(I)-0.
21175 ENOIF
21180 ENOIF
2H85 GCCRE (I)-CORER(I ,5)
21190 IF (AGPUMP)THEN
21195 PMCORE(I)-CORER(I ,2)
21200 ?MEXT(I)-A7MOS
21205 . ELSE
21210 ' •.:; PMCCRc(l)"0
21215 '•'••• PMEXT(I)"0
21220 ENOIF
21225 31 CONTINUE
21230 DO 31111 1-1. NTK
21235 IF (.NOT. (FRP.OR.CONC?.T))TH£N
212!*0 IF {STORAGE) THEN
2 1 2i»5 TC03E { I ) -CORES (1,3) *TANKT I M ( I ) *A7««OS* (1 -TANKT I M ( I ) )
21250 IF (SST££L)TCOR£(l)-(CORER(l.3)/4.) ^TANKTlrt (l)-t-ATMOS''' (1-
21255*TANKTIM(I))
21290 ELSE
2 1 265 "CORE ( I ) -CORE* (1*1,3) *TANKT I M ( I ) +ATKOS* ( 1 -TANKTI M ( I ) )
21270 IF(SST££L)TCORE(l)-(CORER(l-rl,3) A.) *TANKTin(l)+ATMCS>> (1-
21275*TANKTIrt (I) )
21280 ENOIF
21285 TKEXT(I)-EXTC2R(I,TNKMATL,3,.25)
21290* U6FT2-SURFACE AREA OF A 5000 GALLON TANK
21295 ' TKEXLOC(I)"EXCORLO*(TANKSA(I) AU6.)**.16
21300 IF (AGTANK. AND. CRADLE) TKEXLOC (I) -EXCORLO* (.05*TANKSA (I) /U6.) ***. 16
21305 ELSE
21310 TCORE(I)-0.
21315 TKEXT(I)-0.
21320. TKEXLOCUJ-0.
21325"' ENDIF
21330 IF(TK2WALL)THEN
21335 IF(.NOT.(FRP.OR.CONCRT))THEN
213*»0 IF (STORAGE) THEN
2W TCORE(I)-CORER(I,3)*TANKTI«(I)*ATMOS*(1-TANKTI«(I))
21350 IF(SSTEEL)TCORE(l)-(CORER(l,3)/'».)*TANKTIM(l)i-ATMOS*(1-
- E75 '
-------
'213=0 £LS£
2136$ T::RE (i}-c:?.£?. [!-• .3) '•TANKTi.vji-AT-cs.'.-r-TANK-:.".;:, :
21370 IF (SST££L)T:CR£ (!)-(CSR£R J!-I . 3) ,'4.) *7ANKTin ( I ; -A7.-.OS* { \ -
21330 END IP
21335 7C:P.£2(I)«0
21390 - 7KEX72(I)-£X7COR(I,7NKMA7L.3..25)
21335 TKEXL02(l)-EXCORLO*(7ANKSA(l)/fcio.)**.l6
2 1 1*00 IF (AG7ANK . AND . CP.AOLi) TKEXLOC ( I ) -EXCCRL3* ( .05*7ANKSA ( I ) /U6 . ) ** . 1 6
21405 7K£X7(I)-0
21410 7K£XLCC(l)-0
21-15 E'-Si
21420 7COR£(D"0.
21425 7CCR£2(I)-0.
21430 7KEX72(I)-0.
21435 7KEXL02(I}-0.
214-0 TKSX7(I)-0.
214U5 7KEXL3C(I)»0.
21450 ENOIF
21455 ENOIF
21460 31111 CON7INUE
21465 IF (CYNCX.OR.CHREO.CR.PSECIP)
2 1 470* 7COR£ (2) - (7CORE (2) ^7C3R£ ( 1 ) ) /2 .
21475 RE7URN
21480 END
21435 REAL. FUNC7ION C3RER (S7AGE.COM?)
21490* 7WI-S;..ROU7INE ES7IMA7ES 7Ht GENERALIZED COROSION/ERCS10N RA7£S.
21495 CCW.OI*/'SUS?SOL/SUSSOL (5)
21500 REAL SUSSOL
21505 COMMON/PH/PH(5)
21510 REAL PH
215'5 R2AL SUSPPM
21520
21525 COW.ON/INCOMP/INCrAC"
21530 C2MMON/AX/IY
21535 REAL COR (5) .ERO(5)
21540 IN7EGER IY,S7AG£,COMP
215-= REAL RANOJNCFAC7
21550C 7REA7MEN7 S7AGES
21555C 1-IN7LE7 PIPE, PUMP, E7C
21560C 2-7ANK1, DISCHARGE FROM 7ANK1 (INCLUDES 70P PRODUCTS)
215&5C 3-TANK2, DISCHARGE FROM 7ANK2
21570C 4-TANK 3. DISCHARGE FROM 7ANK3
21575C 5-80770MS DISCHARGE
21580C COMPONEN7S
21585C 1-PIPE
21590C 2-PUMP
21535C 3-TANK
21600C 5-GASKE7
21603 •COR(S7AGE)"0.
21610 ERO(S7AGc)-0.
21615 SUSPP.1-SUSSOL (S7AGE) *10.E-HD6
21620 IF(COMP.NE.5)7HEN
21625 IF(PH(S7AGE).LE.5)7HEN
21630 COR (STAGE) -FNU(. 02,. 035)
21635 ELSEIF(PH(S7AGE) .G7.5.AND.PH (S7AGE) .L7.10)7HEN
- E76 -
-------
... .
21*50 ::?.(STAGE)«o.oc2
21655 SO TO ICO
216JC ELSE IF ((RANO.GE..65) .AND. (RAN-: .IT..30)!TH£N
21=i5 CCR(STAG£)«FNU(.CCI, .01)
21670 GO TO 100
21675 t'-S-
21630 C0= ;STAGE)-FNU(.01,.C2)
21655 CO TO ICO
21630 END IF
21635 ELSE
21700* ELS£ PH CREATES THAN OR EQUAL TO 10
21705 COR(STACE)»0.
217"0 ENDIF
21715 END IF
21720 100 CONTINUE
21725 IF (COrtP.EQ.2) THEN
21730 IF (SUSPPrt.GT.10000)THEN
21735 ERO(STAGE)-FNU(0.,.010)
217^0 ELSE
217^5 ERO(STAGE)-FNU(.010,.020)
21750 END IF
21755 ENCIF
2176C IF (CCMP.EQ.l) THEN
21765 I?(SUSPPM.LE.10000)THEN
21770 ERO(STAGE)«FNU(.005,.01)
21775 ELS£IF(SUSPPM.GT.O)THE,M
21730 ERC-f5.TAGE)-FNU(0.,.OC5)
21735 ELSE"-''. •
21/30 ERO(STAGE)-0.
21725 ENOIF
21800 ENOI-
21805 IF(COMP.EQ.55THEN
21810* ESTIMATE OF EROSION AND AGING
21815 RAND-RAN (IY)
21320 IF(RAND.IE..77)THEN
21825 ERO (STAGE)-FNU(0...0125)
21830 ELSE IF ((RAND.GT..77) .AND.(RANO.LE..83))THEN
21835 ERO(STAGE)«FNU(.0125,.025)
218UO ELSE
218U5 ERO (STAGE)-FNU(.025,.05)
21850 ENOIF
21855 ENOIF
21860 IF(COMP.EQ.5)THEN
21865 CORER-INCFACT*ERO(STAGc)
21870 ELSE
21875 CORER-COR(STAGE)+ERO (STAGS)
21880 ENOIF
21885 RETURN'
21890 END
21895*'FUNCTI ON EXTCOR (LOC. MATL, COflP, ITHCK)
21900* THIS FUNCTION ESTIMATES THE EXTERIOR GENERALIZED AND LOCALIZED
21905* CORROSION RATES.
21910 INTEGER LOC
21915 COMMON/SAV/SAV
21920 REAL SAV
- E77 -
-------
2}
21
2!
21
21
21
.ii*.s-xN;
-0 C^MCN/TKINFO/FRACTJG.TNKCA? (}}
-= SEAL FRACTUa.TNKCA?
fO CC.-rCN/OC/DCrACT
55 C:.--'CN/PLACE/UG? I P£ . AGTANK, I G7ANK . UC7ANK .AGP I Pi . AC.31.1.".?
= 0 LOGICAL UG?!?E.AGTANK, IG7ANK.UG7ANK.AGP I?E,AG
= 5 C:«V1CN/3ECON/'JLVAUL7,LVAULT.? I PSEC. VAULT,NCSEC
70 LOGICAL ULVAULT.LVAULT.PIPSEC.VAULT,NOSECCN
75 REAL DC?A:T
50 REAL AT.-.CS
21 35 REAL MATLrAC
3C REAL EXCCRLC.GENCOR
2192= REAL I7HCX
220CC INTEGER .1ATL.CCMP
22C05 A7MOS-.OOU
22010 IF((KA7L.EQ.1).OR.(MATL.EQ.2))THEN
22015 MATLFAC-1.0
22020 I? (nATL.£Q.2)MATLFAC«i».0
22025 EXCORLO-(I7HCX/AG£SS7(LOC,CO«P))*OC?ACT/MA7L?AC
22030 IF ((VAULT.CR. (AGTANK.AND.CRADLE)) .AND. (COMP.EQ.3))THEN
22035 GENCOR-ATMOS
22040 GO TO 6037
220U5 ENOIF
22050**** WATCH FOR CHANGES TO PIPE SECON. CONT. OPTIONS***
22055 IF(((PI?S£C.ANO.AG?IP£) .OR.AC?IPS) .AND.(COMP.EQ.1))THEN
22060 GENCOR-ATMOS
22065 '03 .TO 6037
22070 EN'O-I<'••••
22075 GENC3R-MAX(FNU(.0014,.005)*(SAV/10.).-00i4}*OC?AC7/«A7LFAC
22080 6037 CONTINUE
22085 IF(GENCOR.GT.EXCORLO)THEN
22030 EXCORLO-0.
22025 ELSE
22100 EXCORLO-EXCORLO-55NCCR
22105 ENOIF
22110 EXTCOR-GcNCOR
22115 ELSE
22120 EXTCOR-0.
22125 EXCORLO-0.
22130 ENOIF
22135 RE7URN
221UO END
221U5 SUBROUTINE CORPRB
22150* 7HIS ROU7INE SAnPLES THE INCSftPA7ABILITY/ACINC FACTOR
22155* FOR GASKE7S.
22160 COW10N/INCOMP/INCFAC7
22165 REAL INCFAC7
22170* GASKE7S ONLY
22175 INCFAC7-FNU(1.0,20.0)
22180-
22185 RETURN
22190 END
22195 SUBROUTINE IN7CORR
22200* 7HIS ROU7INE ES7IMA7ES 7HE INTERIOR LOCALIZED CORROSION RA7E,
22205 COMrtCN/AREAS2/?lPESA(5)
- £78 -
-------
; 1 c « • A L ? : = I 3 i
:'= 3,£AL TANKS;
IS CC.M..MON/LCC?CT/N?I . NTK
33 I\7£G£?. S?l , N7K
^ ]5 ::.U..M.CN/?LA:£/'JG:> i ?E . ACTANK. , i :TANK . JGTANK .ACPI ?E . AG?'J.M.F
222-0 LOGICAL UG?I PE , AG7ANK, I C7ANK, UCTANK. AC? I ?£. AGP'JttP
2221-5
22250 C:.-..-CN/7ANK,".A7/C37££L,SS7E£L.FS?,CA7S7£L,PICA7H.CCNCS7
222=5 LOGICAL CST--L ,SS7££L, FRP , CA7S7EL.P I CA7H , CC.NCR7
22260 CCnnON/CCR£/PCCR£ (5) .GCCRi (5) .PMCCRE (5) .7CORS (3) ,7::R£2 (3)
222^5 COn.nCN/CCS£l/PCCR£2(5) ,PI£X72(5) ,Pl£XL02(5)
22270 R-AL ?C:R£:.Pi£X72,?l£XLC2
22275 CSKrtON/l!FC3a/UFCCR(2.5)
222SO CCrtMON/l7HICX/lPlP£ (5) , I PUMP (5) , I7ANK (3) , ISASKCS)' , I7ANK2 (3)
22235 REAL IPIPE. IPU.nP, I7ANK. IGASK. I7ANK2
22290 C3/WON/ILOCAL/?ILOCAL(5) ,?«L3CAL(5) .7KLOCAL (3) ,7KLOCA2(3)
22295 REAL P!LOCAL,PMLOCAL,7KLOCAL,7KLOCA2
22300 REAL P:3R£,GCCR£,?MCOR£,7:3RE,7COR£2
22305 REAL LIFCCR
22310 REAL PIPLOC(5) ,?MPLOC(5) ,7NKLOC(3)
22315 REAL 7HAOJ ' '
22320 C3rtrtON/MA7?AR/APARtC?AR.APARPI .CPARPI , APARPM.CPARPM
22325 REAL APAR.CPAR.APARPI .CPARPI , 'APARPM.CPARPM
22330 CCMMON/VEN7/VCORE.VENI7I ,V£N7t. I VEN7, VLOCAL, VN7LOC, V£X7,
22335+VEX7LCC
223*»P REAL VN7LOC
223^5 R£AL VCORE.VENTI.VENTE.IVENT, VLOCAL, VEX7.VEX7LOC
22350
22355 .-.;:.;
22360 VN7LO'C«0
22365 00 7777 1-1,3
22370 7NKLOC(L)-0
22375 7KL3CAL(L)«0
22530 7KLOCA2(L)»0
2-2385 7777 CCN7INUE
22390 00 777 L-1,5
22395 P!PLOC(L)-0
22WO PMPLOC(L)"0
221*05 PI LOCAL (L)»0.
22^10 PMLOCAL(L)-0.
22I»15 777 CON7INUE
22U20 VLOCAL-0.
22U25 IF(VNTLOC.EQ.O)THEN
22U30 VNTLOC-FN8(LIFCOR(1,5))
22U35 IF(VNTtOC.EQ.l)7HEN
22kUQ 7HAOJ-IVEN7/.25
22U5 VLOCAL- ( I VEN7/FNN (3 . *APARP I *TH« J , 5lVAPARP I ) ) -VC3R£
22^*50 IF (VLOCAL. LT.O) VLOCAL-0.
22U55 ENOIF
221»60 ENOIF
22U65.00 32 1-1, NPI
221*7*0 IF(PIPLOC(I) .EQ.OJTHEN
22«»75 PIPLOC(l)-FNB(LIFCOR(1,5)*((PIPESA(l)/10.U7)**.l6))
221*80 iF(?iPLOc(i) .EQ.DTHEN
22U85 7HAOJ-lPIPE(l)/.25
22490 PILOCAL(I)-((IPIPE(I)/FNN(8.*APARPI*THADJ,5*APARPI))-PCORE(I)
• E79 -
-------
?!-
: 5' o E >« 31 F
23 : 5 ' F (AGP'.M?) THEN
23:: IF (?.«.PLCC{!) .EQ.OTKEN
223o P-.PL3C (I) -FN3 (LI FCOR (1 ,5))
21-:: IF l?,».PL3C{l) .EQ.DTHEN
223;5 THACJ-IPUMP(l)/.25
223-0 PMLCCAL(l)-(l?'JMP(l)/FNN(8.ftftPAR?.M»VTHACJ.5ftAPAR?.*.)) -PMCCRE (I)
223-3 IF(PMLOCAL (I) .LT.O.)PMLOCAL (I)-0.
ESOiF
22j?s tNOIr
::3co ELSE
22565 PMLOCAL (I)-0
22=70 ENOIF
225/5 IF (I .LE.NTX)THEN
22 = 80 IF (TNKLOC(I) .EQ.OJTHEN
22585 TNKLOC(I)-?NB(LIFCOR(1,D)
22590 IF (TNXLOC(i) .EQ.DTHEN
22=95 THAOJ-ITANK(l)/.25
22600 TKLOCAL (I)- (I TANK(I)/FNN (8.*APAR,5.*APAR) ) -TCORE(I)
22605 IF ((TKLOCAL(I) .LT.O.) .OR-. FRP) TXLOCAL (I) -0.
22610 ENDIF
22615 ENOIF
22620 ENDIF
22625 32 CONTINUE
22630 RETURN
22635 END. '.-.. •
22640 SUBROUTINE THLOS3 (THICXI,THICXE.GENINT.GENEXT.LCCINT,
226^5+ LOCEXT.CCMP.LOC)
22650* 'THLOSS' SUBTRACTS THE INTERIOR AND EXTERIOR CORROSION
226=5* RATES FROM THE COMPONENT'S PRESENT WALL THICKNESS.
2:660 COMMON/IYRNO/IYRNUM
22665*
2:670 INTEGER C3MP
22675 CCMMON/TANKMAT/CSTEEL.SSTEEL.FRP.CATSTEL.PICATH.CONCRT
22680 LOGICAL CSTEEL,S5TSEL.FRP,CATSTEL,PICATH,CONCRT
22685 CCMMON/COATS/COATING(*»,3,5)
22690 LOGICAL COATING
22695 REAL 7HICKI.THICKS.GENINT.GENEXT.LOCINT.LOCEXT
22700 COMMON/COAT Irt/1 COAT IM(3,5),ECOATIfl(3,5)
22705 REAL ICOATIM.ECOATIM
22710 COrtrtON/CATHOO/CATFAIL
22715 LOGICAL CAT?AIL
22720 COMMON/CATHLOS/CATHLOS
22725 REAL CATHLOS
22730 INTEGER IYRNUM
22735 IF((.NOT.COATING (U.COMP.D) .AND. (.NOT.CATSTEL)) THEN
227*»0 IF ((ICOATI«(COMP,LOC) .LE.IYRNUM) .AND. (ECOATIM (COMP.LOC)
22750* THICXI-THICXI-GEN INT-GENEXT-LOCI NT
22755 THICXE-THICXE-GENINT-GENEXT-LOCEXT
22760 ELSEIF(ICOATIM(CO«P,LOC) .LE. IYRNUM)THEN
22765 THICXI-THICXI-GEN INT-GENEXT-LOCI NT
22770 ELSEIF(ECOATIM(COMP,LOC).LE.IYRNUtt)THEN
22775 THICXE-THICXE-GENINT-GENEXT-LOCEXT
- E80 -
-------
I73C
27=0
:3co
NO ccp..=.:s;:v'/i."C3;:N
ENClr
ELS; IF ((.NCT.CCATING (-,C:,-.?. :)} .AN 3.CATS'-L)THEN
F (CATFAIL}Tr£N
223C5 IF (CCCATlrtCDMP.LOC) .L£. I YRNUM) .AND. (ECOATI ,1 (COM?, LOG)
2231C+.LE. I YRNUM) )THEN
TH I ::< I «TH I CK I -GEM I NT-GE.NEXT-LOC I NT
TH I CKE-TH I CKE-GEN I NT-GENE XT-LOCEXT
ELSE IF (I COAT I M (COMP, LOG) . LE . I YRNUM) THEN
THICKI-THICKI-GENINT-GENEXT-LCCINT
ELSEIF (ECOATIM(CQMP,LOC) .LE. I YRNUM) THEN
THICKE-THICXE-GENINT-GENEXT-LOCEXT
ELSE
NO CORROSION/EROSION
IF
ELSE
F ((ICOATIM(C3MP,LOC) .LE.IYRNUM) .AND. (ECOATI M (COMP, LOG)
LE. I YRNUM)) THEN
THICKI-THICKI-CATHLOS
THICKE-THICKE-CATHLOS
ELSEIF (ICOATIM(COMP,LOC) .LE . I YRNUM) THEN
THICKI-THICKI-CATHLOS.
ELSEIF (ECOATIM'(COMP,LOC) .LE . I YRNUM) THEN
THICKE-THICKE-CATHLOS
ELSE
NO CORROSION
22315
22920
22325
22830
22335
223i*0
223^5
22850*
223=5
2286.0
22865
22370-»-
22875
22380
22335
22350
22855
22900
22905
229 10*
22915
22920
22925
22930
22935
22«tO
229-5
22950
22955
22960
22965
22970*
22975
22980
22985
iLScl-F (CATSTEL)THEN
IF (CATFAIL)THEN
TH I CK I -TH I CK I -GEN I NT-GENEXT-LOC I NT
TH I CKE-TH I CKE-GEN I NT-GENEXT-L3CEXT
ELSE
THICKI-THICKI-CATHLOS
THICKE-THICKE-CATHLOS
ENOIF
ELSE
NO PROTECTION AGAINST CORROSION/EROSION
TH I CK I -TH I CK I -GEN I NT-GENEXT-LOC I NT
TH I CKE-TH I CKE-GEN I NT-GENEXT-LOCEXT
ENOIF
22990 RETURN
22995 END
23000 FUNCTION FNN(AVG.STO)
23005* THIS FUNCTION SAMPLES A NORMAL PROBABILITY DISTRIBUTION,
23010 COAWJN/AX/IY
23015 10 R1-RAN(IY)*2.-1.
23020 R2-RAN(IY)*2.-1.
23025 T-R1*R1+R2*R2
23030 IF(T.GT.1.) GO TO 10
23055* C»SQRT(-2.*ALOG10(T)/T)
230UO FNN-AVG+STO*C*R1
230J»5 IF(FNN.LE.O)FNN-.01
23050 RETURN
23055 END
23060 FUNCTION FNBE(XM,XL,XU)
- E81 -
-------
23075 S7:«(X'J-Xl}/3.3 '
23030 X,-!U«(X.",£-XL)/(XL!-XL)
23C35 V4R-(5T3/ (XU-XlM^S
230=0 A = (XMU**2.3-X,".l!**3.0
23055 3« (XrtU-2.0*XMU**2.0+XrtU**3.Q-l-VAR*XrtU-yAR) /VAR
231C3 X>?NG (A. 1 .)
23105 x;»-NG{3. i.}
231 10 X3-X1/ (X1+X2)
23115 FN3E-XL+(XU-Xl}*XJ
23120 RETURN
23125 END
23130 FUNCTION FN3 (A.3)
23135 COMMON/AC/IY
231UO II"A
231^5 AA-?LOAT(!I)
23150 T-ABS(AA-A)
23155 IF (T.EQ.O.)GQ TO 50
23160 IF((A.GT.O.) .AND. (A.LT.1.))GO TO 20
23165 IF((A.GE.l.) .AND. (A.LT.5.))GO TO 30
23170 R»RAN(IY)
231/5 T-ABS(AA-A)
23180 IF (R.GS.TJ GO TO 10 •..
23185 AA-AA-i-1
23190 10 FNG-FN=R(3.AA)
23195 RETURN
23200 20 X-RAN(IY)**(1./A)
23205 Y-R-ANKIY) **(1./(1.-A))
23210 z-x*^;.;.
23215 IF(Z.GT.1.)GO TO 20
23220 W-X/(X+Y)
23225 FNG—W>'«ALOG(RAN(IY)}^3
23230 RETURN
:3:35 30 II-A
AA«FLOAT(I I)
3a»AB3(AA-A)
23250 35 SUM-1.
23255 DO tO 1-1,1 I
23260 40 SU«-SUM*RAN(IY)
23265 X—(A/AA)*ALOG(SU«)
23270 R-RAN(IY)
23275 T- ((X/A) **BB) *EXP (-88* I NT ((X/A) • 1 .) -1.)
23280 IF(R.GT.T)GO TO 35
23285 FNG-X*8
23290 RETURN
23295 50 FNG«FNER(B.AA)
23300 RETURN
23305 END
23310 FUNCTION FNER(A.B)
23315 COttftON/AX/IY
2332*0. K-B
23325 SUM-1.
23330 DO 10 1-1,K
23335 10 SUrt-SU«*RAN(IY)
233W FNER—ANALOG (SUM)
233^5 RETURN
• E82 •
-------
EN:
3=•:••> TrilS RC'JTIN- SAr.?L£5 ":-• = =.:3i = ' '. ; "v ' Z- :-i~i;7=:=.r ' •:
5=5* AND SA.-.PLES THEIR ";"£ CF FA ;:_'..=.£.
573 CO.M..M.CN/CA7R£L/iNUCA7;:.7) , IGPRCC
375 REAL ANUCA7,IGPR33
2 330 C:.M.rtCN/PLACE/UG?IP£,AG7ANK, IG7ANK.UG7ANK.AG?I?£,AGPUMP
23355
23350 LCGiCAL UGPIPE.AG7ANK.IG7ANK,UG7ANK,AGPUMP,AGP I?£
23395 C3MMCN/CA7AS7/CA7AS7R(I2)
23400 IN7EG£R CATASTR
23405
234 1C C:r.*.CN/CA7A3/VANCAL.WINO.EAR7HQU,FLCC3.FIR£XPL,FlRE
23415 INT-GER VANDAL,WIND,EARTHQU,FLOOD,FIREXPL,FIRE ..
23420 N»7
23425 CO 50 1-2,N
23430 ANUCATU, I)-FNB(ANUCAT(1. I))
23435 50 CONTINUE
23440 VANOAL-0 '
23445 WINO-0
234=0 EARTHQU-0
23455 FIREXPL-0
23460 FIRE-O
2J465 FLOOD-0
23470 IF(AGTANK.OR.IGTANK)THEN
23475 IF (ANUCATU,2) .EQ.IJTHEN
23430 CALL FTIME (VANDAL)
23435 CA7AS7R(VANDAL)-VANDAL
23490 END IF
25^95 .I>CA'NUCA7{2,3) .EQ.D7HEN
23500 CALL FT I ME (WIND)
23505 CATASTR(WIND)-WIND
23510 ENOI?
235'5 SN01F
23520 iF(A,vL!CAT(2,4) .EQ.DTHEN
23525 CALL FTIME (EARTHQU)
23530 CATASTR (EARTHQU)-EARTHQU
23535 £NOIF
23540 IF ((ANUCAT(2,6) .EQ.1) .AND. (IGPROO.EQ.1))THEN
23545 CALL FTIME (FIREXPL)
23550 CATASTR(FIREXPL)-FIREXPL
23555 ENOIF
23560 iF(ANucA7(2.7) .EQ.DTHEN
23565 CALL F7IME(FIRE)
23570 CATAS7R(FIRE)-FIRS
23575 ENOIF
23530 IF(AGTANK.OR.IG7ANK)7H£N
23535 IF(ANUCAT(2,5).EQ.1)7HEN
23590 CALL F7IME(FLOOO)
23595 CATASTR(FLOOD)-FLOOD.
23600 ENDIF
23610 RE7URN
23615 END
23620 REAL FUNC7ION RUP7URE(COMP,IYRNUM)
23625* THIS FUNCTION SAMPLES THE RUPTURE FAULT TREE FOR
23630* COMPONENT RUPTURE.
- E83 -
-------
li;; C2iM.iM.CN/" : • =: " •'•
36-5 cc.M.A4.CN/c?cL/c=EN.CLOSE:
3=50 LOGICAL C?EN.CLCS£3
236=5 REAL VI3TCR
236 = 5 INTEGER COMP.IYRNL'M
23 = 70 CCr..«.CN/RliF72/YRPVON(2) ,YRVLCN(2)
23 = 75 CCW.«!CN,'R'J?71/OPCO«(2) .PRESREL (2)
23 = 30 COrtrtON/RU?PR03/TNKRUP:(2) .TNKRUP (2) .WLDRUP(2) .PlPRUPC) .PCR7HCS C)
23635 CCMrtCN/PLACE/UGPIPE.AGTANK,IGTANK.UGTANK,AC?I?E.AGPUflP
23=50 REAL YRPVCN.YRVLON.OPCCrt,PRESREL
23655 REAL TNKRUP2.TNKRUP,WLDRUP.PIPRUP.PORTHOS
237CO LOGICAL UG?IPE.AGTANK.IGTANK.UGTANK,AGP IPE.AGPLMP
237C5 IF(CLOSEO.ANO. (CCKP.EQ.J))7HEN
23710 Ir (.NOT.UGTANK)THEN
23715 YRPVCN(2)-rN3(YRPVGN (!))
23720 ELSE
23725 YRPVON(2)-0.
23730 END IF
23735 YRVLCN(2)-FN3(YRVLON(1))
237^0 SUPFAIL-!-(i-YRPVON(2)j * (1-YRVLON (2))
237^5 0?COM(2)-FN3(OPCOM(2))
23750 EXLIQ-l-(l-SU??AIL-)?1«(l-OPCOn(2))
23755 PRESREL (2)-FN8 (PRESREL(1))
237=0 OVER?R-PRESREL(2)*EXLIQ
23765 ELSE '
23770 O.VERPR-0
23775 ENOJI?.;.
23730 •|.F
-------
; • .< '.
25 = 35 i? ((CCMP.EQ. l) .AND.AG?!=E:THEN
253-0 LIF3E? (2.1J--N9 (Ll?3Er !'. :;)
2:5-5 LIFS-? (2.2)-rNSC.Ir-:E- {I.:)}
23 = = : V!B70R«I-(1-LIFOEF (2,!))* (I-L!FDE- C.2))
23355 ELSE
23==0 v:37:a-0
23965 ENCIF
2337C RU?7URE-1-(l-CVe3?R)*(l-LCAGRU?)*(l-SE7L!NS)*(l-V!37:R)
23375 RE7URN
23=30 £NC
23=5= SUBROUTINE OVE?.?LW(L.O.c.:w)
2339C* THIS ROUTINE IS SAMPLES MONTHLY FOR THE PRC3A3ILI7Y C?
23995'- AN OVERFLOW EVENT OCCURRING.
24000 COMMON/OFL5/CPVLOE (2) .OPVLON (2)
2^005 REAL OPVLOE.OPVLON
2^010 INTEGER L
2U015 COMrtON/PH/PH(5)
2i»020 REAL PH
2i»C25 COMrtON/OP£RAT/3ATCH,CONT
2UQ30 LOGICAL BATCH,CONT
2^035 CO,".r.ON/nOF/MOFILL(2) '
2i»OUO REAL MOFILL
2<*Cfc5 COMMON/SHUT/AUT3HUT
2UC50 LOGICAL AUTSHUT
21*055 COMMQN/OPR1/AUTOMAT,MANUAL
2CQ60 LO&r-CAL MANUAL,AUTOMAT
2U065 INTEG-SR OFLOW
2U070 C3MMON/OFL1/CFTRCOM(2),OFTRCM(2)
2^075 COMMON/OFL2/MOPMOE(2).MOPVON(2).MOVLOE(2).MCVLON(2)
2i*030 COMMCN/CFLj/MOPMCE (2) ,MC?.M.CN (2) .MOVLCE (2) .MOVLCN (2)
24C85 CC.M./10N/OrLU/MOALARrt(2).,?LVCN2(2) ,LEVIN2(2) ,FLVCN1 (2) ,OPCOMM(2)
2W90 REAL OFTRCCM.OFTROM
2*095 REAL MCPMQE,MOPVON,MOVLOE,MCVLON
2<*100 REAL MCPMCt.MOPMCN,MOVLCE,MOVLCN
2tiC5 REAL MOALARM.FLVCM2.LEVIN2.FLVCN1.0PCOMM
2k110 COMMON/CVER/MOL£V!N(2)
2UI15 REAL MOLEVIN
24120 REAL OPMALF.FSYSHUT.OFTR.PMFAILU.VLFAILU.SCrAIL
21*125 REAL PMFAILD.VLFAILO.SUFAIL.MECHFAL.FLTORES
24130 REAL MSSF.FIVCNSY.AEMSHSY
24135 COMMON/TECH/NEUT,CHREO.CYNOX,?RSCIP,OISTILL,EVAP,STORAGE,ACTCAR3
2^1uO LOGICAL NEUT.CHRED.CYNOX.PRECIP.OI STILL,EVAP.STORAGE,AC7CAR3
2411*5 OFLOW-0
24150 MOL£VIN(2)-FNB (MOLEVIN(1))
24155 OPCOW1(2)"FNB(OPCOMM(1))
24160 FLVCN1 (2)-FNB(FLVCNl (1))
2416? 0-TRCOM(2)»FNB(OFTRCO«(D)
24170 OFTROM(2)"FNB(OFTROM(1))
24175--MOPMOE (2) »FNB (MOPMOE (1))
24180 MOPVON (2)-FNB (MOPVON (1))
24185 MOVLOE (2)-FNB (MOVLOE(1))
24190 MOVLCN(2)-FNB(MOVLON(1))
24195 MOPMCE(2)«FNB(MOPMCE(1))
24200 MOPMCN(2)-FNB (MOPMCN(1))
- E35 -
-------
•4
,
<4
2-
21
**
2-*
&
2
^
2
^
2
2
i -
? A
;^
30
35
1 ^
** w
-5
FL
;.£
ur
• • w
c?
C_
I?
VCN2
v;
r i
VL
1 / *
» '—
(?
N2
r I
CN
^ ^
V i
' ^ )
.-."2
(2)
(2)
(2)
• ^ \
{-,
• , *
•?
MC
»r
*r
A
3 "
L £
•*N =
S3
N3
i1* r V
:N:
LEVIN:
r.c-F
> i
N3(C.= VLON
?. . .
- . - » '
.-.=)Tr
1 C
t£N
> .
v I / ';
\l i v '
•' P }
(:i)
{Di
on
2^250 «OPVCN(2)-C.
2^255 KCVLON(2)-Q.
r.CP-.CN(2)-0.
2-273 C?VLON(2)-0.
2^275 ELS£
MC?.M.0£(2)-0.
2-290
24295 MOVLC£(2)-0.
243CO 0?VLOE(2)-0.
24305 EMDIF
24310 IF (rtOFILL(2) .EQ.1)THEN
24315 IF (AUTOMAT)THEM
2^320 OP*ALF-I-(1-10L-VIN(2))*0-FLVCN1 (2)) * (1 -OPCOWt (2))
24325-^ * (1 -OPVLON (2) ) * (1 -OPVLOE (2) )
24330 ELSE
24335 OPMALF-1-0-,10L£VIN(2))*0-OPCCMM(2))
24340 END IF
24345 |F (Q.RrtALF.Eq.!)THEN '
24350 OFTR-
-------
2 — l ;V--.::. • Tr.i'J
2-500 c.::->=c: _:•»-;.
2-505 EN3I?
2-510 EN::?
2-515 £NDi?
2-520 RETURN '
21-525 END
24f30 SiJSRO'JTINE RELEASE (IFAC.YR.YRS)
2-525:': ' RE'-EASE' SIZES TnE FAILURE EVENTS 3Y SAMPLING A LEAK RATE
24540* FCR EACH FAILURE EVENT AND SAMPLING A TIME OF DETECTION. CORROSi
24545* LEAK RATES GROW WITH TIME AN'3 DETECTION TIMES ARE A FUNCTION 0-
24550* CETECTICN OPTIONS SE.ECTEO. DETECTION SAMPLING FREQUENCIES. _EAX
2^555* RATES.ANO VCLL'M- LOSSES.
2-560 COMMON/RETR/RE'RCFT
2!*565 LOGICAL RETROFT
2U570 LOGICAL PICFAIL.TKCFAIL
2U575 COMMON/LEVOP/OPLEV
2J.530 REAL CPLEV
2^*585 COMMON/TKFRAC/TANKTIM(3)
2!*530 REAL TANKTIrt
24595 COMMCN/WINSP/WEEXINS
2^600 LOGICAL WEEK INS
21605 REAL IFRAC.NOOFDAY
2U6 10 COMMON/TANKMAT/CSTEIL..SSTE EL.' FRP, CAT5TE L, P I CATH, CONCRT
24615 LOGICAL CST£EL,SSTE£L,?RP,CATSTEL,PICATH,CCNCRT
24620 COMMON/CRAO/CRAOLE
24625 LOGICAL CRADLE
24630 COW10N/TKGEOrt/HORIZ,V£3T
24635 LOG.ICAL HOP. I Z, VERT
24640 CO«Mb,V/PIPCCN/OIKE,CUR3,ASPAO,COPAD,?LINER
24645 LOGICAL 0 IKE.CUR3.AS?AO,CO?AO,PLINER
24650 COMMON/TECH/NEUT.CHREO.CYNOX.PRECIP,DI STILL,EVA?,STORAGE,ACTCAR3
24655 LOGICAL NEUT.CHRSO,CYNOX,PRECIP,01STILL,EVAP,STORAGE,ACTCAR3
24660 COMMON/OPERAT/3ATCH.CONT
24665 LOGICAL BATCH.CCNT
24670 COMMON/PI2Tlrt/DIKTIM(5) ,CURTIM(5) ,PASPTIM(5) ,?CC?TIM(5) ,PLINTIM(5)
24675 REAL OIKTIM.CURTIM.PASPTIM.PCOPTIM.PLINTIM
24680 COMMCN/ELOCAL/PIEXLOC(5) ,T:
-------
; -:.'... ..-,
:-•£:• ::r..".c.N/!-:-i i ex /!.= !'.=: if)
24755 REAL !?!?£. :?'..- = . iTiNK
2-730 C^.QN/THi CX S3- •'=>!?:'' (5
2-755 RHAL PIPE! ,?!JMP! .GASKI
24300 CC-.-nOM/LCCPCT/NPl ,NTK
24305 IST£GI3 S?l ,NTK
2*310 Cr.-rCS/IY'MO/
2U320 R£AL WKORQP.WKPNDR.UrRAC.WKPPNDR
2!*325 COW.ON/LINE/LINSTin(3)
2U330 R£AL L1NETIM
2U335 COMMQN/CCMNECT/WcLSrLG, GASKET
LOGICAL WtlDFLG. GASKET
2U350 REAL TTP.E.MVL.TPR-.1VL
24355 CC.1/10N/TANKREP/TANKR-?
2U860 LOGICAL TANKS-?
2i»365 RcAL PMONP.T
24870 COAWON/WATER/GWOPTH
2U875 REAL CWOPTH
2^330 C3/WON/GEOL/POSZ.TH-7A.NF FLAG. POR.THETAP, PERM
2U385 REAL POSZ.THETA.POR.THETAP.PERM
24890 REAL MCFRAC
24895 INTEGER FALNUM, F ALNUM1 , FALNUM3, FALNU«4, r ALNUM7
24900 COAWON/FALNUrt/FALNUM.FALNUMl (100) , FALNUM2 (100) , FALNUM3 (100) ,
24905+ FAlNUrtMlOO) ,FALNUM5000),FALNUM7(1CO)
24910 COMMQN/FALNUM6/FALNUM6 (TOO)
24915 CHAJTACTER FALNU«6*2.DLA8*2
24920 R£'AL'-F%LNUM2,FALMU«5
24925 REAL DIFrl ,DIFF],OIFF2,VAPRESS,VAPWOIS
24930 COW.CN/VA?WOIS/VAPWOIS(3)
24935 REAL PIOFSPH,PIRPSPH,PILKS?H,TKOFS?H,TKRPS?H,TKLKS?H,
24940+WLC.;:S?H,WLRPS?H,GXOFSPH.GXLKS?H,?MPSPH
24945 CS«MON/S?HVOL/PI-OFS?H(2) ,PIR?S?H(2) ,?ILKSPH{2) .TKDFSPH,
2i95S+TKRPS?H.7KLKS?H.WLOFS?H{2) .WLRPSPH (2) ,GKDFS?H(2) ,GKLKS?H(2) ,
24960 REAL VT!rt£
24965 CCP.«ON/VTI*E/VTIME(3)
24970 COMrtCN/VAPPRS/VAPSENS.VSENSOR
24975 REAL VAPSENS.VSENSOR
24980 COMMON/MASSOIF/OIFFI ,0 I FF 1 ,01 FF2.VAPRESS
24585 REAL VOL1
24990 COMMON/THRESH/LOWER, FLASHTM, FLASHX.FLASHVL, POOF, FLASHOP.FLASHPT
24995 REAL FLASHPT, LOWER, FLASHTH.FLASHX.FLASHVL.POCF.FLASHOP
25000 REAL 7FLASHX.7FLASH7
25005 CO/WON/LOWVOL1/VOL1
25010 REAL 7RP
25015 REAL 7CLVOL.77CVOL
25020 COMMON/CCLEAN/7CLVOL.77CVOL
25025 R£AL 7RVOL
2503V COMMON/RCLEAN/7RVOL
25035 COMMON/EXCAVAT/7XLNGTH (3) ,7XWIQ7H(3) ,7XOE?7H(3) ,PXLNG7H(5) ,
25040* PXWIOTH(S) ,PXOEPTH(5)
250U5 REAL 7XOEPTH.PXOEP7H
25050 REAL PPNOP7H
25055 CO/*.MON/CON7Art/PPNOP7H,7PNOP7H
- £88 -
-------
c;-K'.K
25C70 C3."..1CN/7
25C75 C:.-!rtCN/3
25030 C:.M..MON/WALL/7K2WALL.?I2WALI
25095 !.^7E:£= ?!33EF.Wl.33EF.GSK3£?,PIPLK.GSKLX.RU?PIP
25100 IN7EGER 7NKDEF.TNXLK.RUPTSK
25105 INTEGER LC:SE.HCS?GR7,?.'«.PLK.RUPWLD.VEN7
25110 IN7EGER UGCONT.AGCCNT.PIPCONT.NUGCCNT.NAGCCNT.NPlCCNT
25H5 REAL R?S£Art(2)
25120 LOGICAL 7K2WALL.P!2WALL
25;25 CCWlON/OAVOLl/LCSEV3L.OVEavOL(12).HOSEVOL.PILKVOL(=}.RPWLVCL;?;
25130 REAL LOSE VOL. OVERVCL.HCSEVCL.PrtLX VOL, RPWL VOL
25135 CCMMON/VOL2/ ?lu£.rVL(5} ,WLC£FVL(5) ,GKDEFVL(5) .PILKVOL (5) .GKLKVOL
25UO+C5) ,RPPIVOL(5)
25U5 REAL PIOEFVL.WLOEFVL.GKCEFVL.PILKVOL.CKLKVOL,RPPIVOL
25150 COMMON/VOL3/ TK3EFVL(3),TKLKVOL(3),R?TKVOL(3)
25155 REAL TKDEFVL.TKLKVOL.RPTKVQL
25160 COMMON/RATE I/ PlD£rRT(5) ,WLOEFRT(5) ,GKDE?RT(5) ,?ILKRT(5.) .GKLKRT
25165* (5) .R?PIR7(5)
25170 REAL ?lOErR7,WLOEr=7.-GKOE.cR7,P
-------
253=5 c:.arCN/MCN i T/rcNrt-T-i '") . ? i ?.~.CN
2537C LOGICAL MCN.-.£TH,?IP".CN
25375 C:.M.~.CN'/ I NVCNTL/ ! NVCNTL
253SO LOGICAL ISVCS'TL
25355
25350 C3W10N/PLACE/UG? I ?E , AGTANK , I STANK , UGTANK , AG? I ?E , AG?UM?
25355
25-CO LOGICAL UG? I P£, AGTANK, I GTANK.UGTANK , AGP'J.-.P , A3? i ?£
25^05
25- iO C3rtMON/TlrtCONV/HRSttO,rt!NMO,CAY«0
25*15
25^20 REAL HRSMO.ttlNMO.DAYrtO
25^25
25^30 LOGICAL PIRE?AP.,TKR;PA3,P«R-PAR
25*35 COMMON/PITR£/PIR£?AR(5) ,TKRs?AR(3) ,?MRE?AR(5)
25--0 REAL OErREL
25-50 CCW10N/INVEN/MINVLIM. I I NVL I «,WI NVL I rt
25*55
25-60 REAL MINVLIM, I INVLIM.WJNVLIM
25-65
25*70 C3W10N/PRINSP/PIPINS? (2) .TNKINSF (2) .PMPINSF (2) .SECINS? (2)
25*75 REAL ?l?!NS?,TNKINSr,?rtPIN3F, SECINS?
25-30 -.-, ;
25-35 COMrtdN/TST- i.AG/7XTST3 , ? I TS73 . ULTRTST
25-SO LOG I CAL'' TKTSTG , ? ! T3T3 , ULTRTST, ? I PST3T.TNK3TST
25-95 CCmjN/7?Llrt!7/PI73llA1.TKTSLIMt?lrtNLIrt
25500 REAL ?!TSLIM.TKT3LI«.PI«NLIrt
2=505 COrtttON/SErtlTS7/TNKS7S7,?l?S737
255'0
25515 CCrt.lON/T3TMCN/PITEST,TKTEST,ULTcST,LYST-3T
25520 INTEGER PIT-ST,TKTEST,ULTEST,LYSTE3T
2=525 COMrtCN/«C30ROP/MCWHCRT,GORO?
25530 REAL MCWHOR7.G3ROP
25535 REAL PrtOPEN.TMOPEN
255-0 CCMnON/MCNTHLY/PrtOPEN.TMOPEN
255*5 REAL LYSIM.LYSOPTH.PLYSIM.TPNOPTH
25550 COrt*ON/lYS/LYSlM(2) .LYSOPTH.PLYSIM
25555
25560 REAL 7K7HICK.TANK2
25565
25570 LOGICAL AG20E7,UG2DE7.PI20£7
25575 COWON/ALAR/1/ 1 NTERS7 (5 , 2) , I NTcR , P I I NTER'(5 , 2) , P I NT- R
25580 REAL IN7ERS7JN7ER, PUNTER, PINTER
25585 COmON/INSP/INSPECTCU)
25590 LOGICAL INSPECT
25595'.COrtrtCN/TKIN?0/?RACTUG,TNKCAP(3)
25600 REAL FRAC7UG.TNKCA?
25605 REAL PIPLEN
25610 COM*ON/PIPEOM/PIPLEN(5)
25615 REAL FNU.FN3
25620 LOGICAL ONG3
25625 REAL Ort.WO.LN
- E90 -
-------
v«v
-------
1 -
fe 7/
o
23
25
3: C;.M..M.CN/'FLSHP7/-LASHON, FLR£.Mi:
33 '.:•:;:AL FLASHCN.•'.?.£.".£:
-5 »£Au ?S£M07.?R£MR7,T?.£MC7.7R£MR7,P.£.1VL
i.5 REAL PI VOL (5) . 3KVCL(5) .WLV3'.;5; ,?MVCL(5) .7XVOL (3)
30 ?.£AL PSPI VCL (5) .PRGKVOL (5) .PRWLVCL (5) .PSPMVCL o) .PR7XVC1. ,'3)
35 ::M.-.:.s.':£F-LA3/OLTNK(3) ,CCTNK(3) ,CRTNX(3) .3'.GSK(5J .DCGSK '3} ,
=5 L:G:CAL OL7NK.::7NK,ORTNX,DLG3K.QOGSK.GDWL:.ORWLO,DL?IP.DRP!?,
25
75 REAL
32
2= 85 LOGICAL WLjFLGr.,WL2FLGD,G3KFlGL.GSK?LG3
25995 INTEGER NV£AR
260CO INTEGER Q7R .
26005 CCMrtCN/ISEES/lSEED
26010 INTEGER (SEED
26015 REAL Cl
26020 COMMON/INV/MQNINV.WEEKINV
26025 LOGICAL MONINV.WEE.KINV. ' •
26030 LOGICAL SKIP.MSKI? ' '
26035 COWION/VAPOR/TKCFVAP.TXRPVAP.TKLKVAP.PIOFVAPCS) ,PIRPVAP(5) ,
260^0-*- PILKVAP(5) .WG3FVAP (5) ,WGLRVAP(5) ,?MPVAP(5)
260^5 REAL TKDFVAP.TKRPVAP.TXLKVAP.PIDFVAP.PIRPVAP.PIL.KVAP,
26050-*- WGOFVAP.WGLRVAP.PMPVAP
26055 C3W.OH/VFLAG/VAPFLG.VAPOST
26060 LOGI'CRt VAPFLG.VAPDET
26065 INTEGER NONLEAK,AGGpAIL.AGNYFAL,AGCORNO,AGFLASH.AGTKRS?,AG?L15
26070 INTEGER AGUNOET,AGPLUME.AGP I?NO
25075 REAL CUMREU.AGPLVOL.ASPLARE.AGUNSAT
2S080+,AGTX1ST
26035 COMrtO\/AGG/NONL£AK.AGGrAIL,AGNYFAL,AGCCRNO,CU,H.REL,AG?l.=S'C.
26030-AGTKR£?,AG?I.'JM£,
2e095-AGPLVCL,AG?LAR£,AGUNSAT,AG?L15,AGUNOET,AGTX1ST
2610C^,AGFLASH
26105 DIMENSION TVOLUME(fcO)
26110 DIMENSION AGUNOET (UO) ,AGTK1ST (500)
26115 DIMENSION PTSTrRQ(UO) ,TTSTrRQ(40) ,UTSTrRQ(5)
26120 DIMENSION TRP (UO)
26125 OATA(CLENGTH(I),I-1,5)/10.,0.,36.,15.7,15.7/
26130 DATA(CWIOTH(I) , 1-1.5) /.25.0 ., 3 ., . 11
26135 DATA SEAMLEN/60./
26UO DATA SEAMWIO/.0625/
261*»5 OATA(CORTHOSd) . 1-1.2) /.25, • 125/
26150 IF(01 STILL)THEN
26155 ORANPMP(2)-0
26160 PMPLK(2)-0
26165. END IF
26170TKTEST-0
26175 ULTEST-0
26180 PITEST-0
26185 LYSTEST-0
26190 IF(YRO.EQ.O.OR.IYRNUM.LT.YRO)THEN
26195 YR-IYRNUM
- E92 -
-------
-------
, . - . . 3 .
2:-95 AGL:i*aO
2 = 5CO LiGL£AK-0
2 6 5 -r
26?'C LK3A~£»0.
2s5'5 AG.r?.ACaO.
2=520 AGIui'-.FALSE.
26525 UG2:£T».FALSE.
26530 PI23S7-.FALSE.
26535 IF(BATCH.AND.STORAGE)OlSCVOL (2)-VEHTANK
265-0 CCNT.VOL(D»r ILLVCL (1)
26 = -5 FLCWR7(1)-FILLST(1)
2=550 DC 9633 L-2.NPI
26555 FLOWRT(L)-OIS:RT(L)
26560 CONTVOL(L)»0i SCVOL (L)
26565 9633 CONTINUE
26570 AGSP-0
26575 00 33 L-I.NPI
26580 IF (L.LE.3)TKVOL(L)-0
26585 PIVOL(L)-0
26550 CKVOL(L)"0
26555 WLVOL(L)-0
26600 PMVOL(L}-0
26605 83 CONTINUE
26610***********TO AVOID LEAKS WITH NO RELEASE*'
26615 IF (UGTANK.AND.STORAGE) THEN
26620 R.UP.WLO (2)-0
26625 W.L'SflEF (2) -0
26630 G3KLK'(2)-0
26635 G3KDEF(2)-0
266-0 ENOIF
266-5 IF (.NCT.GASKETJTHEN
26650 DO 539 LP-l.NPI
26655 GSKOEF(L?)»0
26660 GSKLK(LP)-0
26665 539 CONTINUE
266/0 ENDIF
26680^ SET TIME OF FAILURE EQUAL 70 MCN7H CNE
26685* IF IT IS A CON7INUEING LEAK.
26650 00 1»03 L-l.NPI
26695 !F(NPIPOEF(L).£Q.1) PIPDEF (U-NPIP32P (L)
26700 IF(NWLOOEF(L) .EQ.l) WLOOEF (L) -NWLOBS? (L)
26705 IF(NGSKOEF(L) .EQ.l) G3KDEF (L) -NCSKO-? ('.)
26710 IF(NPIPLK(L) .SQ.I) ?IPLK(L)«NPIPLK-CI.)
26715 IF(NCSKLK(L) .EQ.l) GSKLK (L) -NGSKLK (L)
26720 IF(NRUPPIP(L) .EQ. 1) RUPP I P (L) -NRUPPI ? (L)
26725 IF(NPMPLK(L) .EQ.l) PP.PLK (L) -NPMP'.X (L)
26730 IF (NRUPWLD(L) .EQ.l) RUPWLO (L)-NRUPWLD (L)
26735. IF(MPIC3NT(L) .EQ.l) PIPCONT(L)-NPICONT(L)
267^0 -U03 CONTINUE
267^5 DO 4030 L-l.NTK
26750 IF(N7NKLK(L) .EQ.l) 7NKLK (L)-N7NKLK (L)
26755 IF(NTNKDEF (L) .EQ.l) 7NKOEF (L)-N7NKOEF (L)
26760 IF(NRUP7NK(L) .EQ.l) RUP7NK (L)-NRUP7NK (L)
26765 IF (NAGCONT(L) .SQ.I) AGCON7 (L) -NAGCON7 (L)
-------
2=770 IF (S
^=773 ^c-30
2=750* MONTH LCD?
2:755 DO 50 K-1,12
2 = 7=0 iSEEO-lSE-r-X
2-57=5 CALL RANSET(IS;E3)
2==CO* INITIALIZATIONS
2=305 KCFRAC-I.O
26310 IF (MOD (K.MINT) .EQ.OJTHEN
2=315 MINVLIrt*rtlNV
2=320 ELS£
2=325 MINVLIrt-lOCCCOO.
2=330 ENOIr
2=335 TREMDT=0
2=3«G TR-KRT-0
26oi*5 PREMRT-0
2=350 PREMOT-0
26855 TMOPEN-0
2=360 DETTIME-0
26865 DETECT-.FALSE.
26870 VAPDET-.FALSE.
26875 TREMREP-.FALSE.
26330 PREMREP-.FALSE.
26335 MONREL-0.
2=3=0 LKREL-0.
263=5 DEFREL-0.
26900 RUPREL-0.
26905 CATVOL-0.
26510 TPRSURF-TSURF
26915 PRSl/Rr^SURF
26520 PRSUa-'5U3SURF
26925 TPRSU3-TSU3
26530 DO 30639 L-1.NPI
26=35 PR.°IVOL(L)-PIVOL(L)
PRP.MVCL(L)-PMVOL(L)
?R'«LVOL(L)-WLVOL(L)
26950 PRGKVOL(L)-GKVCL(L)
26955 I F (L . LE . 3) PRTKVOL (L) -TKVOL (L)
26960 30689 CONTINUE
26965 SPILL-0
26970 DO 80776 L-l.NPI
26975 IF(L.LE.NTK)TKREPAR(L)-.FALSE.
26980 PMREPAR(L)-.FALSE.
26985 PIREPAR(L)-.FALSE.
26990 80776 CONTINUE
26995* SET TESTING DATES
27COO IF(TNKSTST) THEN
27005 TKTEST-6
27010 IF(K.EQ.12)TKTEST-12
27015 ENOIF
27020 IF(?IPSTS7) THEN
27025 PITEST-6
27030 ' IF(K.EQ.12)PITE3T-12
27035 ENOIF
27040 IF(?I?MCN)PIT£ST-K
2701»5 IF (MONMETH (l»)) THEN
27050 IF ((LTSTFRQ.EQ.l) .OR.(LTSTFRQ.EQ.U)) LYSTEST-K
- E95 -
-------
270-0
270=0 I
27'CO
ESOIF
ES::f
I F
TASTSOPHIC FA ILL'?.:
27110
271-5
27120
271:5
27130
27135
27^*0
27H5
27150
27155
271oO
2/165
27170
27175
27130
27185
27190*
2/155
27200
27205
I72!0
27215
27220
27225
27230
V
1
E
;
1
1
1
1
1
IF
N
IF
CLAB-'CA'
FALNUf.»
FALNwttl
FALN''J.M.-I
LT-.P-O.
IF (STORAGE) THE
ELSE
oo 29831*
VC
2983^
'=•
.NTK
(L)
CONTINUE
END IF
IF (WINQ.EQ.K) CATVOL-VOL'MP-^CATVOL
I F (EARTHQL1. £;.:<) CATVOL-VOLT^P-CATVOL
F (FLOOD. EQ..K)CATVOL»VOLTMP*CATVOL
IF (F IREXPL.E3.K) CATVCL-VCLTrtP+CATVCL
IF (r IR-.EQ.K) CATVCL-VOLTMP-^CATVOL
IF (VANDAL. E5.K) THEN
REPLACEMENT
F.('AaTANK)THE.M
.EQ.K57KEN
SU3SURF-(i-A3C3NFR) ^VCLTrt
ELSE
SJRF-VCLT.IP-t-S'JR?
EN3IF
ELSE IF (IGTANK)THEN
IF (UGCONT(l) .EQ.K)THEN
SURF-UGCONFR-WOLTMP-SURF
SU3SURF«(1-UGCCNFR)
ELSE
SURF-VOLTrtP+SURF
ENOIr
ELSE
UGTANK
27235
272<*0
272!* =
27250
272=5
27260
272S5
27270*
27275***
27280***
27285 ENOIF
27290 ENOIF
27295 IF(((WINO.£Q.K).AND.(AGTANK.OR.IGTANK)).OR.(EARTHQU.EQ.K).OR.
27300* ((FLOOD.EQ.K).AND. (AGTANK.3R.IGTANK)J .CR. (FiREXPL.EQ.K).OR.(
27305+*IRE.£Q.X))TH-N
27310*' REPLACE EVERYTHING
27315 00 31 L-1.NPI
27320 PIPCONT(L)-0
27325 IF (.NOT.PIPS-:) PIPCONT(L)-K
27330 NPICONT(L)-0
27335 PIR£?AR(L)-.TRUE.
- £96 -
-------
-
:;}-=
27350
273 = 5
273=0
273^5
27370
27375
2/3SO
27385
27390
27355
27-00
27-05
27^10
27^15
27^*20
27U25
27^30
27^*35
27^=0
27^*55
27^=0
27^65
27U70
27^75
27^30
27^35
27430
27495
27500
27505
27510
27515
27520
27525
27530
27535
27540
27545
27550
27555
27560
27565
27570
27575
27530*
27535
i? {w.:=?vL(L5 .G-.O CALL F;
i? (?.?wLV3L (L) .:'.:} CAL.
Ir (PID-rVL (L) .G7.3) THEN
INTLK(L)=0
CALL FIX(OLA3,K,YR,L,6)
PIPAGE (L)=0
NIMLX(L)-0
P = AN(L)«FNU(0.,2.)
•'=
IF (L.L£.NTX)7H:N
AGCONT(L)«0
UCC2N7(L)»0
IF (NCSECCN) 7HEN
AGCON7(L)"K
UGCON7(L)-K
ENDI.F
IF(R£7ROFTJ.UGCON7(L)»K
NAGCON7(L)-0
NUGCCN7(L)-0
7KREPAR(L)-.7RUE.
IF (TKDEFVLd.) .G7.0) CALL r I X (DLAB, K. YR, L,
END IF
IF (GKDEFVL(L) .G7.0) CALL Fl X (DLAB,K,YR,L
lr(L.LE.N7K) 7HEN
IF (RP7KVOL(L) .GT.O) CALL F I X (OLA3.K, YR, L , 2)
ENDIF
IF (RPPIVOL(L) .67. 0) 7H£N
,'. I.N7LK(L)-0
•' •'.'• CALL FIX(OLA3.K,YR.L,5)
PI?AGE(L)-0
3)
,8)
?RAN(L)«FNU(0.,2.)
ENDIF
CALL ?IX(DLA3,K,YR.L,4)
INTLX(L)"0
PI?AG£(L)-0
NUMLK(L)"0
PRAN(L)-FNU(0.,2.)
PMPLK(L)-0
CALL FIX(DLA3,K,YR,L,9)
PMPVAP(L)-0
CALL VAPZEROC3.L)
CALL VAPZERO(I.L)
PMLKR7(L)-0
IF(L.LE.N7K)CALL F I X (DLA3.K, YR.L, 1)
PrtLKVOL(L)-0
31 CON7INUS
RESAMPLE 7IME 70 FAILURE
CALL RE?LAC(8,U
27590 VAPSENS-VSENSOR
21535-' IJ-FALNUM
27600 FALNUM6(IJ)-'CA'
27605 DE7TIME»OE77I«E*2880
27610 IF (((rtAX(CE77IME,7REM07))-7REM07) .NE.O) 7HEN
27615 7REM07-OET7IME
27620 7REMR7-CA7VOL/DE7TIME
- E97 -
-------
27=50 7RE-REP-.TSU-.
27655 0ALL-.TRUE.
27660 IF (AG7ANK)7-i£N
27665
27670 Su3SURr-0-AGFRAC;
276/5 ELSSIF(IC7ANK)THEN
27650 ELSE
27655 Sl'SSL'SF-CATVCL-SUSSUR1
277CO ESOIF
27705 END!?
27710 VANOAL-0
27715 WINO-0
27720 EARTHQU-0
27725 FLCG3-0
27730 FiREXPL-0 - .
27735 FIRE-0
277i»0-.'rCA7AS7R IS ZEROED OU7 A?7ER CONTAINMENT FAILURE CHECK FOR S-.^.EOL
277^5 TR£MR£?».TRUE.
27750 MCNREL-MGNREL+CATVOL
27755 'END IF
277=0* LQOSE HCSE CONNECTIONS
277 = 5 IM
27770
27775 FALNUMl (FALNUM)«U07C^NTK
277SO FALNUM3(FALNUM)«(YR-i;
27735 FALNUM/ (FALNUM)-(YR-l) * I 2*K
27730 S?ILLRT-FNU(0.,0 ISCR7(N?I))
27SCO T>.25*0!SCTIM(N?I)
27305 T2-3ISCTIM(SPI)
27810 CALL RATED£T(3?ILLRT,TMIN,T1,T2,DETECT,DETTiME)
27815 IF(DETECT)THEN
27820 FALNUM6(FALNUM)-'RO1
27825 SPILL-SPlLLRTftOETTIME
27830 AGSP-AGS?*S?ILL
27835 !F(AGCONT(NTK) .EQ.K)TH£N
278i»0 FALNUMi* (FALNUM)-1
27845 TEMP«TSURF*SURF*AGCONFR*S?ILL
27850 SUBSURF«SU3SURF+(1-AGCONFR)*S?!LL
27855 MONREL-MONREL^SPILL
27860 ELSE
27865 TEMP-TSURF+SURF+SPILL
2/870 SPILL-O
27875- FALNUMU (FALNUM) »0
27880 . END IF
27885 CALL CLENUP(TEMP)
27890 TSURF-0
27395 SURF-0
27900 T?RSURF-0
27905 PRSURF-0
- £98 -
-------
2/3 '0 FAiN'J*2 (r'A-.SL,'
I?}!; FALNJK5 !f;.Nw.
27=20 ELSE
(FALNU.M) -0 . SCTi." {N.= ! ) /6v.
FALN'J,M.2 (r ALNUrt) = 3 = 1 .-?."* *Z 1 SCTIM (N?l
SPlLL-S?ILLRT*GiSCT;M(M?l)
273^C IF (AGCCNTCNTK) .EQ.KJTHEN
273-f FALNUMU (FALNUM) -1
27550 TSURf»TSURFJ-AGC3NF3*S?HL
27555 TSUB«TSU3*(]-AG:CNFa) ^SPILL
275iJ ELSE
275=15 TSL'R?»TSLI?.F---S?ILL
27570 FALNU«H(FALNU«)»O
27375 END IF
275SO AGSP-AGSP-SPILL
27535 ENOIP
27550 AGS?ILL-S?ILL*AGS?ILL
27935 LOOSc-0
23CCO END IF
2o005='- OVERFLOWS
23010 DO 76599 L-l.NTK
23015 CALL OVERFLW(L.OFLOW)
2SC20 IF (OFLCW.EQ.DTHEN
23025 FALNUM-FALNUtt-l-1-
23030 FALNUM1 (rALNUM)»i*080-rL
23035 FALNUM3 (r ALNUM) » (YR- ]) *12+K
230^0 FALNUni»(FALNUM)-0
230i*5 FALNUM7 (r ALNUM) » (YR- 1) * 1 2+K
280^0 '• . FALNUM6 (FALNUM)-'RO'
230=5 'IK (-AGTANK.OR.IGTANK)THEN
23060 • SRILLRT-FILLRT(L)
23C65 IF (BATCH) THEN
23C70 OETTirtE-FNU (0. , F I LLTIM (L) )
23075 ELSE
28030 DETTlrtt«FNU(C.,30.)
28085 ENCIF
23090 S?ILL-S?IILRT*OE77IM£
23095 AGSP-AGSP+SPILL
2810C SPILL-(1-AGCONFR)*SPILL
23105 IF (ULVAULT.OR.LVAULT)THEN
23110 IF (UGCONT(L) .EQ.K)THEN
28115 FALNUMMFALNUM)-!
28120 TSURF-UGCONFRftSPILL-t-TSURr
28 1 25 TSUB- (1 -UGCONFR) *S? I LL+TSU3
28130 ELSE
28135 TSURF-SPILL+TSUR?
23 UG END IF
23145 ELSE
28150 IF(AGCONT(L) .EQ.K)THEN
28155 FALNUM(FALNUM)»1
28160 SURF-SURF+AGCONFR*S?ILL
28 1 65* TSUB-TSUS-r (1 -AGCONFR) *SP I LL
28170' TEMP-TSURF*SURF
28175 ELSE
28180 TEMP-TSURF+SURF+SPILL
23185 SPILL-0
28190 SURF-SURF*S?ILL
- E99 -
-------
•M
--O
232-5
23:3-3
23-35
2S:6o
232 = 5
23272
28275
282SO
28255
2829C
23295
28300
23305
28310
28315
23320
28325
28330
23335
23340
28345
23350
23355
23360
23365
28370
23375
23330
23385
28390+
23395
28^00
28405
28410+
28415
28420
28425
28430
23435
28440
28445
28450.
2845**
28460
28465
23470
28475
ENGIF
CALL
( 1 5 . + F ! LLR" -L)
SURF-0
T??.S'JRF«0
PSSwP.F-C
FALNUM2 (FALNU.M) •SP
FALNUM5 ('ALNU.I) -OE
•LS- IF (VAL,'L7)TH£N
S?ILL»rtlN(FNU(15..r ILLVOL (L) )
FALNUM2 ("ALNU.1) -SPILL
FALNUM5 (FALNUM)-I
AGS?-AGS?+S?ILL
IP (UCCONT(L) .£Q.X)TH£.M
FALNUM4(FALNUM)-!
T£MP-TSURF+SURF
'ELSc
TEMP-TSURF-t-SURF+S? I LL
SPILL-0
END IF
CALL CLENUP(TErtf)
TSURF-0
SURF-0
TPRSURF-0
PRSURF-0
.-.:. TEMP-0
• •' .'/-'IF (UGCONT(L) .EQ.K)THEN
FALNU«4(FALNUM)»1
TSURF»T3URF-HJGCONFR*S?ILL
T5UB- ( 1 -UGCONFR) *SP I LL+TSU3
ELSE
TS;JRF»TSURF-i-5?iLL
END IF
ELSE
IF ( (RUPWLO (2) .EQ.K) .OR. (G3KDEF (2) .EQ.K) .OR. (WLDOE? (2) .EQ.K)
.OR. (GSKLK(2) .EQ.K) .OR. (VENT. EQ. K) ) THEN
SPILL-3-3
ENOIF
I F ( (RUPWLO (2) .SQ.K) .OR. (GSKDEF (2) .EQ.K) .OR. (WLDOSr (2) .-Q.K)
.OR. (GSKLK(2) .EQ.K)) THEN
TSU8-SPILL+TSUB
FALNUM2(FALNUM) -SPILL
FALNU«5(FALNU«)-1
ELSEIF (VENT. EQ.K) THEN
TSUB-SPILL-t-TSUB
FALNU«2(FALNU«) -SPILL
FALNUM5(FALNUM)-I
ELSE
NO OVERFLOW PATHWAY
FALNUrtl (FALNUM)-O
FALNUM2(FALNUM)-0
FALNU«3(FALNUM)-0
FALNUM4(FALNUM)-0
• E100 -
-------
FALNL-5 'riLVj.") =:
FALNU.lB (FALNUr., =
28510
2 = 51 =
23520
23525-
23 = 30
23535
235-C
2S3-5
23550
23555
23560
23565
28570
23575
23530
23585
23590
28595
286CO
23605
28610
23615
23620
23625
28630
f ^ ft \ ^
END I?
END I F
S?!LL»0
ENDiF
7=553 CONTINUE
PORTA3LE HOSE RUPTURE
IF (H3S?CRT.EQ.X)THEN
FALNUM-FALNUK-H
FALNl'.ll (?ALNU.M.)
(FA.NU.1) "(YR-I) » ! >K
(FALNUM) »0
FALMUM7 (FALNUM)"(YP.-1) >V!2-!-K
S?ILLRT-FNU(O..DISCRT(NPI})
TMIN-I.
T1-.25*OISC7IM(N?|)
T2-OISCTIM(NPI)
CALL RATECET(S?ILLRT.7MIN.71 ,72 . DETECT, DETTIME)
FALNUM2 (FALNUM)«S?ILLR7iVOE77IME
FALNUM5 (FALNUrt) -OETTIME/60.
IF (DE7EC7)THEN . •
FALNU*6(FALNU«)-'3D'
S?ILL-S?ILL.=.7ADE77lrtE
2S6W
26645
2365C
28b55
23660
23665
28670
28675
28630
28685
23690
28695
28700
23705
23710
28715
28720
23725
28730
28735.
28750
28755
28760*
IF (AGC3NT(N7K) .EQ.KjTHEN
. •. . FALNUMU(FALNUM)-!
.'• .',.'. 7iHP-7SURFJ-SURFTAGCCNFR'''S?ILL
SU3SURF-SUSSURF-i-(l-AGC:.NF = ) '''SPILL
ELSE
7E.M.P-73URF+SURF-rS? i LL
END IF
CALL CL£MUP(7EMP)
73URF-0
SURF-0
7PRSURF-0
PRSURF-0
S?ILL-(1-AGCONFR)*S?ILL
ELSE
SPILL-S?ILLR7*FNU(0.,OISC7I«(NPI))
ACSP-AGSP+SPILL
IF(AGCON7(N7K) .EQ.K)7HEN
FALNUMU(FALNUM)-'
TSURF«TSURF*AGCONFa*S? I LL
TSU8»TSUB+(1-AGCONFR)*S?ILL --
ELSE
• 7SURF-7SURF-f-S?!LL
END IF
ENOIF
AGSPILL-SPILL-i-AGSPILL
MONREL-SPILL-i-MONREL
HOSPOR7-0
SPILL-0
ENDIF
PERMANEN7 HOSE RUP7URE
- E101 -
-------
2:7 = 5
2: 7~3
237=5 S?
233CO
2S3C5
23310
2 = 3:5
23320
23325
2 = 330
22335
2S3-0
FA. SL1^. I (FiLNJ.
?i>N'J.n7 (rALNiJ." »{v=-i) ••:]2-S
ILLHT=r,NU(C.,:iSCR7(N?l))
283=0
233=5
23560
28865
23370
2S875
23350
23835
288=0
28395
239CO
28505
28910
23915
23920
28925
28930
23535
289^0
289^5
2S95C IF
2S955*
28960 oo
23965
28970
28975
28380
28985
23990
23995
25000
29005
29010
29015
29020-
29025
29030
29035
2901*0
2901*5
CALL RATsC£T{S?ILLST.TMIN.rt ,T2.0ET£CT.D£TT!M£)
FALNUM2 (FALNU/*) »5.3I LLS7--^£7Tirt£
"AL.NUM5 (-ALNUM) -:£77i: «.£/=:.
IF (3£7£C7)7HEN
S.3ILL»S?llL37*C;77i*E
AGS?-AGS?-!-S?ILL
IF (AGCONT(NTK) .EQ.X)7H£N
FALNUM6(FALNUM)-'RD'
7£MP-7SURF-rSUR.SJ-AGCONFS>vS? I LL
SU3SURF-SU3SURF+(1-AGCONF3) ASPl LL
«ONR£L-MONR£L-i-SPILL
ELSE
7E.1P-7SURrTSURF-i-3?ILL ..
END I F
CALL CL£NUP(T£MP)
T3URF-0
SURF-0
TPRSURF.-O
P8SURF-0
••• .USE
• -s? i LL-s? i LLRT*CNU (o . , o i sen M (NP i ) )
AGS?-AGS?*S?ILL
ENDIF
AGS?ILL-S?ILL-l-AGS?ILL
HCSPEP.rt-Q
SPILL-0
•NDIr
(AG?UMP)7H£N
PUMP DRAIN LEFT OPEN
196U3 L-1.NPI
IF (DRANPMP(L) .EQ.K)TH£N
FALNUM»FALNUM*1
FALNUrtl (FALNUM)-J»110+L
FALNUM3 (FALNUM) • (YR-1) *12+K
F ALNUM7 (f ALNUM) - (YR- 1 ) * 1 2+K
SPILL"OISCRT(L)*FNU(1.,3.)
FALNUM2 (FALNUM) -SPILL
FALNUM5 (FALNUrt) -1
FALNU«6(f ALNUM) »'RO'
AGS?-AGS?*S?ILL
IF(?I?CCN7(L) .EQ.KJTHEN
TE«P»TSURF*SURF+?AGFRAC*S? I LL
SUBSURF-SUBSURF+d-PACFRAC) "SPILL
MONRE'.-MONREL-rSPILL
ELSE
TtrtP-TSURF-t-SURF-i-S? I LL
- £102 -
-------
2=Q;C S?ILL"o
2=0=5 EN3 IF
29050 CALL C
2=065 TSURF-0
2=C70 SURF-0
2=075 TPRSURF-0
290SO PRSURF-0
29035 SPILL-(l-PAGFSAC)ftS?ILL
29090 AG3?ILL«S?ILL-rAGS?ILL
29095 ORANPrtP(L)-0
29100 SPILL-0
29105 ENOIF
29110 196-3 CONTINUE
29115 END I?
29120 AGSPILL-0
29125 TErtP-0
29130* PIPE INSTALLATION OcFIC-INCY.
29135 DO 51 L-l.NPI
29 UO IF(PIPOEF(L) .EQ.KJTHEN
29U5 ITYPFLG-1010+L
29150***NOT A CONTINUOUS LEAK
29155 IF (PIDEFVL(L) .EQ.OJTHEN
29160 FALNUM-FALNUM-H
29165 FALNUttl (FALNU.rt)--l7YPFLG
29170 FALNUM7(FALNUM)-(YR-l)ft12-i-K
29175 ONGO-.FALSE.
29180 CALL LEAKRT(CNGO,1,L,0,LKRATE,D«,PIOFWID(L),?IOFL5N(L))
29185 P!DEFRT(L)»LKRAT-
29190 -. ENOIF
29195 DETECT*.FALSE.
29200 I F (MGrtMETH (7) .ANO.PIPSEO7HEN
29205 DLAB-'IS1
29210* INTERSTITIAL MONITORING
29215 PI INTER(L,2)-FN8(?I INTER(L.l))
2 = 220 IF (PI INTER(L,2) .EQ.OTHEN
29225 DETTI«E«FNU(60.,/20.)
23230 DETECT-.TRUE.
29235 GO TO 1
29240 ENOIF
29245 ENOIF
29250 OE7EC7-.FALSE.
29255 IF (AGP IPE)THEN
29260 TMIM-.25 ' -
29265 JF (BA7CH)72-CON7VOL(L)/FLOWRT (L)
29270 - IfeCONTJTHIM .::
29275 '? <- 72-
29280 -fe ... ; IF(72.L7.
29285 .^v^iMai.» ....^
29290 -^Su. 71-.25*T2 ,."'-
29295 ' CALL RA7EOE7(PIDEFR7(L) .7MIN.71,72.'(JE7-C7,OE77:M£)
2930a OLAB-'RU' . ' . ",
29305.- IF(OE7EC7) GO 70 I -- .:-"
29310 IF(INVCN7L)7HEN '
29315 CALL l/WINV(1,L,PIOEFR7(U',,D^TEC7,OE77lrtE)
29320 OLA*-'!!'- -«^-B
29325 IF(OE7EC7) GO 70 1 ' ' : ;.']:
29330 ENOIF .. .. -,'
- £103 -
-------
2 = 3=0
23503
25370
25375
293SO
25335
25350
29395
23^00
2§4C5
29^10
29*'5
25U20
2=^25
29*30
29^35
25»*C
29^5
291*60
25^65
29^70
291*80
25^30
29^95
25500
29505
25510
255 «5
23520
25525
25530
2S535
295^0
235^5
23550
29555
29560
29565
29570
29575
29580
29535'.
29590
29595
29600
29605
29610
29615
iF({?!?c:N7i'i; .E:.K; .:=. i.NC7.?:?St:: J7.-.-N
IF (.N07.VA?ria;-:-£N
IF (PIDFVAP(L) .-;.0.)7H£N
CALL VAPC.5. f'%-'.:/'.,?! :rVi.= (L) .cr-r;-)
IF (.NOT.OE7EC7) VAPFL3-.73«E.
?! OFSPH (L) -.03 13*PCR*VArWD i 3 ((«".) /L) **3
ENOIF
IF (.N07.VAPFLG) 7H£.M
S?H7l«t«?IOFS?H(L)/PIO£:S7(L)
•! F ((VTI ME ( (t-L) /L) *P I OEFR7 (L) )• . GT. P I CFSrH -.J . AN3 . .M.AX (3?-.": M:
? ! D-VA? (L); . -£Q.? I DrVA? (L) ) 7!r£N
IF (?!C.CVA?(L) .G7.132:0.) 7H-M
PIOFVA?(L)-?IOFVA?C.) --320C.
DE7EC7-.FALSE.
ELSE
DE7EC7-.TRUE.
DE77IME-PIOFVAP (L)*l***»0
VAPOE7-.7SUE. "
ENOIF
PI OFSPH (L) -PI OFSPH (L) -Ml NMO^'P I OEFR7 (I)
ELSE
OE7EC7-.FALSE.
IF (SPHTIME.LT.MINMO)THEN
DETECT-.TRUE.
OE77IME»SRH7IME-!-li*40
VAPDET-.TRUE.
.'••••;. ELSE
' " '- DE7EC7-.FALSE.
PIOFSPH(L)-PIOFSPH (L)-MlNMO*PIOEFS7 (L)
PIOFVAP (L)-PI OrVAP (L)-n3200
ENOIF
ENOIF
ENOIF
ENOIF
IF(OE7£C7)GO 70 1
ENOIF
ENOIF
ENOIF
IF(UG?IPE)TH£N
IF(INVCNTL)THEN
*?&&¥ CALt^llWIMV(l.L.PIOEFRT(L), DETECT, OETTIME)
ffi.v^'". OLAS-'ll1
E&& I f (DETECT) GO TO 1 •
«a\:--
•<^l
-------
PISFVA? CJJ-.EQ.
!'"*•""? ~ \' ' ' u ~ ^ • ^ • " ^ H v' ) • * v' ** •
• A 3 .= - •
22650
296=0
29600
29=65
296/0
29675
29=30
29690
29655
2S700
29705
29710
29715
29720
29725
29730
25735
297^0
297^5
29750
29755
29760
29765
29770
29775
29730
29785
29790
25795
298CO
25805
29810
29315
29820
29825
29830
29835
29840
29845
29850
29355
29860
29865
29870
29880
29885
29890
29895
29900
(?!2-VA?.;L; .GT.*3;CC.; THEN
PluFVAPiLi-PICFV*? ;.} --52;
CE~ECT=.FALS£.
ELSE
DETECT-.TRUE.
VAPOET-.TRUE.
ENDIF
ELS-
DETECT-.FALSE.
IF (S?HTI«E.LT.*IN.M,0)THEN
DETECT-.TRUE.
DETTIME-S?HT1ME*U40
VAPDET-.TRUE.
ELSE
DETECT-.FALSE.
PIOFSPH (L)-PIDFSPH (L) -Ml NWC^P I OEFRT (L)
PIOFVAP(L)-PIDFVA? (L)-U3200'
ENDIF
ENDIF
END'IF
ENDIF
IF (DETECT)GO TO 1
ENOIF
ENOIF
; ENDIF
'•; IF (PIDEFVL(L) .EQ.O)THEN
'• MOFRAC-FNU{0.,1.)
IF(L.EQ.1)THEN
? I DEFVL (L) -? I DEFRT (L) *OAYMO<»F I LLFR (L) *F I LLTIM (L) *MOFRAC
F(((MAX((?IOEFVL(L)/PIDEFRT(L)) , PREMOT))-PREMOT) .NE.O) THEN
PREMOT-PIDEFVL (L)/PIOEFRT (L)
PREMRT-PIOEFRT(L)
ENOIF
ELSE
PIDEFVL (L)-PIDEFRT(L)*OAYMO*MOFRAC*01SCFR(L)*DISCTIM(L)
F(((MAX ((PIDEFVL(L)/PIDEFRT(L)) ,PREMOT))-PREMOT).NE.O) THEN
PREMOT*PIOEFVL(L)/PIOEFRT(L)
PREMRT-PIOErRT(L)
ENOIF
IF(I1.£QL1}TH£N ' ' •
: PIBtFVL(U-PIDEFRT{t.) *DAY«0*F ILLFR (L) *F I LLTI«(L)
CtX/W*((PJ'DEFVL(L)/PlO£FRT(L)) , PREMOT) ) -PSIrtOT) .NE.O) THEN
PREKOT-PIOEFVl(L)/PIOEFR7,(],)~,,- '-.•'$
PREMRT-PIDEFRT(L) :*..', : -.-' •.
.
ELSc
PI
F (((MAX((PiO£FVL(U/Plp|FRTajUP8EflOT)) -PREMOT) .NE.O) THEN
«£MOT-FlOEFVL(Lf/PIOKRT(Lr,; .--
PRE/1RT.PIOEFRT(L) -••*••*•>*'* - \:
ENOIF
- E105 -
-------
IF [AC?!
IF(=lr
7Sl'5-(l-?AG?RAC; *?ID£-VL (L)-Ti-3
?IVOL(L)-P!VOL('.)T?IO£rVL(L)*{i-.3AG?SA:;
ti.Sc
7SURF-?IDEFVL(L}+73URF
l OE'rVL (L)
951
5530
55-5
53-5
259 = 3
25555
29960 TSUS-PIOEFVL(L)*TSU3 .
2396= P ' VCL (L) -? I VOL (I) -? : aS'VL (L)
25573 ENCIF
25975 DO 807 Il-FALNUrt.l.-l
2S9SO IF (FALNL'.ll (! I) .EQ. I7YPFLG) TH£N
29585 IF{FALNUK7(I I) .SQ. {(YR-1) *12+K)) THEN
25990 FALNU.t2(ll)-PIOEFVL(L)
25995 FALNU«5(M)-MOFRAC*720
30000 ELSE
30005 FALNUM20 I)-FALNUM2(I I)
30010 FALNUM5 (I I)-FALNUM5(I I)
3CC15 ENOIF
30020 FALNUK3 (I I) «{ (YR- 1) *1 2) *K
30025 G3 TO 308
30030 END IF
3C035 807 CONTINUE
3001*0 808 CON7INUE
3001*5 ..'-..: GO 70 2
30050 T- ',:•'• OeFREL-?lDEFRT(L)*OET7IMS
30055 IF((L.EQ.1) .AND. (.NOT.((AGTANK.AND.VERT.AND.(7NK
30060* .GT.10CC))) .OR. (IGTANK.ANO. (FRACTUG.LT..5))))
30065 IF (OcFREL.GT. (FILLVOL (1)*FILLFR(1)*OAYMO)) D£?
30070* FILLVOL(1)*FILLFR(1)*DAYMO
30075 £LSEIF ((L.NE.!) .AND.(.NOT.((IGTANK.ANO.(FRACTUG.
.CR.AGTANK)))THEN
IF(0£rR£L.G7. (FlLLVOL (1)*FILLFR (1)*OAYrtC))0£F
30050* FILLVOL(1)*FILLFR(1)ftQAYMO
30095 ELSE
IF(D£?REL.GT.(TNKCAP(L-l*l/L-L/5) *OPL£V)) THEN
OEFREL-TNKCA?(L-l*l/L-L/5)*OPLEV ,
END IF " .
0CS5
CAP (I)
THEN
REL-
LT..5J)
R£L-
30100
30105
30110
30115 ENOIF
30120
30125
30130
30135
30 UO
30 U5
30150
30155
3016ft'-
30165
3017Q
30175
30180
30185
«Oft.JOf ll»FALNUM,l,-l
* IF(FALNIW1 (II) .EQ.ITYPFLGJTHEN
- FALNU«2(M)-FALNUM2(I l)*0£FREL
" FALNU«5 (II) •? ALNU«5 (I I) +OE-TTI rtE/6C.
. JBO TO 810 . .:
EKOIF -•••.••••. .. • : ... :.-:/ .
803 CONTINUE- '•- - : :: .'-,,.,
810 CONTINUE " .
FALNUM3(II)-((YR-1)*12)*K
EQiRX THEH.-/ ." '-,;-'-
•*•-••'" TEMP-TSURF-rSURF*PAGf RAC*OEIWk'
CALL CLENUP(fE«P) -•:...;":. -"--,:,0
TSURF-O "' " ' ' :...,
3 '
• E106 -
-------
?n • cr
.* » • ~ >
3::co
30205
3C212
3021 =
30220
3C225
30230
30235
3020
3021.5
30250
30255
3C26C
30265
30270
30275
30280
30235
30290
30295
30300
30305
30310
30315
30320
30325
30330
30335
3031*0
303^5
30350
30355
30360
30365
30370
30375*
30380
30335
30390**
30395
30400
30405
30410
30415
30420
30425
30430
30435
30440
30445-'
30450* I
30455
30460
30465
30470
TS?.S:J = ?«O
PRSURF-0
D E F R E i. • (i • 3 A G F R A C 5 ••• C E ~ R E _
AGR'J.s7=D£?REL-AGrt'J?7
ELSE
DE-RE l-OEFRELJ-TSURF->-Sl--?.F
CAL'. CL£NU?(DE?REL)
T3UP.F-0
SURF-0
TPRSURF-0
PRSURF-0
ENOIF
ELSE
UGRU?T=QEFREL-UGRU?T
ENOIF
PIVOL(L)«PIVOL(L)J-OEFR£L
MONREL-OEFREL+MONREL
. DETECT-.FALSE.
IF (((«AX(DETTIM£,PREMOT))-PREttDT).NE
PREMOT-OETTIflE
PREMRT-PIDEFRT(L) ••
END IF
CALL FIX(DLAB.K,YR,L,6)
CALL FiX(OLA3,K,YR,L,4)
CALL FIX(OLAB,K,YR,L,9)
CALL VAPZSRO(l.L)
•.'•!;?. (GKDEFVL(t) .GT.O)
• ' l'r-(WLCEFVLv'L) .GT
IF (RP?IVOL(L)
IF (RPWLVOL(L)
,0} THEN
.0)
.GT
L,8)
FIX(OLAB,K,YR,
FIX(DLAB.K,YR,L,7)
F!X(DLA8,K,YR.L,5)
FIX(DLAB,K,YR,L,10)
DE
IF
CALL
CALL
0) CALL
0) CALL
ENOIF
2 CONTINUE
DEFREL-0
51 CONTINUE
DO 52 L-l.NPI
RUPTURED PIPE
IF(RUPPI?(L) .EQ.K)THEN
ITYPFLG-2010+L
NOT A CONTINUOUS LEAK
IF(RPPIVOL(L) .EQ.O)THEN
FALNUM-FALNUM+1
FALNUM1(FALNUM)-ITYPFLG
FALNUM7(FALNUM)"(YR-1) *12+K
ONGO-.FALSE.
CALL LEAKRT(ONGO,1,L.0,LXRATE,Ort,R?PIWID(L) ,RPP!LEN(L))
RPPIRT(L)-LKRAT£
ENOIF
TECT-.FALSE.
(MONM£TH(7) .AND.PIPSEOTHEN
OLAB-1IS1
NTERSTITIAL MONITORING
PI INT£R(L.2)-FNB(PI INTER (L,l))
IF (PI INTER (L.2) .EQ.O)THEN
DETTIME«FNU(60.,720.)
DETECT-.TRUE.
- E107 -
-------
* •* •• " 3
3C-35
305 :a
3-5' ^
3-r'5
5:512
305:5
30530
305-0
305-5
30550
30555
30560
30565
30570
30575
305SO
30535
30590
30555
306CO
30605
30610
30615
30620
3C625
30630
50635+
3C6i»o
30o50
30655
30660
30665
3C6/0
30675
30680
30685
30690
30695
307CO
30705
30710
30715
30720
30725*'
30730
30735
1F(
D£7£C~».-ALS£.
\f (AG?IP£)7h£S
IF (3A7CH)72-CCN7V3L (L)/F LOWR7 (L)
IF (CCN7)7H£N
72-(2«.-CPHRS2Y}ft60.
IF (72.L7. (H.*6C.))72»«.*60.
END IF
CALL RA7-: £7 (RPP i S7 {L} , 7,11 N . 71 .72 , CE7E-C7. D E77 : .-.= ;
OLAB-'RO1
IF (D£7£C~) CO 70 101
IF (INVCN7L)7HEN
CALL hlrtlNVd ,L.RPPIR7(L) , DE7EC7, 0£77l«£)
OLA3"'II'
IF (D£7£C7) GO 70 101
ENOIF
IF(MONME7H(5))7HEN
DLA3-'VW
IF((PIPC3N7(L) .EQ.K) .OR. (.NOT.P I PSEC)) 7K£N
IF (.N07.VAPFL3)7HEN
IF (PIRPVAP (L) .EQ.3.J7HEN
CALL VAPOR((U-L)/L,PIRPVAP(L),D£7£C7)
IF(.N07.0E7EC7) VAPFLG-.7RUE.
PIRPSPH (L) -.0313*PCR*WAPWO I S ((4-L) /L) **3
ENOIF
IF (.N07.VAPFLG) 7HEN
SPH71ME-PIRPSPH(L) /RPPIR7(L)
(V7inE((U-L)/L)'I«R?PlR7(L)) .G7.PI RPSPH (L) .AND.MAX (SPH1
PI RPVAP (LJ) .EQ.PIRPVAP(D) 7HEN
IF (PIRPVAP(L) .G7.U32CO.) 7HEN
PIRPVAP(L)-PIRPVAP (L)-U32CO.
DE7-C7-.FALSE.
ELSE
OE7EC7-.7RUE.
OE771 «E«? I RPVAP (L) +1 kkQ
VAPOE7-.7RUE.
ENOIF :; :
PIRPSPH(L)-PIRPSPH(L)-MlNMO^RPPIR7 (L)
i OE7ECT-.FALSE.
307^5
30750
30755
;..?;?,; OE7EC7-.7RUE.
OETTI«E-SPH7irt£-HUO
VAPOE7-.7RUE.
ELSE
OE7SC7-.FALSE. --: : -
PI RPSPh (L) -P I RPSPH (L) -Ml NMO*RPP IR7 (L)
PI RPVA? (L) -P I RPVA? (L) -*3200''' •' ••' -:" "
ENOIF ' ••• -^ •«•.:...::
ENOIF ' . •l..;.-.*.-3.r»
ENOIF ' .V---;v5-j.-. "
ENOIF :--:^T -r::
IFtOETSCTJGO 70 101
- E103 -
-------
33773
3C/75
30730
30735
30750
33755
33800
30305
3C310
33315
33823
30325
30830
30835
3081*0
308^5
30850
30855
30860
30865+
30870
30375
30830
30885
308SO
30895
30300
30S05
30510
30515
30520
33525
33530
30535
305^0
IF
If
30950
30555
30960
30965
30970
30975
30580
30585
30990
30995
31000
31005
31015
31020
31025
31030
31035
CALL IMrtlNV(i,L,S??IR7i'L) .:E7E:7,:E7TIME!
OLA3-1 I I '
IF (DE7EC7) GO TO 101
END IF
IF (MONrt-TH (5) ) THEN
OLAB-'VW'
IF ((PI?CON7(L) .EQ.K) .CR. (.NCT.PIPSEC) ) THEN
IF (. NOT. VAPFLG) THEN
IF (?!R?VA?(L) .EQ.C.JTHEN
CALL VAPCR ((«-'.) /L.PIRPVAP(L) .DE7EC7)
IF (.NOT. DETECT) VAP? LG-.TRUE .
PIR?SPH(L)-.0313"POR'WAPWOIS((U-L)/L) ^3
ENOIF
IF(.NOT.VAPFLC) THEN
S?HTIME-PIRPS?H(L)/RPPIRT(L)
IF ((VTIME((U-L)/L)*RPPIRT(L)) .CT.P I RPSPH (L) . AND .MAX (SPHTI ME ,
PIRPVAP (L)) .EQ.PIRPVAP(L)) THEN
IF CPIRPVAPtD .GT. 1*3200.) THEN
PIRPVAP (L) -PIRPVAP (L) -1*3200.
DETECT-. FALSE.
ELSE
DETECT-. TRUE.
OETT I ME-P I RPVAP (L) * 1 U»0
' '-; VAPOET-.TRUE.
END IF
P I RPSPH (L) -? I RPSPH (L) -Ml NMO*R?P I RT (L)
ELSE
DETECT-. FALSE.
IF (S?HTI.".E.LT.MIN«0)THEN
DETECT-. TRUE.
DiT7IME-SPHTIME-rUl»0
VAPOET-.TRUE.
ELSE
DETECT-. FALSE.
P I RPSPH (L) -? I RPSPH (L) -M I NMO*RPP I RT (L)
P I RPVA? (L) -P I RPVAP (L) -U3200
ENOIF
ENOIF
END IF
END I F
IF (DETECT) GO TO 101 •
ENOIF
ENOIF
ENOIF
IF(RPPIVOL(L) .EQ.O)THEN
MOFRAC-FNU(0.f 1.)
IF(L.EQ.1)THEN
RPP I VOL (L) -RPP I RT (L) *OAYMO*F I LLFR (L) *F I LLTI M (L) '*MOFSAC
IF(((MAX((RPPIVOL(L)/RPPIRT(L)) .PREMOT) ) -PREMOT) .NE.O) THEN
PREMOT-RP? I VOL (L) /RPP I RT (L)
PREMRT-RPPIRT(L)
ENOIF
- E109 -
-------
i? (•; '.-AX •; (==?'•::. :>.'; /=..=.= . =."(.•} ,?=.£.u.:~;
3 !•:=
31C7C
3'.C75
3!CcC
31C35
31050
31095
3MCO
3110=
3111C
3J115
3 11 20
31125
3 1 1 30
31135
31140
31U5
31150
31155
31 160
31165
31 1 70
31175
31180
31185
31 ISO
3H35
312:0
3 1 205
31210
JT215
31220
31225
31230
31235
31240
3121*5
31250
31255
31260
31270
3 1 275
3 1 280
31285
L .. ;
£'.S£
P.?? I VOL (L) -P.P.8 1ST (1) *OAY,10ftFlllFa (L) *? \
IF (({MAX((RPPIVOL(L)/R?PIRT(L}) .PREMQT) ) -PR-.-DTJ
PP.£.MCT-R??IVCL(L)/R?PIRT(L)
PS-^P.T-n3?!?.! fL)
-NOlf
ELS-
RPPIVCLCJ -R?0!R7(L)'«OAYMC^C!S:r?. (L) ='-3 I
IF (((MAX({R?PIVOL(L)/R?PIRT(U) .PRE.10T}) -=S;rtOT)
PRE.10T-SPP I VOL (L) /RPP I RT (L) '
PR£MRT-R?PIRT(L)
ENOIF
£NOIF
END IF
IF (AGP I PE) THEN
IF (PIPCONT(L) .SQ.K)TH£N
7SURF»PACrRAC*RPPIVOL(U+TSUR?
TSU3- ( 1 -PAGFRAC) *RPP I VOL (L) +TSUB
. ?IVOL(L)-PIVOL(LKRPPIVOL(L)*(1-?AGFRAC)
; ELSE
••-. TSURF»R?PIVCL(L)-rTSURF
'•- END IF
ELSE
7SUB-RPPIVOL(L)+TS!J3
PI VOL (L) •? I VOL (L) +RPP I VOL (L)
END IF
- 00 S07 I l-FALNUrt, l.-l
If (FALNUM1 (I I) .sQ.ITYPFLG) THEN- .
!?(FALNU«7(I I) .£Q. ((YR-1)*12+K))7HEM
FALNUM2(I I)-RPPIVOL(L)
FALNUMStl I)-MOFRAC''«72Q .
• ELSE
~-£N
SC7 I - i'
.N£.0)
THEN
MUIl!M5(ll)-FALNU«5(IIJ*720
'
31295
31300*
31305"
31310-t-
31315
31320*
31325
CONTI NUE
COH7I NUE
• CO 70 102 ,. - -
101 RUPREL»RPPIR7(L)*Of77 !«£'-; V.^;.. . 0
IF((L.£Q.l) .ANO.(.N07. ( (AG7ANK.ANO.VIS7':AN0.1:7NKCA? (1)
' riL:LVOL(l)*FILLFaU)*OAY«0
BLSSIF((L.NE.1) .AND. (.N07. ((IG7ANK.ANB.-(?RAC7UG.L7. .5) )
.OR.AG7ANK)))TH£N
IF (RUPREL.3T. (F I LLVOL (1) *F I LLFR (1) *OAYMO) ) RUPREL-
- £110 -
-------
31355 E-S£
313-0 i? ;3'j?3£L.:7. ;-?;S:A? 'L-I-VL-L/S; *c3l--v;';7.T£
3!3«5 RUP3-L-7NKCA? C.-i-3/L-L/;} *C?L£V
313=0 ENDIr
31355 ENCIF
31360 DO 9C9 I I-F4LNUM, 1 ,-1
31365 I? {FALNUfli (I I) .£Q. I7YP?LG)7H£S
31370 FALNL'rtZO I)-FALNUM2(I I)-=UP=£L
31375 FALNUMSd D-FALNUM5 (I I}-cDETT! tt£
31330 GO TO 910
31385 END IF
31390 ' °09 C2N7!N'J£
31395 510 CONTINUE
31UOO - FALNUM30 I)-((YP.-])*I2)-H<
31U05 IF (AG?IP£)7H£N
3U10 IF (PIPCON7(L) .EQ.K) THEN
3U15 7EMP-fsURF-r
3K20 CALL CLENUP(7=ttP)
31U25 7SURF-0
3U30 SURF-0
3U35 7PRSURF-0
3UiO • PRSURF-0
3Ui»5 RL!PR£L»(r-?AGFRAC)
3U50 AGRIJP7-RUPREL+AGRU?7
3U»55 ELSE
31^60 RUPREL-aUPREL+TSURF-s-SURF
31^*65 CALL CLENUP(RUPREL)
3U70 'vTSURF-0
31475 ' ' SURF-0
31430 7PRSURF-0
3i485 PRSURF-0
31490 RUPREL-0.
31495 END I?
31500 ELSE
31505 UGRUP7-RUPREL-HJGRUP7
31=10 ENCIF
31515 PIVOL(L)-PIVOL(L)+RU?R£L
31520 MONREL-RUPREL+ttONREL
31525 OE7EC7-.FALSE.
31530 IF (((MAX(DETTIME,PREMOT))-PR-MOT).NE.C) 7HEN
31535 PREMD7-OE7TIME
315^0 PREMR7-RPPIR7(L)
315^5 ' ENOIF
31550 CALL FIX(OLA3,K,YR,L,5)
31555 CALL FIX(OLA3,K,YR,L.4)
31560 CALL FIX(DLA3.K,YR,L,9)
31565 CALL VAPZEROd.L)
31570 IF(PIOEFVL(L) .CT.O) CALL F I X (DLA3.K. YR.L.c)
31575 IF(GKD£FVL(L) .G7.0) CALL FIX (OLAB.IT.YR, L,S)
31580 IF(WLDEFVL(L) .G7.0) CALL F IX (OLAB.K.YR.L, 7)
31585* IF(RPWLVOL(L) .G7.0) CALL F I X (DLAB.X, YR.L, 10)
31590 102 CON7INUE
31595 ENOIF
31600 RUPREL-0
31605 52 CON7INUE
31610 DO 5222 L-1.N7K
- Elll -
-------
TA.V<
3i = ;0 IF ;TK:•••/'_('.) .EQ.O)TH-N
316-0 rALNDrt' (FALNU.-.) »iTY?-L3
316-5 FALNU.M.7 (FALNU*) -(YR-1) *i:^K
3165C**"** NCT A CCNTINUC'JS L-AK
31655 CNGC-.FALSE.
31660 CALL L£AKRT(CNGO,3,1,0,LXRATE,SM.7KDFWI3(L) .TKDFLEN (.;;
31665 TKCErSTiLj-LKP.ATE
51670 ENOIF
3io75 0£7;C7—. .• ALs ; .
31630 IF(nONttETH C).AND.VAULT)THEN
3:685 DLAs-'IS1
3l6ao:Vrtft:-«v«:-: INTERSTITIAL ."ICMITCSING
31655 INT£SST(L,2)-FNB(INT£RST(L,1))
31700 IF (IN7£RS7(L,2) .EQ.OJTHE.M
31705 0£TTIME-rNU(60.,720.)
31710 0£7£:7-.7RU£.
31715 GO TO 5
31720 END I?
31725 ENOIF
31730 IF(AG7ANK.ANO.CRACL£)TH£N
31735 7J1IN-30. •'
3171*5 IF (WEEXINS) 72-10080.
31750 IF(CON7)7HEN
3^755 - -. .
31750 .'-.•».-'. IF(72.L7.(!».*60.))72-t.*60.
31/65 ' '- ENOIF
317/0 ' 71-72
31775 CALL RA7t3E7(7KD£FR7(L) .7.MIN. 71,72, SE7;C7,DE77lM£j
31780 i? (D£77lr«,£.G7. (30 .5»'«2U.A6c .) ) DETECT-. FALSE .
31785 OLA3-'RO'
3:/=0 I? {(CCN7. AND. STORAGE) .AND. {D57TIME.G7. (OPLEV^TMKCA? (L) /7XBSFS7 [L; )
31735-i- )) DE77lrtE-OPL£V*7NKCAP{L)/7XD£FR7(L)
31800 I? (DET7irt£.GT. {7NKCAP (L) /7X3£FR7 (L) ) } OE77IME-7NKCAP (L) /
31S05+ 7KD£rR7(L)
31810 IF(DE7£C7) GO 70 5
31315 IF (INVC.S7l)7HEN
31820 CALL lrtMIN\r(3,1,7KDEFR7(L) .OE7EC7.0E77IME)
31825 OLAB-'N'
31830 IF (DETECT) GO TO 5
31835 .C "END IF -
'
313U5 .:-r" OLA8"'VW ' •
31850 I F it&COgr (L) .EQ.K) .OR. (AG7ANK.ANO. (.,VQ7.CRADL£) ) .CR'. (NOSsCSN))
" ' '
31860 iF(»NOT.,VAPFlG)THEN •...-: • '• -i '
31865 ir(7KOFVAP.£Q.O.)7HEN .. ' > -••;•.
31870.. : CALL VAPOR (3-, 7KOFVAf,OE7rCTj-
-------
31910
: 1 a • ;
^ • - ' s
3L=2:
31=0
31550
31335
313-0
315-5
3J950
3'355
313=0
3:= = 5
3157C
31575
31380
31935
31990
31995
320CO
32CC5
32010
32015
32020
32025
32030
32C35
• .
320^5
320=0
32055
32060
32C65
32070
320/5
32C30
320S5
32C90
32095
32100
32105
32110
32115
32120
32125
32130
32135*
32UO
32U5
32150
32155.
32160
32165
32170
32175
32130
YA; ~.r£N'
I F (7KD,:VA= .G7. k]2CC ,} "-iE
7K:-vA?=7i<:-v
D£7;C7= . FALSE
.7RUE.
-TKCFV
.7RUE.
ELSE
DE7EC
VAPCE
ENDIF
ELSE
GE7-C7=. FALSE.
I ? (S?H7IME.L7.rtlNMO)THEN
DE7£C7».7=U£ .
VA?OE7=.7RU£.
ELSE
•DETECT-. FALSE.
TKOFSPH-7KDFS?H-MIN«0*~KDErR7(L)
TKDFVAP-7KDFVAP-1*3200
END IF
ENDIF
E-NO I F
END IF
IF (DETECT) GO TO 5
END IF
END IF
.. END IF
' iF(UG7ANK.C3.IGTANK)THEN
'" IF (INVCNTL)THEN
CALL I*MINV(3, l.TKOEFRT(L) .DETECT, DETTi ME)
DLAB»' I I '
IF (DETECT) GO TO 5
ENDI-
IF (MCN,METH(5))THE.M
OLAB-'W
,'F ((UGCONT(L) .EQ.K) .OR.NOSECON) THEN
IF (. NOT. VAPFLG) THEN
IF (TKOFVAP.EQ.O.)THEN
CALL VAPOR (3, TKDFVAP, DETECT)
IF (.NOT. DETECT) VAPFLG-.TRUE.
TKOFSPH-.031 3*POR*VAPWO I S (3) **3
END IF
IF (.NOT. VAPFLG) THEN
SPHTI ME-TKOFSPH/TKDEFRT (L)
IF((VTIME (3)*TKDEFRT(L)) .GT.TXDFSPH-AND.MAX (SPHT1ME
TKOFVAP) .EQ. TKDFVAP) THEN
IF (TKDFVAP. GT.!»3200.) THEN
TKOFVAP-TKOFVAP-U3200.
DETECT-. FALSE.
ELSE
DETECT-. TRUE.
DETTI ttE-TKOFVAP+UnO
VAPOET-.TRUE.
ENDIF
TKDF3PH-TKDFSPH-MINMO*TKDEFRT(L)
- E113 -
-------
3::C3 Ci77i."E»23H7i.u.--i«-0
32:T 5 VA?3£7*.7n'J-.
322:3 iT£~E:7«.-ALSt.
322:5 7KCFS?H»'«:FS?H-.M.IN.M.0*7Xj-r"7(L;
3223: TXOFVA?»7K3FVA?-«32CC
::C3 ENDIF
22-5 ENDIF
2250 ENDIF
32255 IFCSTECTJGG 73 5
3::oO . ENDIF
32265 ENOIF
32270 ENOIF
32275 IF (TXOEFVL(L) .EQ.OJTHEN
32230 MOFRAC-FNU(0.,1.)
32235***** LEAXS FOR A FULL MCNTH IF N07 DETECTED IN PRIOR MON7H
32230 7KDEFVL(L)-TK3sFRT(L)*rtlNrtC*MOFRAC*TANKT!M(L)
32295 IF (((MAX((7KDE?Vl(L)/TKC£F3T(L)) ,7R£»,D7) )-7REM07) .MS.3) 7HEN
32300 7RE.M.07-7XDEF VL (L) /TKOErRT (L)
32310 ENOIF
32315 IF(TXDE?VL(L) .GT. {F I LLVOL (1) *F I LLFR (1) *30.) ) THEN
32320 ,-.. . TKDE?VL(L)'-FILLVOL(1)*FILLFR(!)*30.
32325 •• V- ENOIF
32330 ' ''ELSE
32335 TXO£FVL(L)-TXD£FRT(L)**INMC*TANXTIM(L)
323^*0 IF (((rtAX((TKDEFVL(L)/7XOEFR7(L)) .TRSMOTJ) -7R£.M.07) .NE.O) THEN
323^5 TRE.10T«7XDEFVL (L) /TXDEFR7 (L)
323=0 TR£.1RT-TX3EFRT(L)
32355 ENCIF
32360 IF (TXOSFVL(L) .GT. (F I LLVOL (1) *F I LLFR (1) *30.J ) THEN
32365 TXDEFVL(L)-F I LLVCL (1) >'«F i LLFR (1)*30.
32370 ENOIF
32375 ENOIF
32380 IF (AGTANK.AND.CRADLE)THEN
32385 IF((AGCONT(L).EQ.K).OR.(AGTANK.AND.(.NOT.CSA3LE))) THEN
323SO TSURF-AGC3NFR*TK3£?VL(L)+TSURF
32395 TSUt«(l-AGCONFR)*TXDE?VL(L)-*-TSU9
32^00 ..^T^TKVOL (L) -TKVOL (L) *TKOc"VL (L) * (1 -AGCONFR)
32U05 -''-&&.:*;'. ELSE
32U10 S^:^ TSURF«TK3EFVL(L)-!-TSURF
32U15 $j$spr. EMOIF
32U20 "- " ELSI
321*25***** UGTANK.ORJGTANK
32I»30 IF((UGCONT(L) .EQ.K) .OR.NOSECON.OR. (. NOT. VAULT)) THEN
TSURF- (UGCONFR) *TKOEF.VL (L) +TSURF
TSU3-(l-UGCaNFR)*TXBEFVL(L)-i-TSU8
32U45 TKVOL (L) -TKVQ1 (L) >TKflElVL (L) * (1 -UGCCNFR)
32U50 ELSE . :
32U55 TSURF"TKOEFVL(L)+TSURF
32U60 END IF
32U65 ENOJF
- t]]k -
-------
-70
^ ^ C
-c5
*
3250C
32505
3:=10
32515
32520
32525
32530
32535
325-0
325-5
32550
32555
32560
32565
32570
32575
32530
32535
32590
52595-
32600
32605
32610
32615
32620
32625
32630
32635
DO !CG2 I l=FAi.NU.M.. ; ,-i
326*5
326=0
32655
32660
32665
32670
32675
32630
32635
32690
32695
32700
32705
32710
32715
32720*
32725'
32730
32735
327W
IF (?ALNL!,M.7{I I).-:. {(Yfi-;
rALNLI.u.2 (ID =TKj[-VL (i.)
ALNu,u.2(l
ELSE
FALNUW20 I)
FALNUrtjd I)
END IF
GO TO 1003
END IF
1002 CONTINUE
1003 CONTINUE
32750
GO TO 6
OEFREL«TKOEFRT(t)*0-T7l*£
IF (OEFREL.GT. (TNKCA? (L) *0?L£V) ) THEN
DErREL-TNKCA? (L) *OPL-V
ENDIF
DO 1004 I I-FALNUM, 1 ,-1
IF (FALMUrtl (I I) .EQ.ITYPFLG/TH-N'
FALNUM2 (I I) -FALNUW2 (I D-i-OEFREL
FALNUMj (1 1) "FALNUM5 (I l)+OETTIME/60.
GO TO 103V
ENDIF
100U CONTINUE
1034 CONTINUE
' ; FALNUM3(II)-((YR-1)*12)+K
' ' I'f (A6TANK. AND. CRADLE) THEN
' " IF ((AGCONT(L) .EQ.K) .OR. (AGTANK. AND. (.NCT. CRADLE}}) THEN
TEMP-TSURF-rS'JRr-rAGCONFRi'.'OEFREL
CALL CLENUP (TEMP)
TSURF-0
SURF-0
7P3SURF-0
PRSURF-0
OEFREL-(l-AGCQNFR) ^OEFREL
AGRUPT-OEFREL-i-AGRUPT
ELSE
OcpRSL-OSFREL+TSURF*SURF
CALL CLENUP (DErREL)
TSURF-0
SURF-0
TPRSURF-0
PRSURF-0
DErREL-0.
END I F
ELSE
IF((UGCONT(L) .EQ.KJ'.OR.NOSECCN.OR. (. NOT. VAULT) ) THEN
TErtP-TSURF+SURr+UG:3NFR*OErREL
CALL CLENUP (TEMP)
TSURF-0
SURF-0
TPRSURF-0
PRSURF-0
OEFREL-(l-UGCONFR) *OEFREL
UGRUPT-OEFREL-i-UGRUPT
- El-15 -
-------
SUR--C
-?=sj=.-=
P?.;w'nf»0
0£FR£L»3.
c
3:3C5
323 '0 TKVCL (D-TKVOL (L)-*-D£.rREL
325;f D£7£C7» . FALSE .
312:: I? (•;(.".AX{3E77l.««E.7=£r.:7;') -7?.;«C7; ..VE.C) 7-i£N
7RE«:7«DE"7I*£
7RErtR7-7KCEFR7(L)
32335 ENOIF
3231*0 IF (YRO.NE.O.ANO. I YRNUM.L7. YRO) 7ANK3£?«.7RUE .
323!*5 CALL FIX(OLA8,K,YR,L.3)
32350 CALL VAPZESO(3.D
323=5 CALL F IX(DLAB.K,YR,L.l)
3:35-2 DO 816 LL-I.NPl
323 = 5 CALL FIX(DLA3,X,Y.R.LL,9)
32370 IF (WLOcrVL(LL) .G7.0) CALL. T I X (DLA3 , K . YR, LL. 7)
32S75 IF (GK3£rVL(LL) .C7-.'0) CALL • F I X (DLA3 , K . YR, LL.3)
32330 IF (RPWLVOL(LL) .67. 0) CALL F I X (OLA3, K, YR, LL. 10)
32335 816 CON7INUE
32350 IF(RP7KVOL(L) .57.0) CALL F I X (O'.AB. K. YR. L. 2)
32395' ENDIF
323CO 6 Ca.N7INU£
32505 2.i:3>>o
32310 5222 CON7INUS
32315 00 =223 L-1.N7K
32520^ RU?TUR£3 7ANK
32S25 !F(RUP7NX(L) .£Q.K)7HE.N
32 = 30 l7Y?FLG-2030*t.
32335 IF(R?7KVOL(U .SQ.O)7HsN
325^0 FALNUW-FALNU.^rl
323-5 FALNUni (FALNUM)-I7YPFLG
32330 FALNlWFALNUrtJ-fYS-OaU-'-K
3-2355***** N07 A CCN7INUOUS LEAK
32360 ONGO-. FALSE.
323c5 RPSEAM(l)-.75 -' ••
32570 RPSEAM(2)-FN3(SPSEAM(1)) • '- . .
32975 ' IF(RPStAM(2) .EQ.1.)7HEN
32580* ^j-vsr* SiiUt RUP7URE *
32335
32950
32555
33CCO
33005 CAUK-ttmT(OMG0.3, 1 .LKRU?AKRAT£JOM.RP7J(WIO (LURPTKLi.M (L) )
330:0. " RP7K»7 (L) »LXR-A7r •- '-' .•;-*;. "
33015.. ELSE ----- •-••'• --'*-:9C:-J:*?::° ....
33020* APPLY 6RCW7H RA7E ; •'- • 'A^ ______
33025 END IF °:;;-c;? .
33030 DE7EC7-. FALSE. ."'._., rt._
33035 IF(MON«TH(2).ANO.VAULT)7HEM -",'' '•''
-------
5C30
5C55
3:60
33C65
33C70
33075
33CSO
33085
330SO
332S5
33100
33105
33110
33H5
33'20
33125
33130
33135
33KO
331*5 I
33150+
33155
33160*
33165
35170
33175
33180
33135
33190
33155
332CO
332C5 i
33210+7
33215
33220
33225
33230
33235
3321*0
332^5
33250
33255
33260+
33265
33270
33275
33230
33235
33290..
33295
333CO
33305
33310
33315
33320
: J N~£?.ST ITU1. ."CM ! 73* : N G
IN7£=;~ CL.2) =-N5 (iN7£.=.;7 {'_,
If (IN7E = S7(L.2) .EQ.G) 7HEN
OE77I,»«.£«;»JU{=G.,720.}
D£T£C7».7RU£ .
GO 70 105
END If
•S3 I?
If (AG7ANK.ANO.CRADLE)TK£N
7MIN*30.
If {W££K INS) 72- 10030.
if (CON7)7H£N
If (72.L7. (Jj.ftfiO.nTZ-^.ftSO.
ENOIf
71-72
CALL RA7ED£7(RP7KR7(L) ,7MI N.7! ,72 . DETECT,0£77I.*£)
If (OE77IME.G7. (30 .y*2U .*60 .-)) DETECT**?ALSE.
OLAS-'RO1
F((CONT.AND.STORAGE) .AND. (OETTIME.GT. (OPLEV*TNKCAP(L)/RPTXR7(L))
))DETTIME-OPLEV*TNKCA?(L)/R?'TKRT{L)
If(DE77IME.G7. (TNKCAP(L)/RP7KR7(L)))DETTIME-TNKCA?(L)/
RPTXRT(L)
If (DE7EC7) GO 70 105
IF(INVCNTL)THEN
CALL IMrtlNV(3,l.RPTKRT(L).DETECT,OE77IME)
'•''•• OLAS-'ll1
'"' If (DE7EC7) GO 70 105
£NDIF
If (MONME7H (5))7H£N
OLA3"'VW
f((AGCONT(L) .EQ.K).OR.(AGTANK.ANO. (.NOT.CRAOLE)) .OR. (NOSEC2M))
HEN
IF (.NOT.VAPFLG) THEN
IF (TKRPVAP.EQ.O.)THE.N
CALL VAPOR(3,7XR?VAP,OE7£C7)
If (.NOT.DETECT) VAPfLG-.T3UE.
TXRPSPH-.0313ftPOR'WAPWOlS(3)*'1'3
ENOIF
IF (.NOT.VAPFLG) THEN
SPHTIME-TKRPSPH/RPTKRT(L)
IF((VTIME (3)*RPTXRT(L)).GT.TKRPSPH.AND.MAX(SPHTIME.
TKRPVA?).EQ.TKRPVAP) THEN
IF (TKRPVAP.GT.1.3200.) THEN
TKRPVAP-TKRPVAP-J»J200.
DETECT".FALSE.
ELSE
DETECT-.TRUE.
DETTIME-TKRPVAP+1U40
VAPOET-.TRUE.
ENOIF
TKRPSPH«TKRPSPH-MtNMO*RPTKRT(L)
ELSE
DETECT-.FALSE.
!f (SPHTIMc.LT.MINMO)THEN
- E117 -
-------
3 ; 3 ; 3
"i ' * -
333-0
333-5
* * 7 * -^
* ^ * r ^
JJJ??
333=0
323*5
* « * ^ *
;;;/ -
33375
33320
" * 3 5 5
33330
33335
33^00
33-05
331*10
33^5
33^20
33^25
33^30
33M5
33^0
33^-5
53-50
33*55
33^60
33^65
33^70
33^75
33^30
33-35
33-30*
33-35
33500
33505
335<0
335^5
33520
33525
33530
33535
335;»0
335*5
33550 •
33555
3356C
33565
33570
33575
33530 .
33535-*
33550
33595
33600
33605
:£".-• = : = -• -•-'--:
V - ? 1 1 7 » . 7 •, ,. ' E .
ELSE .
C E""E T"~a • -r *'. 3 E .
— v; 3 C 2- = r'-'3 3 C 3U.« ; »J M'' "D 5 ~ V Z - /i v
i • . ( . - * • i • - •• • • •' -i '.••" ~ .••....; ™ ,
7K=..3VA3»7K.=..= VA?-«3:CO
E N D 1 F
ENS i .r
r if r* i c
tNU 1 r
ENOIF
1? CE7ECT) GO 70 :C5
ES'C 1 F
END IF
ENCiF
IF (UG7ANK.CR. IG'ANK) THEN
IF (INVCNTL)THEN
.. CALL lttrtlNV(3. 1 .RPTXRT(L) , DETECT. DETTI ME)
OLA3-' 1 1 '
IF (DETECT) GO TO 105
ENOIF
IF (MONM£TH(5))THEN
DLAS-'VW1
IF ((UGCCNT(L) .EQ.X).;OR.NCS£CON)7H£M
IF (.N07-;VAPrLG)7HEN
IF (TKRPVAP.EQ.O.)THEN
CALL VAPOR (3. 7KRPVAP, DETECT)
IF (.NOT. DETECT) VAPFLG-.TRUE.
7XR?S?H-.03I3ftPOR*VA?WOlS (3) :'^'3
END IF
••'.'.'•'" IF (.NOT.VAPFLG) THEN
S?H7IM£»TXRPS?H/RP7XR7(L)
1 F ( (VTI.M.E (3) ftR?TXR7(L) ) .GT.TKR?S?H . ANO ..MAX (SPHTI^i.
TXRPVA?) .EQ.TKRPVAP) THEN
IF (7XRPVAP.67.U32CO.) THEN
TK?.?VAP»TKRPVA?-i*3:CC .
DETECT-. FALSE.
ELSE
DETECT-. TRUE.
D£T7lrt£«TXRPVAP*UW
VAPDE7-.7RUE.
ENOIF
TKRPS?H«TKRPS?H-MINMO*R?7;
-------
33=;o
3 = 0
33 = 30
33 = 35
33ii»0*****
336-5
33 = 50
33 = 55
33860
33665
33670
33675
'3630
33635
336=0
33 = 55
337CO
33705
337'Q
33715
3372C
33725
33730
33735
337^0
337^5
33750 -.
33755 :
33760
33765
33770
33775
33780*****
337S5
337SO
33795
33300
33305
33810
33815
33820
33825
33830
33835
33840
33850
33855
33860
33865-
33870
33875
33880
33385
33890
•NO If
END I f
if (RPTKVCL ('.).:;.-:) THEN
MCfRAC = rNU |0.,1.) .
LEAKS FCR A FULL MONTH If NOT DETECTED IN PRIOR .".C'JTH
RP'KVCL (L) -RPTKRT (L) *«l NMO*«OFP.AC*TANKT I M (L)
If (( (MAX ((RPTKVOL (L)/RPTKRT (L)) ,TRE.U.CT}) -TR-.iCTJ ..SE.C) THEN
TRE.M.DT»RPTKVGL (L) /RPTKRT (L)
TRE.M.RT-RPTKRT (L)
ENOIf
I F (RPTXVOL (L) .ST. (• I LLVCL C) *? ! LLfR (') *]C.) ! "-ES
RPTKVCL(L) -F!LLVCL(1)*FILLFR (1)*30 . .
ENCif
ELSE
RPTKVOL (L)-RPTKRT (L) *MI NMO*TANKTI M (L)
IF (((MAX ((RFTKVOL(L) /RPTKRT (L) )-.7RErtD7))-7REM07) .NE.C) THEN
.TREttOT-RPTKVOL (L)/RFTKRT (L)
TREMRT-RPTKRT(L)
ENOIF
IF (RPTKVOL (L) .G7.(fILLVOL (1)*FILLfR (1)*30.))THEN
RPTKVOL (L) -f I LLVOL.(l) *F I LLFR (1) *30.
END IF
ENOIF
If(AGTANK.AND.CRADLE)THEN
IF ((AGCCNT(L) .EQ.K) .OR. (AGTANK.AND. (.NOT.CRADLE))) THEN
TSURF«AGCONFR*RP7KVCl (L.) +TSURF
TSL'3-(1-AGCONFR)*RPTKVOL (L)-^TSU3
'•TKVOL (L) -TKVOL (L) ^RPTKVOL (L)"* (1 -AGCCNFR)
ELSE
TSURF-RPTKVOL (L)t-TSURF
ENOIF
ELSE
UGTANK.OR.IGTANK
IF ((UGCCNT(L) .EQ.K) .OR .NOSECCN .OR. (.NOT.VAULT))THEN
TSURF- (UGCONFR)ARPTKVQL(L)*73URF
7SUS- (1 -UGCONFR) *RP7KVCL (L) ^-TSUS
TKVOL (L) -TKVOL (L) -rRPTKVOL (L) * (1 -UGCONFR)
ELSE
7SURF-RP7KVOL(L)+7SURF
ENOIF
ENOIF
DO 1005 M-FALNUM.1,-1
IFCFALNUM1 (I I) .EQ.ITYSFLG) THEN
IF(FALNU«7(I I) .EQ. ((YR-1) *12+K))THEN
FALNU«2(I I)-RPTKVOL(L)
FALNU«5(I I)-,10FRAC*720
ELSE
FALNUM2(I I)-FALNUM2(I I)+RP7KVOL (L)
FALNU«5(I D-rALNUM5(l D^720
ENOIF
GO 70 1006
ENOIF
1005 CCN7INUE
1006 CON7INUE
FALNUM3(II)-((YR-1)*12)+K
- E119 -
-------
53530
33335
333*0
333-5
,
33 = 70
33575
33530
34535
33590
33355
3^000
3-005
3-010
3-0:5
3*020
3^025
3U030
3UG35
3-0*0
3-355
3*060
3-0=5
3-070
3-C30
3^050
•34095
3MOO
3^125
3U150
3^*535
3U1UO
3UU5
3^155
3^160
3^565
3U170
3^175
•NCI =
DO ICC 7 I 1-riLNU.*.. ! , -1
I? irALN'J.11 (I i) .-;. !TYPFLC)TH£.N
FALNU.12 (I l)-rALNU,".2(l D^SUrr-L
FALNU«5(I l)-rALNU«5(l I ) -C-T7I .-•/ = :.
GC TO IOCS
END:?
1007 C*NT!NJc
IOCS CONTINUE
FALSC.M.3 (I D-((y5-:) »12}-K
i F (AGTANK.A.SD.CAAOLJ; THEN
IF ((A::ONT(L) .£Q.K) .OR. (AGTANK.AND. (.NCT.CSAS-.E; } ) THES
CALL CLsNUP (TE.MP)
TSURF-0
SURF-0
TPP.SURF-0
PRSURF-0 '
RUPP.£L"(l-AGC3NFa)ARUPREL
AGRUPT-RUPREL-i-A-GRUPT
ELSE
CALL CLENUP(RUPREL)
TSURF-0
.-.S.URF-O
PRSURr-0
RUPREL-0.
ENOIF
ELSE
IF ((UGCONT(L) .EQ.X) .OR.NCSECCN .OR. (. NOT. VAULT) ) THEN
TEMP-TSURF-i-SURr-pUGCCNFRARUPREL
CALL CLiNUP (TErt?)-
TSURF-0
SURF-0
TaRSLIRF-0
PSSURF-Q
RUPREL«(1-UCCONFR)*RUPRSL
UCRUPT-RUPR£L*UGRUPT
ELS1
CALL CLENUP.(RUPftEL).
'
PRSUR9-0 >,rV., • •-- .--••'-.•*
RUPREL^OV y,;;'.. i-- ' i"'.,- -
END IF - .-••
END IF >wi ;~ ...:
TKVOLU)»TKVOl(l)+SUPREL ';'-
MONREL-a'JPR£L--rtONREL :UX.T,<__ .;-
DETECT-.FALSE. ;..-.. "^o; .'j-'
IF (((«AX(DETTIrtE,TRSWm>-TRe*OTKN«.OX THEN
- El20 -
-------
3-2=5
3^*270
3it275»'«
3^*230
31*235
3^290
342 = 5
3^300
3U305
3-'=0 ENOiF
3-135 IF (YR3.N-.O.AND. iY = N-j.'«..T.-.=.:; 7:^-: = = .~=-E.
5-irO CALL FIX :3LA3.K,Y=,L.:;
13 CALL VA?Z-RO(3. i)
?5 DO 317 LL-1,NP|
20 IF (WL3£FVL(LL) .GT.O) CALL ' '. X (DLA3 . K . YR . LL . 7)
3- 25 IF (GKOEFVL(LL) .GT.O) CAL-. F ; X CLA3 . :< . YR . LL . 1}
3- '0 IF (R?WLVCL(LL) .GT.O) CALL • ', X (3LA5 . K . YR. LL . 10)
3U ;5 CALL FIX(OLA3,K,YR,LL.9)
-0 817 CCNTINUE
-5 IF (TKDEFVL{L) .G7.3) CALL F i X ;:..;=, K ,?=. L . 3)'
3-2=5 106 CONTINUE
3^260 RUPREL-0
5223 CONTINUE
DO 53 L-1.NPI
WELOE3 FLANGE INSTALLATION CEFICEiNCY.
IF (WLDDEF (L) ,EQ.K)THEN
ITYPFLG-10UO-L
IF (WLDEFVL(L) .EQ.O)THEN
F ALNU««FALNL'MH-1
FALNU.M.l (FALNUrt)»ITY?FLG
FALNU,M.7(FALNUM)»(YR-1) *12-rK
NO" A CONTINUOUS LEAK
ONGO-.FALSE.
'• . CALL LEAKR7(GNG3,U,L,0,LKRATE,CM,WL3FWi3 (L) ,WL:FLEN v'L))
• ' ''•'• WLDErRT(L)»LKRA7E
'' END IF
DETECT-.FALSE.
IF (-CNMETH(2) .AND.VAULT)THEN
31»3-5 OLA3-'IS'
3;»350:V:VV::'::-:y! INTERSTITIAL MONITORING
3-355 '• N7ERS7 (L- i*l /L-L/5, 2) -FN3 (I N7S3S7 (
ri/L-L/5,DJ
IF (INT£RST(L-l-r1/L-L/5,2) .EQ.O)THEN
DET7IME"FNU(60.,720.)
DETECT-.TRUE.
GO TO 7
ENDIF
ENOIF
IF(AG7ANK)7HEN
TMIN-30.
IF(L.EQ.1)7HEN
72-CONTVOL (L) /FLOWr.T (1}
IF(CON7)7HEN
T2-(2*»-OPHRSOY)*60.
IF(72.L7.(1*.*60.))72-1*.*60.
ENOIF
3i»315
3*020
3^3o
3t330
3^335
3*»3*»0
3^375
3t*330
31*385
31*390
3^395
3l*i*00
3-1*05
31*1»20
31*1*25
31*1»30
3U1*35-.
341*40
31*1*1*5
31*1*50
31*1*55
T2-MINMO
I F(WEEKINS) 72-10080.
IF(CCN7)7HEN
T2»(2l»-OPHRSOY)*60.
IF(T2.LT. (
- E121 -
-------
CALL RA7-:-7;Vi
!F CE77l.-E.37. >:;•:.5-1
3-550
3-6:0
3^623
3^630
3-650
3^655
3^660
:~~::?
34-?5 IF (C3N7.AND.S7CRAGE) .AMD. (D£77:rt£.37. (C?L£V*7NKCAr (! *T {
343:5-/uu:£M-;_;f);u£77ir,E-0?L£V*7NK:A?;i-1^1/L-L/5)
34S1; IF (OE77IKE.GT. (7NKCA? (L-1-H/L-L/5)/WLOEFRT (L)) )
IF (2E7EC7) GO 7j J
IF (INVCNTL/THEN
CALL liM./HNV(4.L,WL:£.r = T;L) , :£~£C~, :£~7i,u!£;
OLA3-'I I '
IF(OET£C7) GO 70 7
ENDIF
<-:?;?;> IF(«ON«£TH(5))THEN
34560 OLAS"'VW
34565 IF ((AGC3NT(L) .EQ.K) .OR.NCSf.C3N) THEN
3-570 IF (.NOT.VAPrLS)THEN
3-575 IF (WGSFVAP(L) .EQ.O.JTHEN .
34530 CA.LL VAPCR (3.WGOFVAP(L) .DETECT)
3- = 35 IF (.NOT.DETECT) VAPF'.G-.TR'jE .
345=C WLOFSPH (L) ».C313^PCR''«VA?W3IS (3) **3
34555 ENOIF
IF (.NOT.VAPFLG) THEN
S?HTI«E-WLOFS?H(L)/WLC5rRT(L)
.'tr;'iV7lME (3) *W13£?R7(L)) .G7.WLDFSPH (L) .A^43;.1AX (SPHT1ME,
WG3?VA?(L)) .EQ.WGCFVAP(L)) 7HEN
IF (WGOFVAP(L) .GT.432CO.) THEN
WGuFVA? (L)-WG3FVAP(L) -43200.
DETECT*.FALSE.
ELSE
DETECT-.TRUE.
OETTIME-WG3FVAP(L)*1440
VAPDET-.TRUE.
ENOIF
WL3FS?H(L}-WLOFS?H(L}-.HINMO*WLSE?RT(L)
ELSE
54670 DETECT-.FALSE.
34675 I?(SPHTIME.LT.MINMO)THEN
34630 ;,....; DETECT".TRUE. . -
34685 ~v5*3f DETT!«£-S?HTIM£*]44C
34690 f.-;/r VAPOET-.TRUE.
34695 '$£••£•"-• ELSE
34700 •':•&£$#•"*•• DETECT-.FALSE.
34705 ^' WLOFSPH (L)-WL3FS?H(L)-Ml NMQAWL3EFRTI
34710 WG3FVAP(L)-WG3FVA?(L)-43JOO \
34715 ENOIF
34720,. ENOIF
34725 ENOIF
34730 ENOIF . ..,-/;
34735 IF (DETECT) GO TOT""''"' v"
34740 ENDIF
34745 ENOIF
• E122 -
-------
L;:~:V-:
-730
7:=.".iN.M.G
i * (WI-K;.MS/7:=;:occ
IF (CCN7)rH£N
72«(2*-0?HR3:)Y}*60.
1.755
-~35
-3C3
-:3
*c!5
END ! F
71=»T2
CALL RA7EDET(WLDEFR7(L) ,7M I N,7i ,7: . DETECT, CETT'.-.E)
IF CETTirtE.ST. (JO .5:';2t . '-60 .) ) 3E7EC7» . .- ALS£ .
DLAS-'S:1
I ? { CCNT.ANO.STCRAGE) .AND. (C£T7!M£.G7. (OPLcV^TNKCA? (INT (
L-!*i/L-L/5))
/WLO£F=7 (L) ) ) ) CE7TIHE-OPLEVA7NKCA? (L-i*l/L
3*350
3-355
3^360
3^*365
3^S/0
3^375
3-350
3^35=
3-350
3-395
3^300
3^505
3-S'O
3«»915
3^*520
3^325
3^530
3^935
3*950
3*955
3-560
3*965
3*970
34975
3*530
3*585
3*590
3^995
35000
35005
35010*
35015
35020
35025
35030
IF (C£77i.l£.G7. (T.MXCAP (L-1-»-l/L-L/5) /WLOEFR7 (L) ) )
CE7TIME-7NKCAP(L-l-!-1/L-L/5)/WLDEFRT(L) •
IF (OE7£C7) GO 70 7
END IF
IF (INVCN7L)7HE.M
CALL l,nMINV.(l»,L.WL3£FR7(L) ,3E7£:7,D£77IM£)
OLAB-'M1 '
IF(C£7£C7) GO 70 7
ENOIF
IF(MONMETH(5))TH£N
. OLAB-'VW'
'-';.'. IF ((UGCCN7(L5 .£Q.K) .OR.NOScCON) THEM
' '' IF (.N07.VAPFLO7HEN
IF(WG3FVAP(L) .EQ.O.JTHSM
CALL VAPOR (3, WCCrVAP(L) .DETECT)
IF (.N07.D£~£C7) VAPFi.3-.TRU- .
WLS'SPH (L) -.0313*PCR'WAPWOI S (3) **3
END IF
IF (.N07.VAPFLG) 7HEN
S?HTl«E-WLOFS?H(L)/WLDErRT(L)
IF (('.TIME (3)ftWLOEFR7(L)) .G7.WLDFSPH (L) . AND .MAX (SPK7I ME ,
WGDrVAP(L)) .EQ.WGCFVA? (L) ) THEN
IF (WGOFVAP(L) .G7.H320C-.) 7HEN
WGOFVAP(L)"WGO?VA?(L)-U3200.
DETEC7-. FALSE.
ELSE
DS7-C7-.TRUE.
DE77IME-WGOFVAP(L)-i-UUO
VAPOE7-.7RUE. -
END IF
WLOFS?H(L)-WLOFS?H(L)-MIN«0*WLBEraT(L)
ELSE
DE7EC7-. FALSE.
IF (SPHTIME.LT.MINMO)THEN
DETECT-. TRUE.
DETTIME-SPHTIME+1UO
VAPOET-.TRUE.
ELSE
DETECT-. FALSE.
- E123 -
-------
EN: IF
350c= IF (DE7EC7) CC 72 J
35070 ENCiF
3=075 ENS IF
25C-SO END IF
35c£5 IF (WLOEFVL(L) .EQ.OJTH-N
35050 ,M.CFRAC=FSU(O., i.)
35055 IF '{(L.EQ. i) .AWC. (FRAC7UG.SE..=)) -OR. ::L.E:.
35'c:- .ANU. (HCRiz.:*. JVEST.AND. (-NKCAPd-i^i/'.-i./?
35 10=-*-) .L£. 10CO)))))7H£M
35110
35H5
35120
35125
35130
35135
•} ...ANC . A:7A?
wL-OcFVL (L) «WL:£F=T (L) ^CAYWC'-'-F i LLFS (L) •.•^OFS
IF (((MAX((WLO£?VL;D/WLD£?RT(L)) .TR£.M.DT)) -T
7R£tfOT-WL3£?VL (L) /WLCEFRT (L)
7R£rta7«WLO£FR7(L)
END IF
ELSE
WLO£FVL(L)-WL:£FR7(L)
R£.".C
i LLTI
7; .Ne
O) TH-N
35150 IF (((MAX((WL3£FVL(L)/WID£FRT(L)) ,7R£.MD7)) -7R-M37) .ME.C) 7H£N
35155 7RE.1D7-WL3E?VL(L}/WL3EFR7(L}
35160 7R£MR7-WLD£?R7{L)
35165 END IF
35170 END IF
35175 ••'.",.:\f (WLOEFVL (L) .GT. (F I LLV3L (1) *FI LLFR (1) ^30.) )
35130+ WL3£FVL(L)»FILLVOL(1)*FILLFR(1).*30.
35185 ELSE
35150 IF(((L.£Q.l) .AND. (FRAC7UG.GE..5)).OR. ({L.-C.IJ .AN:.AG7iNK
35155-r .AND. (HCRIZ.CR. (VERT.AND. (TNKCA? (L-!-*-l/L-:./5
352SC-!-) .LE.lCCO)))))7:-i£N
352C5 WL3EFVL (L) -WLOEFRT (L) ftOAYM*? ! LS.FR (L) *F '. •
35210 ! F (((*AX ((WL3EFVL (L) /WLDEFR7 (L)) .TR-ttCT)) -7R£««.3'
35215 TRErtOT-WLCEFVL(L)/WLDEFR7(L)
35220 TREMRT«WLOSFaT(L)
35225 ENDIF
35230 ELSE
35235 WLOErVL(L}-WLOE?R7(L)*NIN«0*TANKTI«(L-l-i-l/L-L/5
.!«•(,•( ttM*-((WLOE?VL(L)/WLOE?R7 a)) .7REM37)) -TRE.HCT). .NE .0) THEN
•'-.. '": : TR£«DT-WLD£FVL(L)/WLOEFRT (L)
'--.".,.. TRErtRT-WL35r?.T(L)
F • VEND IF
35245..
35250
35255
35260
35265 i
35270
35275*
35230
3528J..
35290
35295
35300
35305
35310
35315
I f (WIDE?VI (L) .GT.(FILLVOL(1)ftF!LL?3(l)*30-.
WLDEFVL(L)-FILLVOL(1) *FILLFR(!)*3C.
ENDIF , ' '
IF(AG7ANK)7H£N .'.: '
IF (PIPCON7(L) .EQ.XJTHEN . '." -t
TSURF«?AGFRAC*WLD£FVL
TSua-(1-?AGFRAC) *WL3EFVLfO+TSUB
WLVOL (L) -WLVOL (L)+WLDE?VL (L) * (I.-
ELSE
7SURF-WLDEFVL(L)^7
-))-.
-------
35325 ELSE:-(::-:\K)-^N
35:33 IF {?:=::?,-''.) .EQ.:V.---N
= .-C:'
353-3 TSU3=()-.= AGF=.AC; *WLDE:T_'.'_)-~Sl'3
353-5 *LVGl ('.} =WLVOL ('_) -wLIEF'. . (i.) * (i -? Air?. AC)
35350 ELSE
35355 TS;JR-«Wu3E.rVL ('.} +TSJRF
353-0 E'.'Gir
353=5 ELSE
35370* UGTANK
35375 I'(VAULT)THEN
35320 IF('JGCC*T(L-!-!/L-l/5) • EQ.K) THEN
353:5 TS'J3r«ua:3NFR:1:Wj.GEFVL (L)-TSJSF . -
35350 TSL.:3«(l-l:G:CNF3;*WL:EFVL CJ-7SL3
35335 WLVOL (L) -WLVOL (D+WLDEFVL (L) * (I-UGC3NFR)
35-CO ELSE
35-05 TSURF»WLDEFVL(L)+7SURF
35410 END IF
3=ul5 ELSE
35^20 7SU3»WLOEFVL(L)-TSU3
35-25 WLVCL (L) -WLVCL (L)-f-WLuE'VL (L)
3=^30 END IF
35-35 ENDi?
35-i.O 00 1005 I l=r ALNLIM, 1 ,-1
35-^5 IF (FALNUM1 (I I) .EQ.I7YPFLG) THEN
35-50 IF (FALNU,"./ (I I) .EQ. ((YR- 1) * I 2+K)) THEN
35^55 FALNUM2(I I)=WLDE.:VL(L)
35-oO , •. FALNUM5C D-ttOFRACs'«72C
35-o5 .' ;/- ELSE
35-70 FALNJM2 (I D-FALNUM2 (I I) -l-WLOEFVL (L)
35^75 FALN'jnSd I)-FALNL-A».5(! 1)^720
3=^30 END IF
35-55 GO 70 1010
35-50 E.MS I?
35-95 1CC-S CON7IUUE
3550C 1010 CONTINUE
35505 FALNUM30 i)-((ya-i)*i2)*x
355'0 GO 70 8
35515 7 DE?R£L-WLD£?R7(L)*OS7TI«£
35520 IF ((L.EQ.l) .AND. (.NOT. ((AG7ANK.AND.VERT.AND.(7NKCAP(1)
35525-r .GT.1000))) .OR. (IGTANK.ANO. (FRAC7UG .LT. .5)))) THEN
35530 IF(OEFREL.GT. (FILLVOL (1)*FILLFR(1)*OAYMO))OErREL-
35535+ f I LLVOL (1) *F I LLFR (1) *QAY.10
355^0 ELSEIF((L.NE.l).AND. (.NOT. ((IGTANK.ANO.(F3ACTUG.IT..5))
355-5'i- .OR.AGTANK)))THEN
35550 1F (OEFREL.GT. (F I LLVOL (1) *F I LLFR (1) *J>AYMO)) OErR-L-
3S555+ F I LI-VOL (1) *F I LLFR (1) *OAYMO
35560 ELSE
355«5 IF(OcrR£L.G7. (TNKCAP (L-H-1/L-L/5) *0?LEV)) THEN
35570 OEFRcl-TNKCAP (L-1 + 1/L-L/5) ^CPLEV
35575.' £NOIF
35580 END IF
35585 DO 1011 II-FALNUM,J.-l
35590 IF (FALNUM1 (I I).EQ.ITYPFLG)THEN
35555 FALNU«2(I 0-FALNUM20 D+OEFREL
35600 FALNU«5(I D"FALNU«5(I IJ*OETTINE/60.
- £125 -
-------
35=:: ic:2 CONTINUE
356:5 FALNU«3 (I 0 •( IYR-D *12)*K
35=;: IF (ACTANK)THEN
35=:5 :.: (?:=C:NT(L) .EQ..K; THEN
356*0 TEMP-TS URF-i-SLiRF-PAGF RA C*-; £FR:
356*5 CALL CLENU? (TE ,".=)
35 = 50 T5URF-0
35=55 S-JRF-O
3566: TPRSURF-O
3567: DE.«.EL«(1-?AG?3AC) ftCEFREL
35630 ELSE
35635 DEFR£L-3ErREL-T3URF+3URF
35650 CALL CLENUP(OEFR-L)
35655 T3URF-0
35700 SURF-0
35705 TPRSURF-0
35710 PRSURp-0
35715 DEFREL-0.
35720 END IF
35725' ELSE IF (iGTANK)THEN
35730 IF(?I?CCNT(L) .EQ.KJTH-N
357^0 .••';.';. CALL CLENUP(TEMP)
357«5 .' TSURF-0
357=0 SURF-0
35755 TPRSURF-O
35760 PRSURF-0
35765 0£FREL-(1-3AGrRAC}'i'i:£F = £L
35770 UGRUPT-OsFR-L-i-UGRUPT
35775 £'-3£
35730 C£FR£L-0£FR£L-i-7SURF
35735 CALL CL£NUP(OEFR£L)
357=0 TSURF-0
353CO T?RSUR?-0
353C5 PRSURF-0
35310
35315
35320
35325 IFt
-------
-r
55-0
Oi-REL-:.
ENC; ?
£.l,!3ir
5=20 WLVCL (L! =WLV:L (L) +:-FaEL
5 = 25 MONREL-CEFREL-crtCSREL
5 = 3- CE7E:7-.FALSE.
= 535 I? (((MAXCETTI«E,TRE.".OT)) -7SE.M.QT) .NE.C) THEM
52*0 TRE.^OT-OETTIME
555-5 TRE.*.R7»WLDEFR7(L)
3=050 END:?
35355 CALL FIX{CLA5.K,YR,l.7J
353^0 CALL VA?ZE=C(i,L)
35565 IF (RPWLVCL(L) .G7.0) CALL FI X (OLA3.K,YR.L, 10)
35970 S CONTINUE
35575 END IF
35=50 CiFREL-0
35=35 53 CONTINUE
355=0 DO 5^ L-1.MPI
35335* GASKETED FLANGE INSTALLATION DEFICEINCY.
56CCO IF (GSK3S- (L) .EQ.K)THEN-•.
3 = OC5 ITYPFLG-1C504-L
3=010 IF (GKOEFVL(L) .EQ.05THEN
33G15 FALNUM-FALNUM+1
3o020 FALNUM1 (r ALNU.M.)-ITYPFLG
3c025 ... FALNUM7(FALNUK)»(YR-1)*12+K
30030^* . hC7 A CONTINUOUS LEAK
3cO;5 ' • '* ONGO-.FALSE.
3=0^0 CALL LEAKRT (ONGO , 5 . L .0 , LKRATE , D.M., CK2FWI C (L) , GK3FLEN (L) )
360^5 GKOEFRT(L)-LKRATE
3=050 ENjIF
36055 DETECT-.FALSE.
36C50 IF (AGTANK)THEN
36Gis5 TMIN-30.
36070 IF (L.EQ.OTHEN
36C75 T2-CONTVOL(L)/FLOWRT(L)
36C30 IF(C3NT)THEN
36035 72-(21»-OPHRSOY)*60.
36050 IF(72.L7.(k.*60.)) 72-U.*60.
36095 END IF
36100 ELSE
36105 72-MINMO
36110 IF(W£EKINS)72»1008C.
36115 IF(CONT)7H£N
36120 T2«(2I»-0?HRSOY)*60.
36125 I F (T2. LT. (4. *6C.)) 72-^4. ft&0.
36130 ENDIF
36135 ENDIF
36140. 71-72
36145 * CALL RATE9ET(GK3£?RT(L).7MIN,T1,T2.0ETECT,OE7TI«&5
36150 IF{OETTiaE.GT. (30.5*24.*oO.))DE7EC7-.FALSE.
36155 OLAB-'RO1
36160 IF ((CONT.AND.STORAGE) .AND. (DE77IME.G7. (OPL£V«it7NKCAP (
36l65+L-H1/L-L/5)/GKOEFRT(L)
3&170-i-)))OETTI.«.E-0?LEV*TMKCA?(L-Rl/L-L/5)/CKOEFRT(L)
- £127 -
-------
= : ;-•
3='. 35
3-.2GO
36205
36:10
^ ' * 1 -
^o.!5
362:0
3 = 2-3
36230
36233
3 = 260
36265
36270
36275
36280
3c235
362=0
36295
36500
36305
36310
36315
36520
36325
36330
3=335
3 = 3-0
363-5
36;3_0
563^0
36365
36370
36375
36380
36385
36390
36395
36UOO
36^20
36U30
3^35
36W»0
i" ',:£"£:•) ^2 "3 '17
I F (I NVCN'L; ~:-£>i
CA.'L ;Mmsv(5,•„.:•;:£-.=.7 :_;
CL.AS"1 I I '
i.r >:£7E;7) G: TO 1:7
ESDI F
If (rtONME7H(5))7r!EN
DLAS-'VW
I?(WG3?VA?(L) .£Q.-.}"'-'£k!
CALL VA?CS',5.'»u
Ir (.-NC7.0-7-C7) VAPS:.G-.7=U£ .
CKDFSPH (L) -.031 3:':P-S"VA?w; ! S (J) **}
ENOIF
IF (.NC7.VA?;LG; 7H;M
S?H71M£«GKOFS?H(L)/GKO£rR7(L)
IF ((VTIrtE (3) *GKOEFRT(L)) .G7.GKOFS?ff(Lj . AND .MAX
WCOFVAP(L)) .EQ.WGCFVAP(L)) THEN
IF (WGOFVA?(L5 .G7.H32CC.) 7H£M
.-. WGD"VA?(L)«wGCFVA?(L) -<*32CO
DE7E:7-. FALSE.
ELSE
OETECT-.TRUE.
OE7TI .M.£»WGDFVA? (L) +1 -^0
VA?OcT».7R'J£.
.',',;.; ENOIF
IMS.
ELS£
CE7-C7-.-ALSE.
-.TRUE.
CE7-C7
VAPOE7-.7RUE.
ELSE
DE7EC7-.FALSE.
GKDF5PH (L)-GKOFSPH(L)-niN*C*CK3EFRT(L)
WG3FVAP (L) -WG3FVA? (L) -1*3200
ENOIF
END IF
**£ ENOIF
'•& ' ENOIF
'.'•:-•• IF (DETECT) GO 70 10?
ENOIF
-V. ENOIF
" "•- ELSE
UGTANK.GR.IG7ANK
IF (VAULT)7HEN - :
IF(MCNME7H (2).AND.VAULT)THEN ' T*
OLAa-'is1 -•?:-.? ..-.;:
INTERSTITIAL MONI7CRING - -.- C" -TD.3W.:""
INT£RST(L-l-rl/L-L/5,2)"rN3(IN7£RS7( • .:« »IA..;
36U50
lF(IN7£RS7(L-i*1/L-L/5,2) .X
IF (VAULT) 7HEN
- £128 -
-------
i-r
G3 7C iC7
END;?
;CIF
ENDIF
F (IG7;.T<)7HEl
7«!N=30,
• (CCN757.-.EM
;cc2
3 = 5-3
365-5
36550
36555
36565
36570i
33575"
36533
I? (72.L7. (-.•.•"JC.))72=fc.*6G.
ENDIF
Tl=72
CALL RA7E2E7(GKDErR7(L) ,7«!N.71 .72 , DE7EC7, DE77I ME)
IF (DE7TI,«.£.G7. (30 .y*2k . *6C .)} D£7£C7». FALSE .
DLAB-'RO'
F ( (CCN7.ANO.S7CRAGE) .AND. (OE77IME.G7. (OPLEV^TNKCA? (IN7 (
3=530
36555
36600
36605
36610
36615
3b620
36630
366^*0
36645
36650
366=5
36660
36665
36670
36675
36630
36635-
36650
36655
36700
36705
36710
36715,
36720
36725
36730
36735
367UO
} ) ) :E77IME-OPLEV:'--7NK:AP-(L-l^l/L-L/5) /GKOE-R7 (L)
I r C-TTI W£ .G7. (7NKCA? (L- Kl/L-L/5) /GKDEFR7 (L) ) )
CE7T;1>1E-~NKCA?(l.-]-l/L-L/5)/GK:E.::R7(L)
I? (SE7EC7) GO 70 107
END I?
IF (INVCN7L)TH£N
'• •''- CALL IM«!NV(5,L,GKDErR7(L) , OE7EC7, DE77I ,",E)
CLAS-'M1
IF (OE7EC7) GO 70 1CJ
' ENDIF
IF (KCN«£7H(5))7HEN
OLAB-'W
IF (CJG::NT(L-H-l/L-L/5) .EQ.K) .CS.NCSECON) THt.M
IF (.NOT.V.A?FLG)7HtN
. ' I F (WGOF VAP (L) .EQ.O.) THEN-
CALL VA?OR(3,WG3FVAP(L) .3ETEC7J
IF (.N07.DE7EC7) VAPFLG-.TRUE.
GKDF3PH (L) «.0313*PORftVAPWOlS (3) ^»'«3
ENDIF
IF (.NOT.VAPFLG) 7HEN
S?H7I«E-GKDFS?H(L)/GKDEFRT(L)
IF((V7!ME(3)*GKDEFR7(L)) .G7.GKOFSPH (L) .AND.MAX (SPH7IME,
WCOrVAP(L)) .£Q.W5D?VAP(L)) 7H£N
IF (WGDFVAP(L) ,C7. 1*3200.) 7KEK
WGOFVAP (L) -W50FVA? (L) -i*}200.
' DS7EC7-. FALSE.
ELSE
DETECT-. TRUE.
DET7 1 ME-WGDFVAP (L) + UiO
VAPOE7-.7RUE.
END IF
GKOFSPH (L) -GKOFSPH (L) -MINMC*GXOEFRT (L)
ELSE
DETECT-. FALSE.
- £129 -
-------
' ~ O
3/2
= 73
= 73
6cC
• L S •
"EETEC--.FALSE.
G\c'5?H(L)»^;:rS=H (Li -M!'I^O:>GK:-T" ;.)
WG3FVA? (L) -WG3FVA? (L) -i*3200
ENQI F
ESOlF
ENOIF
ESDI?
i— /•«••••••* «• «\ —^ i^* —
' r \ 'j i i i „ , / j 0 i v 1C;
EN::-
END IF
36520 ENOIF
3=325 IF (GKCEFVL(L) .EQ.O)THEN
36330 *Or=AC»FN'J(C., 1 .)
36535 IF (((L.EQ.1) .AND. (FRAC'vJG.GE. .3)) .OR. ((L.EQ.1) .ANO.AG7ANX
363UO* .AMO. (HORIZ.OR. (VERT.AND. (7NKCAP(L-l^l/L-L/5
363U5-).L£.10CC)))))THEN
36850 GKOErVL (L)-GX3EFRT (L)*QAYMO*FILLFR(L)*MQFRAC*rILLTIM(L)
36855 Ir (((.1AX((GKOE-VL(L)/GKO::RT(L)) .TREMOT))-TRE.MOT) .NE.O) THEN
5 = 560 TRErtOT»GKDE?VL(L)/GKDErR7(L)
36865 7REttR7-GKO£rRT(L)
3=570 ENOIF
36875 ELSE
36380 GKDEfVL(L)-GKDtrRT(L)*KINMC*.'10rRAC*7ANK7IM(
36350 " Tf .(((.M-AX( (GKOErVL (L) /GKOE'RT (L)) .7REM07))-7RS.M.D7) .NE.O) THEN
36300
5 = 505
3=910
5=315
3=520-
3=5-5
T^.( ((.".AX ((GXOEFVL (L) /GKOEFR7 (L)) .7REM07)) -7RS.M.D7) .NE .
7R£tt07«GXOE?VL (L)/GKDErR"(L)
7R£rtR7-GXOE?R7(L)
ENCIF
ENOIF
IF (GX2£?VL(L) .G7. (r I LLVOL CD *F I LLFR (1) *30 .) )
GKCEFVL (L) -F i LLVOL (1) *F I LLFR (1) *3
-------
•>. • J.. . -
7:3-3
7-: 73
7073
70oC
7090
70=5
371CO
37 '05
37 no
37115
37120
37125
37130
3/135
37 UO
371^5
"7150
371=5
37160
37'65
37170
37175
37130
3715 =
i i.:= ' • -• -or -. - „, '••'
GKVOL (L: =;.-.'.':;_ :„;-•::•;:£
t ! > »
• »».i**"^i»^*»i»i *. »
i ;L3.- =u.\.;.• v•_ ,'_; ~
ENOIF
ELSE IF (IGTANK)THEN
I? (PIPCONTJL) .EO.KJTKE
) -ruKS- r VL (L) =• ( 1 -PAGFRAC)
GKVOL ID =G,-;VOL
ELSE
ENOIF
ELSE
UGTANK
IF (VAULT) THEN
I F (UGCONT (L-l^l/L-L/5) .EQ.K) THEN
TSL'RF-'JGCONFR*GKDEFVL (L) -USURP
TSU9-(l-UGCONF?.)-1:GKDEFVL(L)-vT3U3
GKVCL (L)=GKVCL'L)+GKD£r.VL(L) * (1 -UGCCNFS)
ELSE
TSURP-GKD'ErVL (L) -*-TSURF
E.NDIF
ELSE
TSL,r8-GKDE.rVL(L)^TSiJ3
-.. • GXVOL(L) -GKVOL (Lj-KJXB-FVL (L)
.' .',; ENOIF
ESDIF
1013 I I--ALNUM.1.-1
IF (FALNUr.! (I I) .EQ.ITYPFLS) THEN
IF (FALS'J,MJO I) .EQ. ((YR-1) *1 2*K} } THEN
FALNUM2(! D-GKDEFVL (L)
FALNUM5 (I l)»MO.rRAC^/20
ELSE
FALNU«2(I l)»;ALNU^.2(i ! ) -GKCE-VL (L)
FALNU«5(I I)-FALNJ«5(I I) +7 20
ENOIF
GC TO 101U
ENDIF
1013 CONTINUE
10U CONTINUE
FALNUM3(I I)-((YR-1)*12)+X
GO TO 108
0£rR5L-GXOEr?.T(L)'--OET"l,l«,E
IF ((L.cQ.1) .AMD. (.NOT. ( (ASTANX.ANO.VSRT.'AMO. (TNKCA?;i)
.GT.1000))) .OR. (IGTANK.ANO. (FRACTUG.LT. .5) ) ) ) THEN
iF(OEFR£L.GT. (r I LLVCL(l) *F I LLFR (1) *CAY«0) ) DEFREL-
F I LLVCL (1) *r I LLFR (1)
C3
37200
37205
372:0
372:5
37220
37225
37230
37235
37240
372^5
37250
37255
372=0
37265+
37270
37275+
3723C &LSEIF ((l.NE.1) .AND. (.NOT.((IGTANK.ANO.(FRACTUG.LT..5))
37235-i- .CR.AGTANK)))THEN
37290 IF(3EFREL.GT.(FILLVCL(1) *FILLFR(1) *OAYMO)) DEFREL-
37295-*- FILLVOL(1)*FILLFR(1) *OAYMO
3730C ELSE
37305 IF (CErSSL.GT. (TNKCA?(L-1 + 1/L-L/5) *OPL£V) )THEN
373-0 DEFREL-TNKCA?(L-1^i/L-L/5)'''OPLEV
107
- £131 -
-------
3 " 3 ' 5
t " 7 * ^
3731-
373;5
37333
.JO-O
37350
37335
37360
373^5
3737C
37373
37530
37535
37330
37395
37*00
37*05
37-10
37*15
37*20
37*25
57*50
37*35
37*-0
*7**5
37*50
37*55
27*60
37-65
37*70
37-75
27*30
27*35
3~i*cc
37-55
3750C
37505
575 '0
375'5
37520
37525
37530
27535
375*0
375*5
37550
37555
37550
37565
37570..
37575
37530
37535
37590
37535
EN;:
V ' •> • *
:o i := i I-SA-.M.'.-.. i,-i
. • -A..S-.14.: {' i} .£:. :7v--.:; -HEN
ALMJ'M.l '' ') *' -A'.N'J,-! ,' 1 I i -££~-.£L
>« L i » u • • 5 ' 'ys*«L-iui.2\' !>""'» i I • i-.i - '-^ .
3 73 Ida
E.1. i?
. - 5 C.M. iNL1;
101s CON7INUE
FALS'UA4^ (1 1 ) * ( (YR-1) * i 2) *K
!F (AG7ANK)7:-i£S
ir (rl?CCM7(^) .£5.^) 7r£S'
7-.1P-7S li?. F-^S L'.=. FT?.; G F ?. .A C ^C £ • R £ .
CALL C1ENU? (7£ft?;
73L'RF-0
SURF-0
7PRSURF-0
PR3JRF-0
0£pR£L-(1-?ACFRAC)*OEFREL
AGRUP7-0£FR£LTAGRU?7
ELSE
0 E ? R E L -0 E ? R • L-7S UR ?+S UR I
CALL CL£NUP(D£'FREL)
TSL'RF-0
SURF-0
T?R SURF-0
PRSURF-0
,.-. . OErREL-0.
..'•' ;;-• END IF
ELS- IF (!G7ANX)7H£N
IF (?I?C2N7(L) .EQ.XJTHSN
7ErtP-75URF--s;jRF-H9AGFRAC*OEFR£_
CALL CLi-MUP (7£.M.P)
7SURF-0
SURF-0
T?RS'JR?-0
PRSURF-0
0£FR£L«(1-?AGFRAC)*OE?R£L
UGRUP7-OEFRELTUGRUP7
ELSE
OE?REL«OEFR£L*TSURF+SURF
CALL CLENUP(OErREL)
-..-. ^. TSURF«K)
':^^." SURF-&
-gf^- 7PRSURF-0
•*&&„. PRSURF-0
- ^:f r-. OEFREL-O
^"r1"". END IF
ELSE
F((UGCCi7(L-1+l/L-L/5) .EQ.X) .OR.NOSECON) THEN
. ' T£MP-7SURF-pSURr-HJCCOKFR*0£FREL
CALL CL£NUP(7EMP)
7SURf -0" "'.!'- •••;•••-•
SURF-0 '; •:•'•—• " -
7PRSURF-0
PRSURF-0 j .- • ... .;:
- E132 -
-------
* r 12 r i
j i 3 -
7SIJ3 ? =n
CALL CL£NL
'JR =0
SURF*0
3/3-5 DEF3-L-Q.
3765C ENDIF
37655 -NCIF
376=0 GKVCL (L;*GXVCL (L)
37670 DET;CT»..-Ai.3E..
3767= IF (((.M.AXC!E77IMi,7Ri.".C7)) -TSE.MDT) .NE.C) THEN
57650 • TS£MC7»OET7!rtE
37625 7R£rtR7»GKD£FR7(L)
37690 cNOIF
37&S5 CALL ?IX(DLA3,X,Ya.L,3)
377CO CALL FIX(DLA3,K,YR.L,9)
377C5 CALL VAPZ£ao(5.:)
37710 103 CON7!NU£
37715 END I?
37720 DEFREL-0
37725 51* CONTINUE
37730 DO 55 L-l.NPi
37735- WELDED FLANGE RUPTURE
377^0 .'-. ; IF {RUPWLCdJ .EQ.K)TH£N
3/7U5 • lfVPFLG-20UC-i-.
37750s1^s'«* NOT A CONTINUOUS LEAK
37755 IF (RPWLVOL(L) .EQ.OTHEN
37760 FALNUM-rALNU.u.-f-l
577 = 5 FALNUM1 (FALNUM)-ITYPFLG
37770 FALN'J«7 (FALNUrt)-(YR-l) ^12-t-K
37775 ONGO-. FALSE.
37730 CALL l£AKRT(ONGO,t.L,O.LK3A7E,aM,R?WLW!C(L) ,S?WLL£N(U)
37/35 RPWLRT(L)-LKRAT£
37790 ENOIF
37755 DETECT-. FALSE.
3/3CO IF (MCN«£TH(2) .AND .VAULT) THEN
37305 OLAB-'IS1
37810****** INTERSTITIAL MONITORING
37315 INTERS7TL-1 + 1/L-L/5, 2) -FN3 (INTERS" (
37820+L-H-l/L-L/S.D)
37825 IF(INTERS7(L-H-1/L-L/5,2) .£Q.O).7H£N
37330 OETTIME-FNU(SO.,72G.)
3/835 DETECT-. TRUE.
37840 GO TO 11
378^5 ENOIF
378=0. ENOIF
37855 • IF(AGTANK)THEN
37360 TMlN-30.
37365 IF(L.EQ.1)7H£N
37870 72-CON7VOL(L)/FLOWRT(L)
3/875 IF(CONT)TH£N
37880 T2- (2t-OPKRSOYj *60 .
- £133 -
-------
;'<„
E.S-
373''^ I F ( C :
375:5 END!? "'
37330 ENSiF
37335 71-72
373-0 CAL^ RA7E:£-(=.=W'U = 7(L) ,T>"N,71.-2
373-3 !-~ C£~7:.-.£.:-. i5-.5;<:-.:';=C.)}:E-£:7=».F;i3E.
37360 IF (INVCN7L)T:-i£N
373=5 CALL IKMINV(4,l.R?WLRT(L} ,OE7EC7,OE77I ME)
37370 DLAS-'M'
37375 IF CE7EC7) GO 70 11
37330 ENDIF
37335 IF (,«QNKE7H(5;)7HEN
37350 DLA3-'VW'
373S5 IF ((AGC:N7(L-i-l/L-L/5}'..EQ.K) . GR.NCSECGN) 7HEN
33DCO !F(.N07.VA?FLG)7H£N
3SCC5 IF(WGLSVA?(L) .-Q.3.) THEN
53010 CALL VA?CR(3.WGLSVA?(L),OE7-:7)
33015 IF (.N07.DE7EC7) VAPFLG-.7RUE.
33020 ',. ; WLRPSPH (L5*.03!3*3CR*VA?WDIS (3) **3-
33C25 ••/'% ENDIF
38:30 ' IF(.N07.VAPFLG) 7HEN
33C35 S?H7!tt£-WLR?3?H(L) /RPWLR7 (L)
38CuO IF (0/71 M£ (3) *R?WLR7(L)) .G7.WLRPSPH (L) . ANC.MAX (SPhT !<•*.£ .
35Cw=^ WGLRVA? (U) .EQ.WGLRVA? (L)) 7H5.N
33050 IF (WGLRVA?(L) .G7.43200.) 7HEN
33-2-55 WGLRVAP ('.} «WGLRVA? (L) -43200 .
32-60 D£7£C7*.FALSE.
38C65 ELSE
3SC70 OE7EC7-.7RUE.
38075 OE7Tlrt£»WGLRVAP(L)-i-U40
38080 VAPOE7-.7RUE.
38035 ENOIF
33090 WLRPSPH (L)-WLRPSPH(L)-*INMO*R?WLR7(L)
38095 ELSE • .
38100 .,,.-: DETECT-. FALSE.
35105 '£$• : IF(SPHTI«E.L7.MIN,-.C)7HEN
3311C • '-*JT;.-.. OE7-CT-.7RU5.
38120 *ffeni- VAPOET-.TRUE.
33125 SLSE
33130 OE7EC7-.FALSE.
38135 -. WLRPSPH (L) -WLRPSPH (L) -rtl Ni".Q.AR,?.WLRT (L)
38140 WGLRVAP (L)-WGLRVA? (L)-43200- ".' .,
38145 ENOIF •'•;*-"
33150 ENOIF . /I",.' •..'•-•'
38155 ENOi? ' -•-"•• '':::-. ..
33160 ENDIF ...,, 1C .." -
33165 IF(OE7£C7)G3 73 11 ' '"" '':~_
- Em - "
-------
E'JC: •
EttJiF
v ^ ' ~2 i n i .k<
332C5 IF (WE£X!NSJ72«;CC30.
332 !0 I? (C3N7;7H£V
" 3 2 ' 5 7 2 ~ (2 '•*" C ? H R e 3 Y ^ •'•' 5 0.
33220 IF (72.LT. (4.^60.); 72-4.AeO.
33:35 CALL RA7EtJE7iR?WLRT(!.) . 7.1 i V, Tl , 72 . C£7£C7. DE77I ,-£)
332^0 IF (:£77lrt£.G7. (30 .5!''2^ . *eO.)) 0£7£:7*. ?ALS£ .
;Ci-5
53250 IF ((CON7.ANO.S70RAGE) .AND. (D-77IKE.GT. (OPL£V>i7NKCAP (I N7 (
33255-^L- J + l/L-L/5)) /RPWLR7 (L)
32260-r))) 0^771 rt£-OPL£V*7NKCA? (L-l*i/L-L/5) /R?WLS7 (L)
332=5 IF (D£77I.*«£.G7. (7.VKCAP (L- l-H/L-L/5) /RPWLR7 ft)))
38270-f- D£77lA1£»7NKCA?(L-l-»-l/L-L/5)/?..0WLS7(L).
33275 If (0£7£C7j GO 70 1 1
33230 £NOIF
33235 IF (INVCN7L)7H£N.
3c2?C CALL I^INV(4,L,S?WL.:;7(L) ,0£7£:~,0£77!.M£)
332=5 DLAS-'ll1
33300 IF(D£T£C7) GO 70 11
38305 • END IF
383'0 -. • IF («ON«E7H(5))7H£N
33315 ' '. •-. CLA3-'VW
33320 If ((UCC3>/T
-------
321.35
33-30
3S«55
3S;CO
335C5
3351C
33515
3c5I3
nr~r"—a "i _ t r
ENOiF
ENCI F
END IF
END IF
IF (3E7EC7) GO *0 11
ENOIF
EN3IF
ENOIF
I? (RPWLVCLOJ .£Q.:)7H£.M
MOFSAC»FNUfC. , 1 .)
I F ( ; v'L.EQ. 1) -AND. (FSAC7'JG.3£ . -5)) -OR. ( (L.EQ. 1} '. AND. A37ASK
3352=-" -AND. (HORIZ.GR. (VER7.ANO. (7NKCA?(!.-l + l/L-L/5
3S = 3!>) .L£.!GGO)))))7HEN
33535 RPWLVOL (L) -RPWLST (L) *OAVMG*F I LLFR (L) *MO?RACftF I ILTI ,1 (L)
3S = ^0 IF (((MAX ((RPWLVOL (1) /RrWlRT ('J ) ,7RS«OT) ) -TR-MOTJ .Nc.O) TH£,M
3S5u5 TR£«OT»RPWLVOL (L) /R?WLRT.(L)
35=50 TREMRT-RPWLRT(L)
38555 HNOIF
385oO ELS£
335o5 RPWLVOL (L) -R?WLRT(L) -'(".I N«0»MO?RAC''«TANK7I M (
38570^-.- i^l/L-L/5)
38575 IF (((MAX ((RPWLVOL (L) /RPWLRT(L) ) .TRSrtOT) J-TRE.^.07} .Ns.C) TH-.M
33530 TRE.M07-RPWLVOL (L) /P.PWLRT (L)
38535 , TRSMRT-RPWLRT(L)
33590 .\;;; ENOIF
38535 ' . ' '>•'. END I F
33oOO 'IF (RPWLVCL(L) .G7. (F I LLVOL (I) :>F I LLFR (1) *30.) }
38605-i- RPWLVOL (L) -F I LLVOL (1) *F I LLFR (1) *30 .
33^10 " ELSE
33ol'5 I? ({(L.EQ.1) -AND. (FRAC7UC.S£..5)) .OR. ((L.iQ.D .AN3.AG7ASX.AN2.
33620-t- (HCRIZ.CR. (VsRT.ANO. (7NKCA? (L- l-rl/L-L/5) .Ls.
33e25+10CC))J))THEN
;5 = 30 RPWLVOL (L) -RPWLP.7 (L) *OAYMQ*? i LL?R (L) *r I LL7I M ;'.)
l?(((«AX((R?WLVOL(L)/RPWtR7(L)).TRS.107JJ-7R£^07) .NE.C) 7H£N
7REM07-RPWLVOL (L) /RPWLRT (L)
7REMR7-RPWLR7(L>
'
33 = 1*0
33650
38655
38660
38665
38670
53675
33630
38535'
38690
38695+
3870p
38705.
33710
38715
38720
33725
38730
38735
ELSE
*MINftO*7ANK7lM(L-t-(.l/L-L/5)
^ ifitK (?UX( (RPWLVOL (L) /RPWLR7 (L) ) -, TRSM7J ) -7RErt07) .NE.C)
^^ttT. TREM07-RPWLVOL (L) /RPWLRT(L)
'. . TRSMRT-RPWLRT (L)
• 'IH01F
'
~H£.N
IF {RPWLVOL (L) .GT. (F I LLVCL (I) *F I LLFR (1) *30 .) )
RPWLVOL(L)-FILLVQL(])*FJLLF3(;>*30.-
IF (AG7ANK)7H£M
7SU8-(l-PAGFRAC)*RPWLVOL-a)+!JSur :
WLVCL(L)"WLVOL(L)-cR?WLVOL(L)*(l-?AGrRAC^-
ELSE
73i.'RF-RPWLVOL(l)+TSURF
- E136 -
-------
3S7-C END IF
3 = 7«5 ELSEiF (IG7ANK)THEN
3S750 IF (PIPCCNT(L) .EQ.K)TKEN
387 = 3 73URF«?AGFRAC*R?WLVOL (L)+T3URF
35/So TSU==(I-?AGFRA:)*R?WLVOL 'O+rsua
3 = 7 = 5 WLVOL (L) =WLVOL (I) •'•RPWLVCl(L) - (1 -?AGFRAC)
33770 ELSE
33775 TSURF-RPWLVCL (D+TSURF
3S7SO END IF
38785 ELSE
3S7SO* UGTA.NK
337=5 IF(VAULT)THEN
33SCO IF (UGCCNT(L-l+l/L-L/5) .EQ.K)THEN
38S05 TSURF-UGCON?R*R?WLVOL (L)+TSL'R.r
33310 TSUS- (1-UGCONFR)*R?WLVOL (L)+TSU3
3 = 315 WLVOL (L)=WLVCL(L)-rSPWLVOL (L) *(1-UGCONFR)
33S20 ' ELSE
38325 TSURF«R?WLVOL(L)+73URF
33830 ENDIF
38335 ELSE
338^0 TSUB=R?WLVOL(L)^TSU3
3831*5 WLVOL (L) -WLVOL (L) +RPWLVOL (L)
38350 ENDIF
383=5 ENDIF
338&0 DO 1017 Il-FALNUM.1,-1
33865 ' ; IF (FALNUM1 (I I) .EQ.ITYPFLG) THEN
33370 ' '* IF(FALNUM7(I I) .EQ. ((YR-1) ^1 2+K) ) THEN
38S75 FALNUM2(I I)-RPWLVOL(L)
3S38C FALNUM5 (II)-«CFRAC^720
35835 ELSE
3S3SO FALNU.M.2(I I)-FALNU«2(! I )+RPWLVOL (L)
335=5 FALNUf.5(l D-FALNUMSd I)+720
385CO E^DIF
38=05 GO TO 1018
33510 ENOIF
33515 1017 CONTINUE
38520 1018 CONTINUE
33525 FALNUM30 I)-((YR-1)*12)+K
33530 GO TO 12
33535 11 CONTINUE
38540 RUPREL«RPWLR7(L)*OE77I«E
385^*5 IF((L.£Q.l) .AND. (.NOT. ((AGTANK. AND. VERT. AND . (TNKCAP(l)
38550+ .GT.1000))).OR. (IGTANK.AND. (FRACTUG.LT..5))))THEN
38555 IF (RUPREL.GT. (FILLVOL (1)*FILLFR (1)*OAYMO))RUPREL-
38S60+ FILLVOL(1)*FILLFR(1)*OAYMO
38563 ELSE IF ((L.NE.l) .AND.(.NOT.((IGTANK.AND.(FRACTUG.LT..5})
38S70* .OR.AGTANX)))THEN
38575 If (RUPREL.GT.(FILLVOL (1)*FILLFR (1)*QAY«0))RUPREL-
38S3C+ f ILLVOL (I)*FILLFR (1)*OAYMO
38585 ELSE
38550 IF (RUPREL.GT. (TNKCAP-(L-l + l/L-L/5) *OPLEV) )THEN
38555 RUPREL-TNKCAP(L-1 + 1/L-L/5) *0?L£V
35000 ENDIF
35005 ENCIr
35010 DO 1015 Il-FALNUM.1,-1
35015 IF(FALNUM1(II).EQ.ITYPFLG)THEN
35020 FALNUM2(I I)-FALNUM2(I D+RUPREL
- E137 •
-------
530:5 FALNUM5U D-rALNUMf (! : ) ^:ETT i -E/&C
35030 GO TO 10:0
33C35 END IF •
330CO 1019 CONTINUE
3902-5 1C20 CONTINUE
33050 FALNUM3 (I I)-((YR-1) *12)+X
3=055 IF (AGTANK)TKEN
35C30 IF (PIPCONT(L) .EQ.K) THEN
390 = 5 T-flP-TSURF+SURF-r?AGFRAC*RUP?.EL
'33070 CALL CLENUP(TEMP)
39075 TSURF-0
33020 SUSr=0
390o= T?R3URF=0
35090 PRSURF-0
39095 RUPR£L-(1-PAGFRAC}*R'JP?.EL
39100 AGRUPT-RUFREL+AGRUPT
39105 ELSE
33110 RUPREL-RUPREL+TSURF+SURF
33115 . CALL CLENUP(RUPREL)
39120 TSURF-0
39125 SURF=0
39130 TPRSURF-0
39135 PRSUR?=0
39 UO RUPR-L-0-.'
391^5 ENOIF
39150 ELSE IF (IGTANK)THEN
35155 IF (PIPCOMT(L) .EQ.K)THEN
39160 TEMP»T;URF-i-SURF-r?AGFRACARUPREL
39165 '• ; CALL CLENUP(TEMP)
39170 ' '• TSURF-0
39175 SURF-0
39120 TPRSURF-0
39185 PRSURF-0
39190 RUPREL«(1-?AGFRAC)ftRUPR£L
39155 UGRUPT-RUPREL-HJGRUPT '
39200 ELSE
33205 RUPREL-RUPREL+TSURF+SURF
33210 CALL CLENUP(RUPREL)
33215 7SURF-0
39220 SURF-0
39225 TPRSURF-0
39230 PRSURF-0
39235 - *. DEFREL-0
3S2U5 : .
39250 IF((.WCO*rrUL-1+l/L-L/5) .EQ.K) .OR.NOSECON) THEM
39255 ;H-'^^;-" • TEMP-TSURF+SURF+UGCONFR*RUPREL
39260 • .•-*?.-"•' CALL CLENUP(TEMP)
39265 TSURF-0 -
39270 SURF-0 ",r •
33275 RiJPREL-(l-UGCONFR)*RUPREL : --
39280" UGRUPT-RUPREL+UGRUPT ••;"" "-
39285 ELSE
39290 RUPREL-RUPREL-t-TSURF-i-SURF - -.•<•-*•.
39295 CALL CLENUP(RUPREL) : . -T^': ;.'.,-'-
33300 TSURF-0 "r .-.,.„
39305 SURF-0 * "
- E138 -
-------
59310
352 -5
353:o
393:5
33330
3330
333-5
39350
39355
-33360
393c =
39370
39375
39330
39335
39350
39395
39*400*
39^05
39^5
39^20
35^25
39^30
391*33**
39^0
39^5
39^50
39^55
33^5
33^70
39^75
33^30
39^35
39490
33^95
33500
39505
33510+
39515
39520
39525
39530
39535
395^0
395^5
39550
39555.
39560*
33565
39570
39575
33530
39585
39530
R'JFR-L=0.
ENCIF
END IF
WLVOL (L) =WLVGL (L)-UR'J.= °.EL
tfONREL=Rl!?REL-.M.CNREL
uETEC7=.FALSE.
IF {((.",AX(0£77IM£,TR£MOT))-TRErt07) .NE.O) THEN
TS£.M.C7»D-TTI.M.H
TREMR7-RPWLR7(L)
ENDIF
CALL FIX(DLA3,K,YR,L,10)
CALL VA?ZE?.0(4,L)
IF (WLDE.:VL(L) .G7.0) CALL F I X (OLA3.K.YR, L.7) '
12 CONTINUE
NDIF
RUPREL-0
55 CON7INUE
DO 5o L-l,NPI
PIPE CORROSION LEAK
IF (PIPLK(L) .EQ.K)7HEN
I7YPFLG=301G+L .
IF (PILKVOL(L) .EQ.O)THEN
FALNUrt=FALNUM-r'l
FALNUM1 (FALNUM)»ITYP-LG
FALN'JM7(rALNUM)-(YR-l) *12-^K
NC7 A CON7INUOUS LEAK
IF (AGP I?E)THEN
' '• ONGO-. FALSE.
* ELSE
ONGO=.7RUE.
END IF
IF (AGP IPE.OR. (UGPI PS.AND.PI PEE (L) .GT.O.)}7HEN
CALL LEAKR7(ONGO,1,L,1,LKRA7E,PILXDI A(L),WD,LN)
ELSE
CALL LEAKR7 (ONGO, 1, L ,0, LKRA7E , OM., P I LKWI 0 (L) , P I LKLEN (L))
' ENDIF
ELSE
ONGO-.7RUE.
IF (AGPIPE.OR. (UGPIPE.AND. (PIPEE(L) .GT.O.)))THSN
PI LKDI A (L) -? I LKD I A (L) +2* (PCORE (L) +? I EX7 (L)
+PI EX72 (L) +PI EXL02 (L) +PI EXLOC (L)) /12.
CALL LEAKR7(ONGO,1,L,1.LKRA7E.PILKDI A(L),WO,LN)
ELSE
CALL L£AKRT(ONGO,l,L,0,LXRATE,Drt,PILXWID(L) ,P!LKLEN(D)
END IF
ENOIF
PILKR7(L)-LKRA7E
E7EC7".FALSE.
F (MONrt£7H(7) .ANO.PIPSECJTHEN
DLA3-1IS1
IN7ERS7I7IAL MCNI70RING
PI I N7ER (L, 2) -FN3 (P I IN7ER (L, 1))
IF (PI IN7ER(L,2) .EQ.OJTHEN
DE7TIME-FNU(60.,720.)
DE7ECT-.TRUE.
GO 70 201
ENOIF
- E139 -
-------
35555
336iO
35='5
35-10
39=25
35-=30
^ * » •
^ :-:••>
35-0
330-5
29650
35=55
EN'i F
39670
33=75
33635
39&90
33695
33700
39705
35710
33715
35720
39725
39730
39735
5971*0
397:72
CALL SA7EDE7(?!LKR7(L) .7MI N ,71 .72 . DE7EC7, 3-771 ,-.£}
IF (DE77IME.G7. (30.5^2^.^60.)) DE7EC7=. FALSE .
OLAB-'RO1
IF (CE7EC7) GO 70 201
IF (INVCN7L)7HEN
CALL IMMINV(1 ,L,?ILKR7(L) , OE7EC7 , DE77 I ME)
DLA3-1 I I '
IF (DE7EC7) GO 70 201
ENDIF
IF (MONME7H(5))7HEN
DLAB='VW'
IF ((PIPCON7(L) .EQ.K) .OR. (.N07.P I PSEC) ) 7HEN
IF (.N07.VAPFLG)7KEN
IF (PILKVAP(L) .EQ'.0.)7HEN
CALL VAPOR((I»-L)/L,PILKVAP(L) .DE7EC7)
IF (.N07.0E7EC7) VAPFLG-.7RUE .
P I LKSPH (L) -.03 1 3*POR*VAPWD I S ( (4-L) /L) '^3
END I F
IF (.NOT.VAPFLG) 7HEN
SPHTI«E-PILXS?H(L)/PILKR7(L)
I'F ('0/7 1. ME ((U-L)/L)*PILKRT(L)) .G7. ? I LKSPH (L) . AND .MAX (SPHTI
PILKVAP(L)) .EQ.PILKVAP(L)) 7HEN
IF (PILKVAP(L) .G7.A3200.) 7HEN
P I LKVAP (L) -P I LKVA? (L) -U3200 .
•OE7EC7-. FALSE.
ELSE
OE7EC7-.7RUE.
OE77IME-?ILKVAP(L)-HUi«0
VAPDE7-.7RUE.
END IF
P I LKSPH (L) -P I LKSPH (L) -Ml NMO*P I LKR7 (L)
ELSE
DE7ECT-, FALSE.
-.«*,« ,.l F (SPHTrME . L7.MI NMO) 7HEN :
' DETECT*. 7RUE.
DETTI ME-SPH7 1 ME-H l»uQ
VAPDET-.7RUE.
. : DETECT-.FALSE.
' P!LKSPH(L)-PILKS?H(L)-«INKO*PILKR7(L)
PILKVAP(L)-PILKVA?(L)-U3200:~ •
ENDIF
ENDIF
ENDIF ;..•••:•-!
END IF :'->7 :.
IF(DE7EC7)GO 70 201
ENDIF
- E1UO -
-------
:
ENCi?
33905
35510
35=55
35523
35525
3953C
335^0
3354 =
39550
355 = 5
3 = 960
3SS=5
3327C
39575
3S930
39SS5
39950
33595
4CCOO
40005
i*0010
^0015
40020
^0025
4C030
40035
40040
400^*5
400=0
40055
40060
40065
4COJO
40075
40080
40C85
40C90
400S5
40100
40105
40110
40115
40120
40125
40130
40 1 35-
40140
40 1 45
40150
40155
40160
If (UG?I?E)THEN
IF (iNVCNTL)THEN
CALL I.U.M.INV(1 ,'.,=»! LK.'.TvL) .DETECT. DETTIME)
DLAB='I I '
IF (DETECT) GO TO 2C1
END IF
DLA3='VW''
IF ((PIPCCNT(L) .EQ.K) .OR. (.NOT.?IPSEC))THEN
IF (.NOT.VAPFLGjTHEN
IF (PILKVA? (L) .EQ.O.)THEN
CALL VAPOR ((1»-L)/L.PI LXVAP(L) .DE'ECT;
IF (.NOT.DETECT) VA?FLG=.TRUE.
P I LKSPH (L) = . 03 1 3*POR*VA?WD i S ((4-L) /L) **3
END IF
IF (.NOT.VAPFLG) THEN
SPHTIME=P I LKSPH (L) /P I LKRT (L)
IF ((VTIME((4-L)/L)*PILKRT(L)) .GT. ? I LKSPH (L) . AND .MAX (SPHTI
PILKVA? (L)) .EQ. PI LKVAP(L)) THEN •
IF (PILKVAP(L) .GT.43200.) THEN
PILKVAP (L)-PILKVAP (L)-43200.
•• DETECT-.FALSE.
ELSE
DETECT-.TRUE.
DETTIME=?ILKVA?(L)+1440
VAPOET-.TRUE.
END IF
• -. PILKSPH(L)*PILKS?H(L)-MIMMO:1--PILKRT(L)
ELSE
DETECT-.FALSE.
IF (SPHTIME.LT.MINMO)THEN
DETECT-.TRUE.
DETTIME-SPHTIME-H440
VAPDET-.TRUE.
ELSE
DETECT-.FALSE.
PILKSPH (L)-PILKSPH(L)-MlNMC*PILXRT (L)
PI LKVAP (L)»?l LKVAP (L) -43200
END IF
ENOIF
END IF
END IF -
IF (DETECT)GO TO 201
ENOIF
ENDIF
ENOIF
IF (?iLKVOL (L) .EQ.OTHEN
' ' KOFRAC-FNU(0.,, 1.)
IF(L.EQ.OTHEN
LKVOL(L)-PILKRT (L)*DAYrtO*FILLFR(L)*MOFRAC*FILLTIM(L)
IF(((KAX((PILXVOL(L)/PILKRT(L)) .PREMOT))-PREHDT) .NE.C> THEN
PREMOT-PILKVOL(L)/?ILKRT (L)
PREMRT-PILKRT(L)
ENOIF
ELSE
- EUl -
-------
4016= PI LKVCL (L) = ?!LX=;7(L} :-CAv;u.3^nCr = AC::C I SCFR (L) ••'•••:: SC~I.". ('.'.
40170 I r ( ((ttAX ((?! LKVCL (L) /Pi LKRT 'L; ) , =>F.E.M.C7) ) -r = E.M.37j .NE.O; 7HE.1J
40175 ?SE.".OT = ? ! LKVOL (L) /? I LKR7 (L) '
4015:- PRE.M.RT=?!LK.=.T(L)
40155 ENCIF
401-0 ENOIF
^ o i - 5 ELSE
-:::•: IF (L.£3.1)THEN
"«:::= ?: LKVCL (L)=?iLKR7 (L) *OAYMO*FILLFR (L)*FILLTIMCJ
4C::5 IF (v(MAX((?ILKVOL(L)/PILKRT(L)) , PRE.MDT)) -PRE.lOT; ..SE.O) THEN
4C2•5 PREMDT=?ILKVOL(L)/?ILKRT(L)
4C220 PREMRT»?ILXRT(L)
4CI25 ENDIF
40230 ELSE
4C235 ?l LKVOL (L) -P I LKRT (L) *OAYKO*D I SCFR (L) *0 I SCT I A*. (L)
4C2^0 IF(((MAX((?ILKVOL(L)/?ILKRT(L)) , FREMDT) )-PREM07) .NE.O) THEN
40245 PREMOT-PILKVCL(L)/PILKRT(L)
402=0 PREMRT=PILKRT(L)
40255 ENDIF
402&0 ENDIF
40265 ENDIF
40270 IF (AGPIPE)THEN
4C275 IF (PIPCONT(L) .EQ.K)THE%I
40280 TSURF«?AGFRAC*PILKVOL(L)+TSURF
40235 TSUS-(I-PAGFRAC)*PILKVOL(L)+TSI
402SC PIVOL (L) =?IVOL (D+PILKVOL (L) a(l-PAGFRAC)
"02=5 ELSE
40300 TSURF-PILKVOL(L)+TSURF
40305 -. • ENDIF
40310 • vELSE
40315 TSU3-?ILKVOL(L)+TSU3
40320 PIVCL (L) =?IVOL (D+PILKVOL (L)
40325 ENDIF
40330 DC 311 Il-FALNUM.1,-1
40335 IF (FALNUM1 (I I) .EQ.ITYPFLG) THEN
^0340 . !r (FALNUM7d I) .EQ. ((YR-1)*12-HO)TH£N
4C345 FALNUM2(I I)-PI LKVOL (L)
40350 FALNUM5dl)-MOFRAC*720
40355 ELSE
403&0 FALNUM2(I I)-FALNUM2(I D+PI LKVOL (L)
40365 FALNU«5(I I)-FALNUM5(I 1)^720
40370 ENDIF
40375 GO TO 912
40380 . --• -ENOIF"
40385 911 CONTINUE
403SO £&*. 912 CONTINUE
^0395 ^4 FALNUM3(I I)-((YR-1) *12)+K
40400 ^--CO. TO 202
40405 201:- - LKREL-PILKRT(L)*DETTIME
40410 IF ((L.EQ.1) .AND. (.NOT. (.(AGTANK.AND .VERT.AND; (TNKCA?(1)
40415-f .GT.10CC))) .OR. (IGTANK.AND. (FRACTUG.LT. .5))) )THEN
40420- IF(LKR£L.GT. (F I LLVCl (1) *F TILFR (U*OAYMO):) LKREL**
40425+ FILLVOL{1)*FILLFR(1)*OAYMO- _ , -,_ ,-.-•
40430 ELS£IF((L.NE.1).AND. (.NOT. ((IGTANK.ANP.(FRACTUfi.LT..5))
40435-I- .OR.AGTANK))) THEN ' - - ' --.----;-
40440 IF(LXREL.GT. (FILLVOL (1)*FILLFR(1) *OAYMO)) LKR1L-
40445-1- FILLVOL(1)'*FILLFR(1)*OAYnO
- E142 -
-------
4Q4=C
f /> i. - -
4:^0
•* •* ^ / o ;
4G-30
/+04J5
405CO
tC 5 1
405:0
40525
40 = 30
40535
1.0550
^0555
40560
40565
4C=70
40575
4C530
40535
4G53C
40555
40cCO
40605
40610
40615
4C620
4C625
40630
40 = 40
4C645
40650
40655
4C660
4C665
40670
406S5
406SO
40695
40/00
^0/05.
40710^
^0715
40720
1*0725
40730
LKREL^TNKCA? ('_- 1-i/L-L/5} *C?L£V
•NDIF
N-::F
CO 5i3 I IsFALNvJtt. 1 ,-1
IF (FALSUMl (! I) .EQ. ITYPFLG/THEN
FALNUM2 (I I) =FALNU^2 (I l)-i-LKREL
FALNUM5 (I I) =FALNUf.5 (I I) -i-CETTI ME/oO.
GO TO 914
ENOIF
513 CCNTIN'JE
914 CONTINUE
IF(A3?iP£)TK-N
IF (PIPC:NT(L) .EQ.K) THEN
T£,u,P=TSURF^3URr-r?AGrRAC*LKREL
•CALL CLENL'P(TEMP)
TSURF»0
S'JRF=0
LKREL=(1-?AGFRAC) ^LXREL
AGLEAK = LKREL-i-AGLEAK
ELSE
CALL CLENU?(LKR£L)
TSURF=0
SL'RF-0
LKREL=0.
•NO IF
''; ELSE
UGL£AK=LKREL-rUGLEAK
ENOIF
PIVOL(L)»?IVGL(L)J-LKREL
MONR£L=LKREL-i-.M.CNREL
DETECT". FALSE.
IF (((MAX(D£TTI,H,E,PRE.",DT)) -PRErtOT) .NE.O) THEN
PREMOT'OETTIME
PRE.1RT=PILKRT(l)
ENDIF
CALL FIX(DLA3,K,YR,L,4)
CALL FIX(DLA3,K,YR,L,9)
CALL VA?ZERO(1,L)
IF (PIDEFVL(L) .GT.O) CALL F I X (DLA3,K,YR,L,
6)
IF(GKDEFVL(L) .GT.O) CALL F I X (OLAB, K, YR, L,8)
IF(WLDEFVL(L) .GT.O) CALL F I X (OLA3.K.YR, L,7)
IF(R?PIVOL(L) .GT.O)
IF (RPWLVOL(L) .GT.O)
202 CONTINUE
ENDIF
LXREL-0
56 CONTINUE
DO 57 L-l.NPI
PUMP CORROSION LEAK
I? (PKPLK(L) .EQ.K) THEN
ITYPFLG-3020-t-L
IF (PrtLKVOL(L) .EQ.O)THEN
FALNUM-FALNU/VH
CALL FIX(DLA3,K,YR,
CALL FIX(DLAS,:<,YR,
,5)
,10)
- £143 -
-------
40735 FALNUM; (rALNL.!r,; = iTv?'_:
40740 F A!_.V..M.7 (F A.LM;JM) = (Y = - I) » 1 I~K
40745:: NOT A CONTINUOUS LEAK
4 C 7 ~ 0 CNGG=.'ALS;.
40755 CALL LEAKRT (CNGC.Z.L, 1 , LKRATE , =.U.LKD I A (L) .WD.LN;
40760 ELSE
40755* APPLY A GROWTH FACTOR
407/0 PMLKC I A (L) =?MLKO I A (L) +2* (PMCCR; (L) +PMEXT (L) } / •2 .
4077= ONGO-.TRUE.
40780 CALL LEAKRT(ONGC,2,t,1,LKRATE,PMLKD!A (L).WD.LN)
"1,0755 END IF
40790 ?MLKRT(L)-LKRATE
40735 DETECT-.FALSE.
403CC IF (AGPUMP)THEN
40805 TMIN-.25
40310 IF(BATCH)T2-CONTVOL(L)/'LOWRT(L)
40815 IF(CONT)TH£N
40820 T2-(24-OPHRSDY)*60.
40825 IF (T2.LT. (4.*60.))T2=4.ftfcO.
40330 ENOIF
40335 T1-.25-T2
40840 CALL RATEOET(?,M,LKRT(L) .TMIN.T1 ,T2, DETECT, OETTIME)
4C345 IF(DETTIME.GT. (30.5^24.*60.))DETECT".FALSE.
40850 OLAS-'RD1 . '
40355 ' IF (DETECT) GO TO 211
40860 IF (INVCNTL)THEN
40865 CALL imiNV(2,L,PMLKRT(L) .DETECT, OETTIME)
40870 DLAS-'M1
40375 -. .. IF (DETECT) 'GO TO 211
40830 • ',. ENOIF
40335 IF (MONM£TH(5))THEN
40890 DLAB-'VW1
40895 IF((PIPCONT(L) .EQ.K).OR.NOSECCN) THEN
40900 IF (.NOT.VAPFLG) THEN
40905 IF(PMPVAP(L).EQ.O.)THEN
40910 CALL VAPOR(2,PMPVA?(L).DETECT)
40915 ' IF (.NOT.DETECT) VAPFLG-.TRUE.
40920 PMPS?H(L)-.C313*PCR*VAPWDIS (2) **3
40925 ENDIF
40930 IF (.NOT.VAPFLG) THEN
40935 SPHTIME-?MPS?H(L)/PMLKRT(L)
40940 IF ((VTIME(2) APMLKRT(L)) .GT.PMPSPH (L) . AND .MAX (SPHTI ME ,
40945+ PMPVA? (U).EQ.PMPVAP(L)) THEN
40950 .< > - ' IF (PMPVAP(L) .GT.43200.) THEN
40955 "iig^'.'--• • PMPVAP (L)-PMPVAP (L)-43200.
40960 'v'-V-''".."-- DETECT-.FALSE.
40965 \'-~- ~~1 ELSE
40970 '4«f- .-•"- DETECT-.TRUE.
40975 OETTIME-PMPVAP(L)+1440
40980 . VAPOET-.TRUE.
40985 ENOIF
40990- . ?MPS?H(L)-?MPS?H(L3-MiNKO*P«LKRT(L)
40995 ELSE • ' ' .
41000 DETECT-.FALSE.
41005 IF (SPHTIrtE.LT.JIINMO)THEN
41010 DETECT-.TRUE.
41015 OETTIME-SPHTIME+1440
- E144 -
-------
1.1C 20 VA?C-T=.TR'J£.
^;c:5 ELSE
1*1C}0 C£TiCT=.FALSE.
l» 10^.= PMPSPH (L) = = :".= 5=4 !'_} -.",1 'if.C^.-.LX
1*1 OLO PMPVAr (L) =?.H.?VA? (.; --32CO
1*1 C«5 END IF
1*1050 ENDIF
M055 ENOI?
'1*10=>G ENDIF
1*106 = IF (DETECT)GO TO 211
1.1070 ENDIF
1*1075 ENDIF
1,1 CSO ENDIF
1*1CS5 IF(PMLXVCL(L) .EQ.OJTKEN
U1030 MOFRAC = FNU(0. , 1 .)
1,1095 IF (L.EQ.DTHEN
i* 11 co P.ILKVCL (D =PML:
-------
413C5
41310
41315
413:
41325
41330
41335
41340
1.1345
41350
•41335
211
4137C
41375
1+1380
M3S5
41330
41395
414CO
41405
41410
41415
41420
41425
41430
41435
41440
41445
41450
41455
41460
41 465
41470
41475
41430
41 43J
41490
41495
41500
41505
41510
41515
41520
41525
41530
41535
41540
41545
41550
41555
41560.
41565
41570*
41575
41580
41585
CCNTINU-
I F (LKREL.GT. (F I LLVC.. { 1) *F 1 L.??. (!) *DAYrtO) ) LK=- L =
FILLVGL (1)*FILLFR(U ^CAYf.O
DO 1023 I !="AL.S':.M. 1,-!
IF (FALNUM1 (I I) .iQ. !TY.= FLG) THEN
FAi.NU.M.2(l I)=?A.NUM2 (I I^LKSEL
FALNUM5(i I)=FALS"JM5(I D+DETTIM-/60.
GO TO 1C24
ENDIF
1023 CONTINUE
1024 CONTINUE
FALMUM3(I l)-((Y?.-l)*12}4-:<
FALNUMo (I I)=OLA3
IF (PIPCONT(L) .£O.K) THEN
CALL CLENUPCTEM?)
TSURF-0
SURF«0
AGLEAK=(1-PAGFRAC) *LKREL-I-AGL=-AK
ELSE
LKREL»LKREL-:-TSURr-<-SURF
CALL CLENUP(LKREL)
TSURF=0
SURF-0
LKREL-0.
ENDIF
PMVOL (L) -PMVOL (L) +LKREL
MONREL-LKREL^.nONREL
' ; DETECT-. FALSE.
IF (((MAX(DETTI«E.PRErtD7))-?REM07) .GT.O) THEN
PRErtOT-OETTIME
PREMRT-PMLKRT (L)
ENDIF
PMLKVOL (L) -0
?«PVAP(L)-0.
PMLKRT(L)-0
PMPLK(L)-0
CALL REPLAC(2,L)
CALL INTRE?L(2,L)
00 1069 U-FALNim, 1..-1
IF(MOO(FALNUM1 (IJ) ,100) .EQ. (20+L) ) GO TO 1135
1069 CONTINUE
END IF .
LKREL-0
57 CONTINUE
DO 58 L-1.NPI
GASKETED FLANGE LEAK
IF(GSKLK(L) .EQ.K)THEN
ITYPFLG-3050+L ... .- .-;
IF(GKLKVOL(L) .EQ.O) THEN
.riu >
- E146 -
-------
c • i nMM i .'r •'. MI :u'i
r « u .1 >•• • • • \. * • •' •* • •/
* 1 SCO r ALN'J"i7 (.• AL'<:J.U) = (/?.- i; '•'•' 1 2~''s'
4 I 6 C 5 ' C N G C = . " A L S £ .
41610 CALL L£AK = T(CNGO,5,L. 1 , LKRATE , GKLKD I A (!.) ,wD,'..',}
41615 ELSE
41620•••:«A ' APPLY GROWTH FACTOR
41625 END IF
41630 IF (Gr.LKVOL (L) . EQ.O)THEN
41635** NOT A CONTINUOUS LEAK
41640 GKLKRT{L)=LKRATE
•41645 EN3IF
41650 DETECT".FALSE.
41655 IF (AGTANK)THEN
41660 TMIN=30.
41665 IF (L.EQ.l)THEN
41670 T2=CCNTVCL(L)/FLOWRT(L)
41675 IF (CCNT)THEN
416SO T2=(24-0?HRSDY)'1'50.
416S5 . IF (T2.LT.(4.*60.))T2=4.*60.
1*1630 END IF
416?5 ELSE
417CO T2=."
41705 IF (WEEKINS)T2.-10030.
41710 IF (COST)THEN
41720 IF (T2.LT. (4 . :':&0 .)) T2=4 .^60 .
41/25 ENDIr
41730 . END IF
^1735 •' i. T1=T2
41740 CALL RAT;DET(GKLKRT(L) ,T,U,IN,T1 ,T2 , DETECT, DETT 1 ,M,E)
417^5 IF (CETTI/-.E.GT. (30 .5^24 .=>60.) ) DETECT". FALSE .
41750 OLA3-'RO'
-1755 IF Iv'CONT. AND. STORAGE) .AND. (DETT I,IE .GT. (OPLsV*TNKCAP (I NT (
417 = 5-^))) C-TTi.M£-o?L£VA7NKCAP(L-l-H/L-L/5)/GKLKRT{L)
41770 IF (DETTi,u.E.GT. (TMKCAP (L-K1/L-L/5)/GKLXRT (L)))
41775- DETT!rtE=T.NKCA?(L-l + l/L-L/5)/GKL!
-------
41230
4:350
413S5
41 =CO
41305
415:0
41915
41920
41925
41930
41535
419^0
41950
41955
41960
41965
41970
41975
41980
41985
41990
41995
42000
4200 =
42010*
42015
42020
42025-"
42030
42035-*-L
42040
42045
420=0
42055
42060
42065
42070
42075
42080
42085
42090
42095
42100
42105
42110
42115
42120
42125
42130^
42140
42145
42150 I
42155+'-
i • v'WGLP.VA? (L) .3T.;3:CC.) THEN
WGL = V;= (L) -WGLP.VA? (L) --320C-.
DETECT*.FALSE.
ELSE
DETECT-.TRUE.
DETT I ME=WGL.~VA.= (L) -^-C
VAPDET-.TP.UE.
ENDIF
GKLKSPH (L) -GKLKSPH (L) -rt! NMC*3KL: |