ML061390077
| ML061390077 | |
| Person / Time | |
|---|---|
| Site: | Pilgrim |
| Issue date: | 10/20/2004 |
| From: | Messler T AREVA |
| To: | Office of New Reactors |
| ALICIA WILLIAMSON 301-415-1878 | |
| Shared Package | |
| ML061380814 | List:
|
| References | |
| Download: ML061390077 (32) | |
Text
20697-8 (4/1/2004)
A CALCULATION
SUMMARY
SHEET (CSS)
AREVA Document Identifier 32-5052036-00 Title Evaluation of Pilgrim Nuclear Power Station 1996-2001 Meteorological Data PREPARED BY:
REVIEWED BY:
METHOD. C DETAIUD CHECK E
INDEPENDENT CALCULATION NAME Theodore A. Messier NAME John N. Hamawi SIGNATURE J4/
t ac t
SIGNATURE
/
¶
/
4 TITLE Meteorologist DATE TITLE ting Radiological Eng.
DATE COST REF.
TM STATEMENT:
CENTER 41758 PAGE(S) 10-11 REVIEWER INDEPENDENCE PURPOSE AND
SUMMARY
OF RESULTS:.
Pumose Evaluate the meteorological data recorded by the onsite meteorological monitoring system at Pilgrim Nuclear Power Station from January 1996 through December 2001.
Results Meteorological data recorded on the 220' primary tower by the onsite meteorological monitoring system at Pilgrim Nuclear Power Station (PNPS) from January 1996 through December2001 were evaluated. These data were determined to be of good quality and suitable for use in atmospheric dispersion assessments.
This calculation is safety related and was prepared under the AREVAlFramatome ANP Quality Assurance Program.
I I
I THE FOLLOWING COMPUTER CODES HAVE BEEN USED IN THIS DOCUMENT:
THE DOCUMENT CONTAINS ASSUMPTIONS THAT MUST BE VERIFIED PRIOR TO USE ON SAFETY-RELATED WORK CODE/VERSION/REV CODEIVERSIONIREV metrose version 1.3 YES NO Frmatome ANP, Inc., an AREVA andSiemens company Page I
of 32
22410-3 (5/10/2004) 1 nf 2 At DESIGN VERIFICATION CHECKLIST AREVA Document Identifier 32-5052036-00 Page 2 of 32 Title Evaluation of Pilgrim Nuclear Power Station 1996-2001 Meteorological Data
- 1.
Were the inputs correctly selected and incorporated into design or analysis?
id1 Y E ll N/A
- 2.
Are assumptions necessary to perform the design or analysis activity adequately
('Y 0
N 0
N/A described and reasonable? Where necessary, are the assumptions identified for subsequent re-verifications when the detailed design activities are completed?
- 3.
Are the appropriate quality and quality assurance requirements specified? Or, for O 0 N 0
N/A documents prepared per FANP procedures, have the procedural requirements been met?
- 4.
If the design or analysis cites or is required to cite requirements or criteria based upon 0
Y 0
N eN/A applicable codes, standards, specific regulatory requirements, including issue and addenda, are these properly identified, and are the requirements/criteria for design or analysis met?
- 5.
Have applicable construction and operating experience been considered?
0 Y
0AN COl' N/A
- 6.
Have the design interface requirements been satisfied?
a y a
N 0
(P N/A
- 7.
Was an ppropriate design or analytical method used?
Xy El N El N/A
_8.
Is the output reasonable compared to inputs?
-0Y. N 0 N/A
- 9.
Are the specified parts, equipment and processes suitable for the required application?
- a. Y 0
N E N/A
- 10.
Are the specified materials compatible with each other and the design environmental 0
Y 0
N rN/A conditions to which the material will be exposed?
- 11.
Have adequate maintenance features and requirements been specified?
E Y El N N/A
- 12.
Are accessibility and other design provisions adequate for performance of needed a
Y 0
N N/A maintenance and repair?
- 13.
Has adequate accessibility been provided to perform the in-service inspection expected 0 Y 0 N N/A to be required during the plant life?
- 14.
Has the design properly considered radiation exposure to the public and plant 0
Y a
N 0N/A personnel?
- 15.
Are the acceptance criteria incorporated in the design documents sufficient to allow 0
Y 0
N e
N/A verification that design requirements have been satisfactorily accomplished?
- 16.
Have adequate pre-operational and subsequent periodic test requirements been 0
Y 0
N
&N/A appropriately specified?
- 17.
Are adequate handling, storage, cleaning and shipping requirements specified?
Q Y D N El N/A
- 18.
Are adequate identification requirements specified?
Q Y El N [i N/A
- 19.
Is the document prepared and being released under the FANP Quality Assurance Ifl'Y 0
N 0
N/A Program? If not, are requirements for record preparation review, approval, retention, etc., adequately specified?
Framatome ANP, Inc., an ARE VA and emens company
22410-3 (5/102004) 2 of2 A
DESIGN VERIFICATION CHECKLIST AREVA Document Identifier:
32-5052036-00 Page 3 of 32 Comments:
Verified By.
John N. Hamawi (First, Ml, Last)
Printed / Typed Name Signature Date Framatome ANP, Inc., an AREVA andSemens company
A AR EVA Evaluation of Pilgrn Nudear Power Staflon 1996-2001 Meteorological Data Prepared by: Theodore A. Messier Framatome ANP. Inc.. an ARE VA and Siemens comaw Document ID 32-5052036-00 Page 4 RECORD OF REVISIONS Place holder forfuture revisions, if any.
A Evaluation of Pilgrm Nuclear Power Staton Document ID 32-5052036-00 1996.2001 Meteorological Data AREVA Preaedby: TheodoreAMessier Page5 Frmmatome ANP, Inc., an AREVA and Siemens company TABLE OF CONTENTS CALCULATION
SUMMARY
SHEET (CSS)........................................
I DESIGN VERIFICATION CHECKLIST........................................
2 RECORD OF REVISIONS..........................................
4 TABLE OF CONTENTS..........................................
5 1.0 Purpose/Objeclive
.6 2.0 Assumptions and Key Assumptions
.6 3.0 Computing Environment
.6 4.0 Quality Assurance
.6 5.0 Calculations
.6 Table 1: Summary of Joint Frequency Distribution Comparison......................................... g9 Table 2: Meteorological Data Recovery Rates for the Period 1996-2001.........................................
10 6.0 Resuts/Conclusion.........................................
10 7.0 References.........................................
10 Exhibit 1: BECo Meteorological Data Fomat..........................................
12 Exhibit 2: PNPS Delta-Temperature Ranges (Stability Classes).................
........................ 13 ATTACHMENT A: Validation of Computer Codes pnpswd and bedceck.
14 ATTACHMENT B: COMPUTER INPUT AND OUTPUT FILES.................
........................ 18 ATTACHMENT C: COMPUTER CODE PNPSWD LISTING.........................................
21 ATTACHMENT 0: COMPUTER CODE BECHECK LISTING.................
........................ 26
A Evaluation of Pi grm Nuclear Power Station Document ID 32-5052036-00 1996-2001 Meteorological Data AR EVA Preped by: ThewdoreA Messier Page 6 Frmatome ANP, Inc., an iEVA and Siemens company 1.0 PurposelObjective Evaluate the meteorological data recorded by the onsite meteorological monitoring system at Pilgrim Nuclear Power Station (PNPS) from January 1996 through December 2001 as requested in Entergy/Pilgrim Contract Order Number 4500534887.
2.0 Assumptions and Key Assumptions Since the base of the backup meteorological tower is not located on a natural surface, it was assumed that the data from that tower were not suitable for use in this calculation.
A key assumption is any assumption or limitation that must be verified prior to using the results andlor conclusions of a calculation for a safety-related task. There are no key assumptions in the present calculation.
3.0 Computing Environment The computer runs in this calculation Involved the use of pnpswd, becheck, and metrose and were carried out on the HP 90001785 CPU running the HP UX B.10.20 operating system. Computer programs pnpswd and becheck were written expressly for use in this calculation and their usage is validated in Attachment A.
Computer code metrose is listed in the Framatome-ANP Computer Software Index. It is a safety-related computer code used to produce joint frequency distribution (JFD) summaries of meteorological data. There are no open software error reports for metrose.
4.0 Quality Assurance This work was performed under Framatome's Quality Assurance Program, and Framatome Procedure 0402-01 (Preparing and Processing FANP Calculations) was followed.
5.0 Calculations Meteorological data recorded by the onsite meteorological monitoring system at Pilgrim Nuclear Power Station from January 1996 through December2001 were retrieved from the Framatome-ANP (FANP) Software Control Ubrary in the form of annual files. These data had been used previously to generate annual joint frequency distribution tables for PNPS (see References 2 through 10), were in the BECo met data format (see Exhibit 1),
and included data from both meteorological towers (the 220' primary and the 160' backup). These annual data files were transmitted to PNPS and were compared to those In their possesion and were found to be identical.
Although these data had been checked previously by both PNPS and YNSD or DE&S (now AREVAIFANP), it was decided to check the data again. Computer program becheck was written to perform this data check and to determine the data recovery rates. Each of the original six annual meteorological data files were input in turn to becheck.
Program becheck checked for the following suspicious data:
- Unstable delta-temperature values at night, Stable delta-temperature values all day long,
A Evaluation of Pilgrn Nuclear Power Stagon Document ID 32-5052036-00 1996-2001 Meteorologicel Data AR EVA PreParedby: TheodreA Messier Page 7 Framatome ANP, Inc., an ARAVA and Siemens company
- Ambient temperature changes of ten degrees Fahrenheit or more in an hours time,
- Repeating wind speed values, and
- Comparison of primary tower to backup tower wind direction values.
Note that data flagged by the program were not necessarily bad data - the program simply flags data worthy of a closer look by an experienced meteorologist (indeed, the NRC computer code QA works under the same philosophy). Since the backup tower data were considered suspect and not used in this calculation, the results of the wind direction comparison were ignored. Note that while some data were flagged, it is the opinion of the author, a meteorologist with seventeen years experience, that the data are correct given the atmospheric conditions occurring when they were recorded and the location of PNPS on the shore of Massachusetts Bay.
Computer input and output file names are listed in Attachment B; copies of these files were provided on a compact disc to PNPS and were put on the FANP COLD Server for archival storage. A listing of computer code becheck is presented in Attachment D. The source code file name is becheck.f and the executable file name is becheck.e. The file sizes in bytes and the creation date/time are:
permissions file owner arouo size in bytes date/time file name
-rwxrwxrwx messier eed 49245 Oct 5 14:51 becheck.e
-rw-r----- messier eed 12142 Oct 5 14:50 becheck.f As an additional check of the data, the FANP computer code metrose was used to produce a joint frequency distribution summary of the 1996-2001 meteorological data. This JFD was compared to two others produced from PNPS meteorological data from 1992 (Reference 11) and 1993 (Reference 12). This comparison of the 1996-2001 data set with historical data from the site showed good agreement A summary of the comparison is provided in Table 1. Data recovery rates for the 1996-2001 period are provided in Table 2. Computer input and output file names are listed In Attachment B; copies of these files were provided on a compact disc to PNPS and were put on the FANP COLD Server for archival storage.
A joint frequency distribution summary of the 1996-2000 meteorological data was produced using the FANP computer code metrose. This JFD is suitable for inclusion in a PAVAN input file for use in generating atmospheric dispersion factors for accident conditions.
Visual examination of the data files indicated that the 1996 data file had wind direction values that ranged from 0 degrees to 540 degrees. The other annual files had wind direction values that ranged from 0 degrees to 360 degrees. For the sake of consistency, it was decided to convert all wind direction values from 0 to 540 degrees to 0 to 360 degrees. Computer code pnpswd was written to perform this conversion.
Each of the six annual meteorological files were input to pnpswd and two files were output in each of the six runs: the so-called banner file which lists the computer code name, version number, input file name, number of wind direction values changed, and run date, the main output file of meteorological data with wind direction values converted as necessary. Note that the computer code checked for wind direction values that were greater than 360 degrees but less than 541 degrees so as to not affect any data flagged as bad or missing (9999). The prmary tower meteorological data were output by pnpswd but the backup tower meteorological data were not Otherwise, the original BECo met data format was maintained (see Exhibit 1). Computer input and output file names are listed in Attachment B; copies of these files were provided on a compact disc to PNPS and were put on the FANP COLD Server for archival storage. A listing of computer code pnpswd is presented in Attachment C. The source code file name is pnpswd.f and the executable file name is pnpswd.e. The file sizes in bytes and the creation date/time are:
A AR EVA Evaluation of Pikgrm Nuclear Power Station 1996-2001 Meteorological Data Prepared by: Theodore A Messier Framatome ANP. Inc., anAREVA andsemens company Document ID 32-5052036-00 Page 8 narmkamnna fila nwnar nrnhn
-p§§GJUfI
... ~
l~
-IW
-rwxrwxrwx
-rw-r-----
1 messier 1 messier eed eed size in bytes date/time 28763 Oct 19 08:44 4518 Oct 19 08:44 file name pnpswd.e pnpswd.f Exhibit 2 presents the PNPS atmospheric stability classes as a function of delta-temperature values (degrees Fahrenheit per 187 feet). This exhibit also contains the stability class breakdown (used by the NRC in Safety Guide 23) in degrees Celsius per 100 meters, and documents the conversion from degrees Celsius per 100 meters to degrees Fahrenheit per 187 feet.
A Evaluation of Pilgrm Nuclear Power Station 1996-2001 Meteordogcal Data A R EVA Prepared by: Theodore A Messier Framtome ANP, Inc., anAREVA and Siemens company Document ID 32-5052036-00 Page 9 Table 1: Summary of Joint Frequency Distribution Comparison Stability 1996-2001 Class 33' 220' Cas Winds Winds A
13 12.89 B
3.39 3.4 C
4.51 4.53 D
30.35 30.41 E
35.25 35.32 F
10.57 10.56 G
2.93 2.89 Major 13-18 Ws 4___MPH MPH Class Major SSWW WD Stability 1992 Class 33 9
2220' ass winds winds A
9.89 9.88 B
3 2.99 C
3.63 3.64 D
29.25 29.44 E
32.56 32.64 F
17.49 17.38 G
4.17 4.04 Stablity1993 tabs 33' 220' winds winds A
10.1 10.23 B
3.98 4.01 C
4.95 5.09 D
37.86 37.66 E
31.69 31.91 F
9.45 9.22 G
1.96 1.88 Major 4-7 MPH 13-18 Ws MPH Class Major SSW Source: Reference 12
A Evaluation of PiAgrm Nuclear Power Stafton Document ID 32-5052036-00 1996-2001 Meteorologcal Data AREVA Preparedbr TheodoreAMessier Page 10 Framatome ANP, Inc., an AREVA and Siemens company Table 2: Meteorological Data Recovery Rates for the Period 199652001 Data Recovery Rates Year LL Composite UL Composite 1996 96.82 95.99 1997 93.73 95.40 1998 96.71 92.05 1999 94.77 90.82 2000 91.85 91.02 2001 95.76 97.05 Six Year 94.94 l
93.72 Average _
I Note that the composite recovery reported is the percent of time that windspeed, wind direction, and delta temperature were available simultaneously.
6.0 Results/Conclusion Meteorological data recorded on the 220' primary tower by the onsite meteorological monitoring system at Pilgrim Nuclear Power Station (PNPS) from January 1996 through December 2001 were evaluated. These data were determined to be of good quality and suitable for use in atmospheric dispersion assessments.
7.0 References
- 1. Entergy/Pilgrim Contract Order Number 4500534887.
- 2. AREVA/FANPCalculation BEC-0081, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions First and Second Quarters 1996', dated 7/2511996.
- 3. AREVA/FANPCalculation BEC-0085, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions Third and Fourth Quarters 1996', dated 2/1211997.
- 4. AREVA/FANPCalculation BEC-0086, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions First and Second Quarters 199r, dated 816/1997.
- 5. AREVA/FANP Calculation BEC088, Rev. 0, 'Pilgrm Station Meteorological Data Joint Frequency Distrbutions Third and Fourth Quarters 1997', dated 2110/1998.
- 6. AREVA/FANP Calculation EHS-BEC-001, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions First and Second Quarters 1998', dated 8112/1998.
- 7. AREVA/FANP Calculation KECM0090, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions Third and Fourth Quarters 1998", dated 3126/1999.
- 8. AREVA/FANP Calculation BEC-0091, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions First, Second, Third, and Fourth Quarters 1999', dated 3/20/2000.
- 9. AREVA/FANP Calculation BEC-0093, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distrbutions First, Second, Third, and Fourth Quarters 2000', dated 4/13/2001.
- 10. AREVA/FANP Calculation BEC-0095, Rev. 0, 'Pilgrim Station Meteorological Data Joint Frequency Distributions First, Second, Third, and Fourth Quarters 2001", dated 4/16/2002.
A AREVA Evaluation of Pilgrm Nuclear Power Station 1996-2001 Meteorological Data Prepared b. Theodore Messier Framatome ANP. Inc.. an AREVA and Siemens company Document ID 32-5052036-00 Page 11
- 11. AREVANFANPCalculagon BEC-0063, Rev. 0, Generation of Brookhaven National Laboratory-Format Joint Frequency Distributions, 1992", dated 813011993.
- 12. AREVANFANPCalculation BEC-0070, Rev. 0, "Generation of Brookhaven National Laboratory-Format Joint Frequency Distributions, 1993", dated 211011994.
A Evaluation of Pflgrm Nuclear Power Station Document ID 32-5052036-00 A
1996-2001 Meteorological Data AREVA Prepared by: Theodore A Messier Page 12 Famatome ANP, Inc., anAREMA and Siemens company Exhibit 1: BECo Meteorological Data Fornat Parameter (units)
I of Chars. Columns Year 2
01-02 Month 2
04-05 Day 2
07-08 Hour 2
10-11 160 Foot Tower:
Wind Direction; 160 ft (degrees from) 4 15-18 Wind Speed; 160 ft (tenths of mph) 4 20-23 Wind Direction; 33 ft (degrees from) 4 25-28 Wind Speed; 33 ft (tenths of mph) 4 30-33 Temperature; 33 ft (degrees F) 4 35-38 Delta T; 160-33 ft (Tenths of degrees F) 4 40-43 220 Foot Tower:
Wind Direction; 220 ft (degrees from) 4 50-53 Wind Speed; 220 ft (tenths of mph) 4 55-58 Wind Direction; 33 ft (degrees from) 4 60-63 Wind Speed; 33 ft (tenths of mph) 4 65-68 Temperature; 33 ft (degrees F) 4 70-73 Delta T; 220-33 ft (Tenths of degrees F) 4 75-78 (See Attachment A of Reference 3)
A AR EVA Evaluation of Pilgrm Nuclear Power Station 1996-2001 Meteorological Data Prepared by. TheodoreA Mliesser Framatome ANP. Inc.. an AREVA and Siemens company Document ID 32-5052036-00 Page 13 Exhibit 2: PNPS Delta-Temperature Ranges (Stability Classes)
Stability Class Temperature Gradient
- Delta-Temperature Delta-Temperature per
'Io_
°C/
m
°F/1 87' 130' A
T <= -1.9 T <- 1.95 T -1.32 B
-1.9 > T <= -1.7
-1.95 > T <= -1.74
-1.32 > T <= -1.18 C
-1,7 > T <= -1.5
-1.74 > T <= -1.54
-1. 18 > T <= -1.05 D
-1.5>T<=-O.5
-1.54>T<= -. 51
-1.05>T<=-0.35 E
_.5
> T <= 1.5
_-.51>Tc<554
-0.35 > T <= 1.05 F
1.5>T<=4.0 1.54>T<=4.1 1.05>T<=2.79 G
>4.0 T4.1 T>2.79 From ANSI/ANS-2.5-198. 'American Standard for Determining Meteorolobical Inf rmation at Nuclear Power Sites", dated 9114/1984.
A ARE VA Evaluation of Pigrm Nuclear Power Station 1996-2001 Meteorological Data Prepared by: Theodore A. Messier Frmax me ANP, Inc., an AREVA and Semens compmy Document ID 32-5052036-00 Page 15 96 1
1 17 96 1
1 18 96 1
1 19 96 1
1 20 96 1
1 21 96 1
1 22 96 1
1 23 68 81 96 99 113 118 133 113 93 100 75 85 116 121 62 67 96 204 179 100 134 78 49 51 27 37 46 30 32 32 32 32 32 32 32
-10
-10
-8
-6
-6
-6
-6 Original 2000 Meteorological Data YR MN DY HR 00 12 28 00 00 12 28 01 00 12 28 02 00 12 28 03 00 12 28 04 00 12 28 05 00 12 28 06 00 12 28 07 00 12 28 08 00 12 28 09 00 12 28 10 00 12 28 11 00 12 28 12 00 12 28 13 00 12 28 14 BUWD BUWS BLWD BLW 229 251 260 255 228 227 222 215 238 245 9999 9999 9999
-10
-11
-11
-11
-11
-11
-11
-11
-11
-11 9999 9999 9999 260 278 284 280 267 265 254 254 274 281 9999 9999 9999 67 109 105 109 64 56 50 59 108 120 9999 9999 9999 9999 107 JS BT 20 20 20 20 19 18 17 18 19 21 9999 9999 9999 9999 22 BDT
-4
-5
-6
-6
-5
-3
-3
-4
-8
-10 9999 9999 9999 9999
-15 UWD 263 273 278 277 270 266 261 259 267 9999 9999 286 296 288 293 UWS 173 221 224 221 163 160 155 168 205 9999 9999 242 259 262 244 LWD 258 265 268 268 258 255 251 252 263 9999 9999 279 291 282 286 LWS 73 89 91 93 66 68 59 65 90 9999 9999 99 104 107 98 TEMP 22 22 21 21 20 20 19 19 20 9999 9 9999 9 24 24 22 22 DT
-6
-6
-6
-7
-5
-5
-5
-7
-11 p999 p999
-25
-25
-22
-19 9999 9999 9999 287
-10 297 Processed 2000 Meteorological Data YR MN DY HR 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 0
1 2
3 4
5 6
7 8
9 10 11 12 13 14 UWD 263 273 278 277 270 266 261 259 267 9999 9999 286 296 288 293 UWS 172 221 223 221 162 160 155 167 205 9999 9999 242 258 262 243 LWD 258 265 268 268 258 255 251 252 263 9999 9999 279 291 282 286 LWS 73 88 91 93 65 68 59 65 90 9999 9999 98 103 106 98 TEMP 22 22 21 21 20 20 19 19 20 9999C 9999!
24 24 22 22 DT
-6
-6
-6
-6
-5
-5
-5
-6
-11
)999
)999
-25
-25
-22
-18 From this it can be seen that computer code pnpswd changed only the appropriate wind direction values and did not output the 160' tower data. (Note that the one-digit vs. two-digit output of the year 2000 is not significant as long as the one-digit is rightjusifffed.)
A Evauaton f Pilgrm Nuclear Power Station Document ID 32-5052036-00 1996-2001 Meteorological Data AR EVA Prepared by. TheodoreA Messier Page 16 Frmatome ANP, Inc, anAREVA and Siemens company Computer code becheck was written to find suspicious meteorological data values. In addition, becheck output the meteorological data recovery.
To test that the code functioned properly, some data were compared from the input and output files:
2001 Meteorofooical Data YR MN DY HR BUWD BUWS BLWD BLWS BT BDT UWD UWS LWD LWS TEMP DT 01 11 22 17 191 58 172 15 44 37 192 68 210 9
45 21 01 11 22 18 206 51 175 11 44 28 220 91 199 12 45 19 01 11 22 19 323 16 211 13 40 54 253 48 277 3
43 23 01 11 22 20 67 18 211 17 40 66 66 31 227 3
44 19 01 11 22 21 89 30 201 16 40 65 85 43 165 3
45 16 01 11 22 22 130 44 194 21 41 58 108 52 171 3
45 21 01 11 22 23 105 25 216 10 41 53 98 46 262 3
44 23 01 11 23 00 31 27 234 16 40 46 55 45 260 3
43 26 01 11 23 01 29 43 213 8
40 51 45 69 289 3
44 16 01 11 23 02 39 90 347 53 44 20 45 96 30 8
45 8
01 11 23 03 44 104 49 89 47
-8 46 106 42 12 46
-3 Wind Smeed Values Flagged BECO PRIMARY TOWER SUSPECT WIND SPEED DATA 1 11 22 23
.3 LL WS SENSOR MAY BE STUCK This indicates that repeating wind speed values were flagged.
1997 Meteoroloaical Data YR MN DY HR BUWD BUWS BLWD BLWS BT BDT UWD UWS LWD LWS TEMP DT 97 2 27 22 227 172 216 101 55
-9 236 216 217 84 55
-3 97 2 27 23 307 123 291 78 40
-15 310 149 274 46 40 3
97 2 28 0
307 83 295 53 41 -12 309 110 278 37 41 4
Ambient Temperature Values Flaaaed BECO PRIMARY TOWER SUSPECT TEMP. DATA 97 1 9 12
- 44.
TEMP. CHANGE > 10 DEG F !W!
97 1 9 13
- 32. TEMP. CHANGE > 10 DEG F !!!!!
97 2 27 23
- 40. TEMP. CHANGE > 10 DEG F !!!
97 4 2 11
- 42. TEMP. CHANGE > 10 DEG F !!!!!
97 7 18 21
- 66. TEMP. CHANGE > 10 DEG F !!!!
97 9 20 19
- 62. TEMP. CHANGE > 10 DEG F !!!!
97 11 17 7
- 26. TEMP. CHANGE> 10 DEG F !!!!!
This indicates that ambient temperature changes equal to or greater than ten degrees Fahrenheit were flagged.
A AREVA Evaluation of Pilgrn Nuclear Power Station 1996-2001 Meteorological Data Prepared by: Theodore A Messier Famatome ANP. Inc.. an AREVA and Siemens company Document ID 32-5052036-00 Page 17 2001 Meteorological Data YR MN DY HR BUWD BUWS BLWD BLWS BT 01 01 20 18 73 9999 57 216 33 01 01 20 19 68 9999 52 237 32 01 01 20 20 74 9999 54 227 32 01 01 20 21 64 9999 45 252 31 01 01 20 22 63 9999 48 258 31 01 01 20 23 61 9999 46 270 31 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 261 265 264 269 269 275 281 299 9999 9999 9999 9999 9999 350 345 339 353 348 337 325 324 330 351 359 163 176 167 161 161 169 132 108 9999 9999 9999 9999 9999 135 99 129 188 209 142 167 167 160 154 111 252 255 254 255 262 272 279 302 9999 9999 9999 9999 9999 324 327 349 348 348 326 314 310 315 343 340 92 101 99 87 79 84 79 78 9999 9999 9999 9999 9999 53 42 60 79 95 67 77 90 90 81 51 76 75 75 74 74 75 76 78 9999 9999 9999 9999 9999 76 77 78 76 74 74 75 75 73 70 67 BQT
-14
-13
-12
-13
-12
-11
-2
-1
-2
-2
-3
-5
-10
-13 9999 9999 9999 9999 9999 5
1 13 20 23 18 14 9
8 12 5
UWD 49 45 48 37 40 37 260 263 263 268 268 275 280 295 9999 335 335 336 340 339 331 324 339 333 322 314 316 322 341 352 UWS 272 270 278 273 307 283 210 219 219 223 223 233 194 165 9999 221 181 131 225 201 148 206 226 257 199 226 213 197 204 160 LWD 42 39 42 35 37 33 9999 9999 9999 9999 9999 9999 9999 9999 9999 340 332 340 333 299 295 319 306 319 289 299 290 301 339 337 LWS 118 126 122 132 141 133 76 81 79 77 75 71 59 50 9999 41 40 34 40 38 30 36 35 41 29 42 39 38 37 24 TEMP 34 33 33 33 33 33 9999 s 9999 s 9999 9999 s 9999 9 9999 9 9999 9 9999 S 9999 9 75 75 77 77 75 76 78 75 73 72 73 72 71 68 65 DT
-21
-19
-17
-12
-17
-17
)999
)999
)999
)999
)999 p999
)999 p999 p999 25 25
-3 24 32 20 28 31 41 44 34 30 25 27 31 Delta-Temperature Values Flagged BECO PRIMARY TOWER SUSPECT DELTA-T DATA 1
1 20 20
-1.7 UNSTABLE VALUE AT NIGHT 1
1 20 22
-1.7 UNSTABLE VALUE AT NIGHT 1
1 20 23
-1.7 UNSTABLE VALUE AT NIGHT 1
6 28 STABLE ALL DAY This indicates that delta-temperature values in the unstable range during the night were flagged and that days in which the delta-temperature values were In the stable range all day were flagged.
A Evaluation of PKigrm Nuclear Power Station 1996-2001 Meteorological Data AREVA Prepared by. Theodore A. Messier Framatomc ANP, Inc., an.AREIA and Siemens company ATTACHMENT B: COMPUTER INPUT AND OUTPUT FILES.
The following computer runs were cardied out for this calculation:
becheck 1996 PNPS 1996 meteorological data; input file bemet96; outp 1996.wd 1997 PNPS 1997 meteorological data; input file bemet97; outpi 1997.wd 1998 PNPS 1998 meteorological data; input file bemet98; outpi 1998.wd 1999 PNPS 1999 meteorological data; input file bemet99; outpi 1999.wd 2000 PNPS 2000 meteorological data; input file bemet96.new; 2000-at, 2000.wd 2001 PNPS 2001 meteorological data; input file bemet96.new; 2001.at, 2001.wd pnpswd 1996 PNPS 1996 meteorological data; input file bemet96.newu bemet96.new 1997 PNPS 1997 meteorological data; input file bemet97.new; bemet97.new 1998 PNPS 1998 meteorological data; input file bemet98.new;r bemet98.new 1999 PNPS 1999 meteorological data; input file bemet99.new, bemet99.new 2000 PNPS 2000 meteorological data; input file bemetOO.new; bemetOO.new 2001 PNPS 2001 meteorological data; input file bemetOl.new; i bemetOl.new Document ID 32-5052036-00 Page 18 it files 1996.dr, 1996.ws, 1996.dt, 1996.at, utfiles 1997.dr, 1997.ws, 1997.dt, 1997.at, it files 1998.dr, 1998.ws, 1998.dt, 1998.at, wt files 1999.dr, 1999.ws, 1999.dt, 1999.at, output files 2000.dr, 2000.ws, 2000.dt, output files 2001.dr, 2001.ws, 2001.dt, output files pnpswd.banner.96 and output files pnpswd.banner.97 and output files pnpswd.banner.98 and output files pnpswd.banner.99 and output files pnpswd.banner.00 and output files pnpswd.banner.01 and
A AR EVA Evaluation of Pilgnn Nuclear Power Staion 1996-2001 Meteorological Data Prepared by: Theodore A. Messier Frmatome ANP. Inc., an ARE VA andSiemens company Document ID 32-5052036-00 Page 19 metrose Lower Level Upper Level Lower Level Upper Level PNPS 1996-2001 meteorological data (33' wind speed and direction); input files beinl9601.m3 and bemet96.new, bemet97.new, bemet98.new, bemet99.new, bemetOO.new, bemetOl.new; output file bell9601.out PNPS 1996-2001 meteorological data (220' wind speed and direction); input files beinu9601.m3 and bemet96.new, bemet97.new, bemet98.new, bemet99.new, bemetOO.new, bemetOl.new, output file beul9601.out PNPS 1996-2000 meteorological data (33' wind speed and direction); input files beinl9600.m3 and bemet96.new, bemet97.new, bemet98.new, bemet99.new, bemetOO.new; output file bell9600.out PNPS 1996-2000 meteorological data (220' wind speed and direction); input files beinu9600.m3 and bemet96.new, bemet97.new, bemet9B.new, bemet99.new, bemetOO.new, output file beul9600.out
A Evaluation of Pilgrm Nuclear Power Station A
1996-2001 Meteorological Data AR EVA Prepaed by: Theodore A. Messier Framatome ANP. Inc.. an AREVA and Siemens companv Document ID 32-5052036-00 Page 20 Usting of Files Included on the Compact Disc and Transferred to the FANP COLD Server for Archival Storage File Size Date Tiae rile Name in Bytes 169 Oct 19 09:27 pnpswd.baz 169 Oct 19 09:27 pnpswd.bar 169 Oct 19 09:26 pnpswd.bar 169 Oct 19 09:27 pnpswd.baz 169 Oct 19 09:27 pnpswd.bar 169 Oct 19 09:27 pnpswd.bax 693984 Oct 4 09:53 bemetOO 693984 Oct 19 09:27 bemetOO.ne 692088 Oct 4 09:53 bemetOl 692088 Oct 19 09:27 bemetOl.nm 696171 Oct 4 09:53 bemet96 693984 Oct 19 09:26 bemet96.ne 692089 Oct 4 09:54 bemet97 692088 Oct 19 09:27 bemet97.ne 692089 Oct 4 09:54 bemet98 692088 Oct 19 09:27 bemet98.ne 692088 Oct 4 09:54 bemet99 692088 Oct 19 09:27 bemet99.ne 4518 Oct 4 16:01 pnpswd.f 548 Oct 7 11:25 1996.at 427 Oct 7 11:25 1996.dr 16654 Oct 7 11:25 1996.dt 839828 Oct 7 11:25 1996.wd 145 Oct 7 11:25 1996.ws 398 Oct 7 11:25 1997.at 427 Oct 7 11:25 1997.dr 6010 Oct 7 11:25 1997.dt 80603 Oct 7 11:25 1997.wd 99 Oct 7 11:25 1997.ws 1148 Oct 7 11:25 1998.at 427 Oct 7 11:25 1998.dr 5242 Oct 7 11:25 1998.dt 126077 Oct 7 11:25 1998.wd 53 Oct 7 11:25 1998.ws 748 Oct 7 11:24 2999.at 427 Oct 7 11:24 1999.dr 16486 Oct 7 11:24 1999.dt 164502 Oct 7 11:24 1999.wd 99 Oct 7 11:24 1999.ws 548 Oct 7 11:24 2000.at 427 Oct 7 11:24 2000.dr 16778 Oct 7 11:24 2000.dt 72812 Oct 7 11:24 2000.wd 53 Oct 7 11:24 2000.ws 348 Oct 5 15:49 2001.at 427 Oct 5 15:49 2001.dr 8254 Oct 5 15:49 2001.dt 115212 Oct 5 15:49 2001.wd 99 Oct 5 15:49 2001.ws 12142 Oct 5 14:50 becheck.f 101 Oct 7 11:24 movem 497 Oct 20 09:34 beinl9600.:
501 Oct 4 15:44 beinl9601.:
496 Oct 20 09:34 beinu9600.:
501 Oct 4 15:45 beinu9601.:
85036 Oct 20 09:38 bel19600.o 95256 Oct 19 09:39 bell9601.o 85036 Oct 20 09:39 beul9600.o 95256 Oct 19 09:39 beul9601.o File Description mner.0O Iner.01 iner.96 iner.97 iner.98 iner.99 1W mw ew
,ew mW m3 m3
.m3 ut ut Ut tut banner output for pnpswd using 2000 data banner output for pnpswd using 2001 data banner output for pnpswd using 1996 data banner output for pnpswd using 1997 data banner output for pnpswd using 1998 data banner output for pnpswd using 1999 data original 2000 met data 2000 met data from pnpswd original 2001 met data 2001 met data from pnpswd original 1996 met data 1996 met data from pnpswd original 1997 met data 1997 met data from pnpswd original 1998 met data 1998 met data from pnpswd original 1999 met data 1999 met data from pnpswd source code for pnpswd ambient temperature flags for 1996 data recovery for 1996 delta-temperature flags for 1996 wind direction flags for 1996 (not used) wind speed flags for 1996 ambient temperature flags for 1997 data recovery for 1997 delta-temperature flags for 1997 wind direction flags for 1997 (not used) wind speed flags for 1997 ambient temperature flags for 1998 data recovery for 1998 delta-temperature flags for 1998 wind direction flags for 1998 (not used) wind speed flags for 1998 ambient temperature flags for 1999 data recovery for 1999 delta-temperature flags for 1999 wind direction flags for 1999 (not used) wind speed flags for 1999 ambient temperature flags for 2000 data recovery for 2000 delta-temperature flags for 2000 wind direction flags for 2000 (not used) wind speed flags for 2000 ambient temperature flags for 2001 data recovery for 2001 delta-temperature flags for 2001 wind direction flags for 2001 (not used) wind speed flags for 2001 source code for becheck unix script file used to rename becheck output files metrose 33' input file for 1996-2000 data metrose 33' input file for 1996-2001 data metrose 220' input file for 1996-2000 data metrose 220' input file for 1996-2001 data metrose 33' output file for 1996-2000 data metrose 33' output file for 1996-2001 data metrose 220' output file for 1996-2000 data metrose 220' output file for 1996-2001 data 33' JFD for input to PAVAN 220' JFD for input to PAVAN 17230 Oct 20 09:38 metrose.xoqdoq.jfd.10680 17230 Oct 20 09:39 metrose.xoqdoq.jfd.10693 Note: The time stamp for the files on the CD will be one hour less than shown above; this is due to the Windows xp operating system changing the time stamps of all files whenever Daylight Savings Time ends or begins.
A Evaluaton of Pggrm Nuclear Power Station 1996-2001 Meteorological Data AR EVA Preparedbr. TheodoreA.Mesier Framatome ANP. Inc.. anAREMI and Siemens comoany Document ID 32-5052036-00 Page 21 ATTACHMENT C: COMPUTER CODE PNPSWD LISTING HP FORTRAN 77 Ver: B.10.20 Tue Oct 19 08:44:58 2004 pnpawd.f Page 1
1 2
3 4
5 6
7 8
9 10 11 12 13 14 15 1 6 17 18 19 20 21 22 23 24 25 26 c
C C
C C
C C
C C
C C
c a
c C
C C
C C
c C
C C
C C
program pnpswd This program reads PNPS meteorological data from the primary tower in it's "old" format (BECo) and assumes that headers have been insert at the beginning of each month that indicate the number of hours of data in the month (i3 format).
It checks for wind direction values that are > 360 degrees.
The data are output with WD values all set to 360 or less in value; this is accomplished by subtracting 360 from any WD value that is > 360.
Version 1.0 Written 10-04-2004 T.A. Messier FANP Variable List yr an dy hr numhrs ival integer integer integer integer integer integer year month day hour number of hours of data in month number of WD values changed 2I c 28 c Variables uwd through delt are real values but written in the data f ile 29 c as if they were integers; therefore, they will be read/written as in tegers 30 c uwd real 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 c
c u
c 1
e North) c 1
,ws wd ws c
temp c
delt c
c infile c
outfil c
banner le name, real real real real real character character character character 220' wind direction (degrees from True North) 220' wind speed (MPH) 33' wind direction (degrees from Tru 33' wind speed (MPH) ambient air temperature (degrees F) delta temperature (degrees F/187')
input file name output file name banner output; date of run, input fi number of WD values changed date of run c
c today integer yr,mn,dy,hr,numhrs,ival integer uwd,uws,lwd,lws,tempdelt character*15 infile,outfil,banner character*9 today
A Evaluation of Pilgrm Nudear Power Station A
1996-2001 Meteorologcal Data AR EVA Prepared by TheodoreA Messier Frnmatome ANP, Inc., an AREVA and Siemen company Document ID 32-5052036-00 Page 22 HP FORTRAN 77 Ver: B.10.20 Tue Oct 19 08:44:58 2004 pnpswd.f Page 2
50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 data outfil/'pnpswd.out'/
data banner/'pnpswd.banner'/
data ival/0/
c Ask for input file name print *," Enter input file name read(*,2)infile 2
format(al5) c Open input file open(25,file-infile) c Open output file open(26,file-outfil) c Open banner file open(36,file-banner) c Get date of run call date(today) 71 72 73 74 c Write code info to banner file write(36,3)today 3
format(' FANP Computer Code pnpswd
& ',alO,/,/)
version 1.0',/,/'
Date of Run:
75 76 c Write input file name to banner file 77 write(36,4)infile 78 4 format(/,'
Input file name:
',al5,/,/)
79 80 c Read number of hours of hourly data in the month 81 c Upon reaching end of all months of data, goto 100 82 6 read(25,7,end-100)numhrs 83 7 format(i3) 84 85 c Output numhrs 86 write(26,7)numhrs 87 88 c Loop through month of hourly data 89 do 20 i-l,numhrs 90 91 read(25,9)yr,mn,dy,hr,uwd,uws,lwd,lws,temp,delt 92 9 format(4(i2,lx),t50,i4,t55,i4,t60,i4,t65,i4,t70,i4,t75 93
£
,i4) 94 95 c Check if wd is greater than 360 degrees; if so, subtract 360 96 c Increment ival when WD values are changed 97 if((uwd.gt.360).and.(uwd.lt.541))then 98 uwd-uwd-360 99 ival-ival l L00 else 01 endif 102 if((lwd.gt.360).and.(lwd.1t.541))then l
1 I
A Evaluation of PIgrm Nuclear Power Station 1996-2001 Meteorological Data AR EVA Prepared by: Theodore A. Messer Framatome ANP, Inc., an AREVA and Siemens company Document ID 32-5052036-00 Page 23 HP FORTRAN 77 Ver: B.10.20 Tue Oct 19 08:44:58 2004 pnpswd.f Page 3
103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 lwd&lwd-360 ival-ival+l else endif c Output the hourly data write(26,15)yr,mn,dy,hr,uwd,uws,lwd,lws,temp,delt 15 format(4(i2.2,lx),t50,i4,t55,i4,t60,i4,t65,i4,t70,i4,t75,i4) 20 continue c If still data to read, then goto line 6 goto 6 100 continue c Write number of changed WD values to banner file write(36,105)ival 105 format('
Number of WD values changed by program pnpswd is:
',i6, stop 'PNPS met data written to file named pnpswd.out' end Compilation statistics for procedure: pnpawd Number of errors:
Procedure number:
0 Number of Warnings:
0 1
Accumulated number of source lines read:
125
A Evaluation of Piggrm Nucear Power Station 1996-2001 Meteorological Data A R EVA Prepared by: Theodore A. Messier Fnmatome ANP, Inc., an AREVA and Siemens company Document ID 32-5052036-00 Page 24 HP FORTRAN 77 Ver: B.10.20 Tue Oct 19 08:44:58 2004 pnpswd.f Page 4
CROSS REFERENCE LISTING:
Symbol banner date delt dy hr i
infile ival lwd lws mn numhrs outfil pnpswd()
temp today uwd uws yr File Function Line pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd. f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd.f pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd pnpswd
- 47 69
- 46
- 45
- 45 89
- 47
- 45
- 46
- 46
- 45
- 45
- 47
- 1
- 46
- 48
- 46
- 46
- 45 51 66 91 91 91 56 52 91 91 91 82 50 91 69 91 91 91 109 109 109 60 77 99 104 120 102 103 109 109 109 86 89 63 109 72 97 98 109 109 109 SYMBOL TABLE LISTING:
Symbol Class Type Offset/Size banner date ()
delt dy hr i
infile ival lwd lws mn numhra outfil pnpswd()
temp today uwd uws yr Variable Procedure: intrinsic Variable Variable Variable Variable Variable Variable Variable Variable Variable Variable Variable Procedure: this func.
Variable Variable Variable Variable Variable Character Subroutine Integer*4 Integer*4 Integer*4 Integer*4 Character Integer*4 Integer*4 Integer*4 Integer*4 Integer*4 Character Subroutine Integer*4 Character Integer*4 Integer*4 Integer*4 Data: DS$pnpswd+0 L o l Local: SP -144 Local: SP -172 Local: SP -168 Local: SP -188 Local: SP -344 Data: SD~pnpswd+0 Local: SP -156 Local: SP -152 Local: SP -176 Local: SP -192 Data: DS$pnpswd+16 Local:
Local:
Local:
Local:
Local:
-148
-204
-164
-160
-180 Label Asm. Label Type 2
Ll1 Format 3
L12 Format 4
L13 Format 6
L14 Executable 7
L15 Format 9
L17 Format 15 L18 Format 20 L16 Executable 100 L19 Executable 105 L20 Format Line Number(s) 57*
56 73*
72 78*
77 82*
83*
92*
110*
112*
117*
121*
115 82 86 91 109 89 82 120
A AREVA Evaluation of Pilgrmn Nuclear Power Staion 1996-2001 Meteorological Data Prepared by: Theodore A Messier Framatome ANP, Inc., an AREVA and Siemens company Tue Oct 19 08:44:58 2004 pnpswd.f Document ID 32-5052036-00 Page 25 HP FORTRAN 77 Ver: 8.10.20 Page 5
Final Compilation Statistics for file: pnpswd.f Accumulated errors:
0 Number of Warnings:
Total number of procedures:
1 Accumulated number of source lines read:
125 0
Timing Statistics for:
f77passl:
real:
0.16s user:
0.00s sys:
0.OOs
A AREVA Evaluation of Pilgrrn Nuclear Power Staton 1996-2001 Meteorological Data Prepared by: Theodore A. Meseier Frmatomc ANP, Inc., an AREVA and Siemens company Document ID 3Z-5W52036-00 Page 26 ATTACHMENT D: COMPUTER CODE BECHECK LISTING PROGRAM BECHECK C THIS PROGRAM READS BECO METEOROLOGICAL DATA IN THEIR FORMAT AND CHECKS C FOR SUSPECT DATA.
C THE PROGRAM PROMPTS THE USER FOR THE NAME OF THE INPUT FILE.
C THE PROGRAM OUTPUTS FILES CONTAINING SUSPECT DATA DATES AND TIMES FOR C THE USER TO THEN USE AS A GUIDE.
C THE PROGRAM WAS DESIGNED TO BE USED ON UP TO ONE YEAR OF MET. DATA.
C C CORRECTED MINOR BUG IN LL WS STUCK SENSOR CHECK; WAS PRINTING C
BACKUP LL WS INSTEAD OF PRIMARY LL WS ON PRIMARY CHECK C
C (NIGHT -
HOURS 20 -
3; DAY -
HOURS 8 -
16)
C CHARACTER*12 INFILE,OUTFILI,OUTFIL2,OUTFIL3,OUTFIL4 CHARACTER*12 OUTFIL5,OUTFIL6,OUTFIL7,OUTFIL8,outfil9 INTEGER YEAR(9000),MONTH(9000),DAY(9000),HOUR(9000),J REAL WD160(9000),WS160(9000),WD33B(9000),WS33B(9000),T33B(9000)
REAL DELTATB(9000)
REAL WD220(9000),WS220(9000),WD33P(9000),WS33P(9000),T33P(9000)
REAL DELTATP(9000)
C ASK USER FOR THE INPUT FILE NAME WRITE (*,*) ' ENTER THE NAME READ (*,1) INFILE 1
FORMAT(A12)
OF THE INPUT FILE (IN BECO FORMAT)'
C NAME THE OUTPUT FILES OUTFILl-'BECHECK.DTB' OUTFIL2='BECHECK.DTP' OUTFIL3='BECHECK.TB' OUTFIL4-'BECHECK. TP' OUTFIL5= ' BECHECK. SB' OUTFIL6='BECHECK.SP' OUTFIL7-'BECHECK.WD' C
OUTFIL7-'BECHECK.DB' C
OUTFIL8-'BECHECK.DP' OUTFIL9='BECHECK.dr' C OPEN THE INPUT FILE OPEN(15,FILE-INFILE)
C OPEN THE OUTPUT FILES OPEN(16,FILE-OUTFILI)
WRITE(16,2) 2 FORMAT('
BECO BACKUP TOWER SUSPECT DELTA-T DATA')
OPEN(17,FILE'OUTFIL2)
WRITE(17,3) 3 FORMAT('
BECO PRIMARY TOWER SUSPECT DELTA-T DATA')
OPEN(18,FILE-OUTFIL3)
WRITE(18,4) 4 FORMAT('
BECO BACKUP TOWER SUSPECT TEMP. DATA')
OPEN(19,FILE=OUTFIL4)
A ARE VA Evaluation of Plgrm Nuclear Power Station 1996-2001 Meteorological Data Prepared by; Theodorek Messier Frmatome ANP. Inc.. an ARE VAnd Siemens company Document ID 32-5052036-00 Page 27 WRITE(19,5) 5 FORMATV' BECO PRIMARY TOWER SUSPECT TEMP. DATA')
OPEN(20,FILE=OUTFIL5)
WRITE(20,6) 6 FORMAT('
BECO BACKUP TOWER SUSPECT WIND SPEED DATA')
OPEN(21,FILE=OUTFIL6)
WRITE(21,7) 7 FORMAT('
BECO PRIMARY TOWER SUSPECT WIND SPEED DATA')
OPEN(22,FILE-OUTFIL7)
WRITE(22,8) 8 FORMAT('
BECO SUSPECT WIND DIRECTION DATA')
C OPEN(22,FILE-OUTFIL7)
C WRITE(22,8)
C8 FORMAT('
BECO BACKUP TOWER SUSPECT WIND DIRECTION DATA')
C OPEN(23,FILE=OUTFIL8)
C WRITE(23,9)
C9 FORMAT('
BECO PRIMARY TOWER SUSPECT WIND DIRECTION DATA')
OPEN(24,FILE=OUTFIL9)
WRITE(24,10) 10 FORMATV' BECO DATA RECOVERY RATES')
C WRITE OUTPUT FILE TITLE C
WRITE(16,*)
C WRITE(16,12) EXT,YR C12 FORMAT(24X,'BECO METEOROLOGICAL DATA FOR ',A3,', 19',A2)
C WRITE(16,*)
C WRITE(16,*)'
BACKUP TOWER C
PRIMARY TOWER '
C WRITE DATA HEADERS -
DESCRIPTIVE TEXT C
WRITE(16,13)
C13 FORMAT('YR MN DY HR WD160 WS160 WD33 WS33 T33 DELTL C
- 0 WD33 WS33 T33 DELTU')
C WRITE(16,*)
WD220 WS22 C ZERO OUT DATA ARRAYS DO 14 1=1,9000 YEAR(I)=0 MONTH(I)-0 DAY(I)=0 HOUR(I)-0 WD160(I)=0.0 WS160 (I)=0.0 WD33B(I)=0.0 WS33B(I)=0.0 T33B(I)-O.0 DELTATB(I)=0.0 WD220(I)-0.0 WS220(I)=0.0 WD33P(I)=0.0 WS33P(I)=0.0 T33P(I)-O.0 DELTATP(I)=0.0 14 CONTINUE inumup=0 inumdn=0
A Evaluation of Pilgrm Nuclear Power Station Document ID 32-5052036-00 1996 2001 Meteorological Data AREVA Preparedby-. TheodoreAMessier Page 28 Frnatome ANP, Inc., an AREVA and Siemens company C READ THE METEOROLOGICAL DATA; WHEN REACH END OF FILE, GOTO 30 J=1 15 READ(15,20,END=30) YEAR(J),MONTH(J),DAY(J),HOUR(J),WD160(J),
&WS160(J),WD33B(J),WS33B(J),T33B(J),DELTATB(J),WD220(J),WS220(J),
&WD33P(J),WS33P(J),T33P(J),DELTATP(J) 20 FORMAT(4(I2,1X),T15,F5.O,T20,F5.1,T25,F5.0,T30,F5.1,T35,F5.0,T40,F
&5.1,T50,F5.0,T55,F5.1,T60,F5.O,T65,F5.1,T70,F5.0,T75,F5.1)
IF((WD220(j).lt.999.).and.(WS220(j).lt.99.9).and.(deltatp(j).lt.
&99.9)) inumup=inumup+l IF((WD33P(j).lt.999.).and.(WS33P(j).lt.99.9).and.(deltatp(j).lt.
&99.9)) inumdn=inumdn+1 J=J+ 1 GOTO 15 30 CONTINUE C ILASTHR IS LAST HOUR HAVING DATA BEFORE EOF WAS ENCOUNTERED ILASTHR=J-1 ptdn-float(inumdn)/float(ilasthr)*100.
ptup-float(inumup)/float(ilasthr)*100.
write(24,*)l" write(24,*)' BECo meteorological data recovery for the period' write(24,22)month(1),day(1),year(1),month(ilasthr),day(ilasthr),
&year(ilasthr) 22 format(15x,i2,'/',i2,'/',i2,' to ',i2,'/',i2,'/',i2,'.')
write (24,*) I write(24,23)ptdn 23 format(' Primary tower lower level composite data recovery is:
',f6.2,'%')
write(24,*)'
write(24,24)ptup 24 format(' Primary tower upper level composite data recovery is:
',f6.2,'%')
write(24,*)
write(24,*)' (Note that the composite recovery reported is the per
¢ of time' write(24,*)' that wind speed, wind direction, and delta temperatur
&e were I write(24,*)' available simultaneously.)'
C LOOK FOR SUSPECT DELTA-T VALUES DO 40 I=1,ILASTHR IF((DELTATB(I).GT.90.).OR.(DELTATP(I).GT.90.))GOTO 40 C LOOK FOR UNSTABLE CONDITIONS AT NIGHT (HOURS 20 - 3)
IF((HOUR(I).GE.20).OR.(HOUR(I).LE.3))THEN IF(DELTATB(I).LE.-1.l)WRITE(16,31)YEAR(I),MONTH(I),DAY(I),HOUR (I),DELTATB(I)
IF(DELTATP(I).LE.-l.6)WRITE(17,31)YEAR(I),MONTH(I),DAY(I),HOUR (I),DELTATP(I) 31 FORMAT(/,4(I2,1X),F5.1,' UNSTABLE VALUE AT NIGHT ')
C LOOK FOR VERY UNSTABLE CONDITIONS DURING THE DAY (HOURS 8 -
16)
ELSEIF((HOUR(I).GE.8).AND.(HOUR(I).LE.16))THEN IF(DELTATB(I).LE.-2.0)WRITE(16,32)YEAR(I),MONTH(I),DAY(I),HOUR
Evaluation of Plgrm Nuclear Power Staion Document ID 32-5052036-00 1996-2001 Meteorological Data AR EVA Prepared by: TWeodoreA Messier Page 29 Framatomc ANP, Inc., anAREVA and Siemens company (I),DELTATB(I)
IF(DELTATP(I).LE.-3.0)WRITE(17,32)YEAR(I),MONTH(I),DAY(I),HOUR (I),DELTATP(I) 32 FORMAT(/,4(I2,1X),F5.1,' VERY UNSTABLE VALUE ')
ELSE ENDIF 40 CONTINUE C LOOK FOR DAYS THAT HAVE STABLE CONDITIONS EVERY HOUR IB=0 IP=0 DO 50 I-24,ILASTHR,24 IF(DELTATB(I).GT.90.)GOTO 45 IF(DELTATB(I).GE.-0.34)IB-IB+1 IF(DELTATB(I-l).GE.-0.34)IB=IB+l IF(DELTATB(I-2).GE.-O.34)IB=IB+1 IF(DELTATB(I-3).GE.-0.34)IB-IB+1 IF(DELTATB(I-4).GE.-0.34)IB=IB+1 IF(DELTATB(I-5).GE.-0.34)IB-IB+1 IF(DELTATB(I-6).GE.-0.34)IB-IB+l IF(DELTATB(I-7).GE.-0.34)IB=IB+1 IF(DELTATB(I-8).GE.-0.34)IB=IB+1 IF(DELTATB(I-9).GE.-O.34)IB=IB+1 IF(DELTATB(I-10).GE.-0.34)IB=IB+1 IF(DELTATB(I-1).GE.-O.34)IB=IB+l IF(DELTATB(I-12).GE.-O.34)IB=IB+1 IF(DELTATB(I-13).GE.-0.34)IB=IB+1 IF(DELTATB(I-14).GE.-0.34)IB=IB+1 IF(DELTATB(I-15).GE.-0.34)IB=IB+1 IF(DELTATB(I-16).GE.-0.34)IB=IB+1 IF(DELTATB(I-17).GE.-0.34)IB=IB+1 IF(DELTATB(I-18).GE.-0.34)IB=IB+1 IF(DELTATB(I-19).GE.-0.34)IB=IB+I IF(DELTATB(I-20).GE.-O.34)IB-IB+1 IF(DELTATB(I-21).GE.-0.34)IB=IB+1 IF(DELTATB(I-22).GE.-0.34)IB=IB+1 IF(DELTATB(I-23).GE.-0.34)IB-IB+l IF(IB.EQ.24)THEN WRITE(16,42)YEAR(I),MONTH(I),DAY(I) 42 FORMAT(/,lX,3(I2,1 X),' STABLE ALL DAY ')
ELSE IB=0 ENDIF 45 IF(DELTATP(I).GT.90.)GOTO 50 IF(DELTATP(I).GE.-O.5)IP=IP+1 IF(DELTATP(I-1).GE.-O.5)IP=IP+l IF(DELTATP(I-2).GE.-O.5)IP=IP+1 IF(DELTATP(I-3).GE.-0.5)IP-IP+1 IF(DELTATP(I-4).GE.-0.5)IP-IP+1 IF(DELTATP(I-5).GE.-0.5)IP=IP+1 IF(DELTATP(I-6).GE.-O.5)IP=IP+1 IF(DELTATP(I-7).GE.-0.5)IP-IP+1 IF(DELTATP(I-8).GE.-0.5)IP=IP+1 IF(DELTATP(I-9).GE.-0.5)IP=IP+1 IF(DELTATP(I-10).GE.-0.5)IP=IP+1
A Evaluation of Piigrm Nuclear Power Station Document ID 32-5052036-00 1996-2001 Meteorological Data AR EVA Prepared by: Theodore A. Messier Page 30 Franatome ANP, Inc., an AREVA andiemens company IF(DELTATP(I-11).GE.-0.5)IP=IP+1 IF(DELTATP(I-12).GE.-O.5)IP-IP+1 IF(DELTATP(I-13).GE.-O.5)IP=IP+1 IF(DELTATP(I-14).GE.-0.5)IP=IP+1 IF(DELTATP(I-15).GE.-0.5)IP-IP+1 IF(DELTATP(I-16).GE.-O.5)IPsIP+1 IF(DELTATP(I-17).GE.-0.5)IPsIP+l IF(DELTATP(I-18).GE.-O.5)IP=IP+1 IF(DELTATP(I-19).GE.-0.5)IP=IP+1 IF(DELTATP(I-20).GE.-0.5)IP=IP+1 IF(DELTATP(I-21).GE.-O.5)IP-IP+1 IF(DELTATP(I-22).GE.-0.5)IP=IP+1 IF(DELTATP(I-23).GE.-0.5)IP=IP+1 IF(IP.EQ.24)THEN WRITE(17,42)YEAR(I),MONTH(I),DAY(I)
ELSE IP-0 ENDIF 50 CONTINUE C LOOK FOR SUSPECT TEMPERATURE DATA (1 HR CHANGE OF > 10 DEG F)
IEND=ILASTHR-1 DO 60 I=1,IEND IF((T33B(I).GT.99.).OR.(T33B(I+1).GT.99.))GOTO 53 C
BACKUP TOWER LOWER LEVEL TEMPERATURE TTB1=T33B(I)+10.0 TTB2=T33B(I)-10.0 IF((T33B(I+1).GE.TTBl).OR.(T33B(I+1).LE.TTB2))THEN WRITE(18,52)YEAR(I+1),MONTH(I+1),DAY(I+1),HOUR(I+1),T33B(I+l) 52 FORMAT(/,1X,4(I2,1X),F5.0,' TEMP. CHANGE > 10 DEG F !!!')
ELSE ENDIF 53 IF((T33P(I).GT.99.).OR.(T33P(I+1).GT.99.))GOTO 60 C PRIMARY TOWER LOWER LEVEL TEMPERATURE TTP1=T33P(I)+10.0 TTP2=T33P(I)-10.0 IF((T33P(I+1).GE.TTPl).OR. (T33P(I+1).LE.TTP2) )THEN WRITE(19,52)YEAR(I+1),MONTH(I+1),DAY(I+l),HOUR(I+l),T33P(I+l)
ELSE ENDIF 60 CONTINUE C CHECK FOR SUSPECT WIND SPEED DATA -
LOOK FOR STUCK WS SENSOR:
C IF WS IS SAME FOR A FOUR HOUR PERIOD, ASSUME SENSOR IS STUCK DO 70 I-4,ILASTHR,4 IF(WS33B(I).GT.999.)GOTO 64 IF((WS33B(I).EQ.WS33B(I-1)).AND.(WS33B(I).EQ.WS33B(I-2)).AND.(WS
& 33B(I).EQ.WS33B(I-3)))THEN WRITE(20,65)YEAR(I),MONTH(I),DAY(I),HOUR(I),WS33B(I) 65 FORMAT(/,1X,4(I2,1X),F5.1,' LL WS SENSOR MAY BE STUCK')
ELSE ENDIF 64 IF(WS160(I).GT.999.)GOTO 63 IF((WS160(I).EQ.WS160(I-l)).AND.(WS160(I).EQ.WS160(I-2)).AND
.(WS160(I).EQ.WS160(I-3)))THEN WRITE(20,66)YEAR(I),MONTH(I),DAY(I),HOUR(I),WS160(I) 66 FORMAT(/,1X,4(I2,1X),F5.1,' UL WS SENSOR MAY BE STUCK')
A Evaluation of Pilgrn Nuclear Power Staton Document ID 32-505203600 1998-2001 Meteorological Data A R EVA Prepared by: TheodoreA Messier Page 31 Framatome ANP, Inc., anPARE4VA and Siemens compagy ELSE ENDIF 63 IF(WS33P(I).GT.999.)GOTO 62 IF((WS33P(I).EQ.WS33P(I-1)).AND.(WS33P(I).EQ.WS33P(I-2)).AND.(WS
& 33P(I).EQ.WS33P(I-3)))THEN WRITE(21,65)YEAR(I),MONTH(I),DAY(I),HOUR(I),WS33P(I)
ELSE ENDIF 62 IF(WS220(I).GT.999.)GOTO 70 IF((WS220(I).EQ.WS220(I-1)).AND.(WS220(I).EQ.WS220(I-2)).AND
&.(WS220(I).EQ.WS220(I-3)))THEN WRITE(21,66)YEAR(I),MONTH(I),DAY(I),HOUR(I),WS220(I)
ELSE ENDIF 70 CONTINUE C
C CHECK FOR SUSPECT WIND DIRECTION DATA -
COMPARE THE TWO TOWERS; IF WITHIN C
22 DEG OF ONE ANOTHER ASSUME THEY ARE OKAY; OTHERWISE, ASSUME THERE IS A C PROBLEM WITH ONE OF THE TOWERS C IF ONE WD VALUE IS BETWEEN 270 AND 360 AND THE OTHER IS BETWEEN 0 AND 90, C THEN ADD 360 TO THE VALUE BETWEEN 0 AND 90 BEFORE TESTING.
C IUWD=0 DO 80 Ie1,ILASTHR IF((WD220(I).GT.900.).OR.(WD160(I).GT.900.))GOTO 80 IF((WD220(I).GE.270.).AND.(WD220(I).LE.360.).AND.(WD160(I).GE.
0.0).AND.(WD160(I).LE.90))WD160(I)=WD160(I)+360.
IF((WD160(I).GE.270.).AND.(WD160(I).LE.360.).AND.(WD220(I).GE.
& 0.0).AND.(WD220(I)..LE.90))WD220(I)=WD220(I)+360.
PUP=WD220(I)+22.
PUM=WD220(I)-22.
IF((WD160(I).GE.PUM).AND.(WD160(I).LE.PUP))THEN IUWD=IUWD+1 ELSE WRITE(22,75)YEAR(I),MONTH(I),DAY(I),HOUR(I) 75 FORMAT(/,lX,4(I2,1X),'
UL WD VALUES > 22 DEG APART UL WD')
ENDIF 80 CONTINUE ILWD=0 DO 90 I-1,ILASTHR IF((WD33P(I).GT.900.).OR.(WD33B(I).GT.900.))GOTO 90 IF((WD33P(I).GE.270.).AND.(WD33P(I).LE.360.).AND.(WD33B(I).GE.
& 0.0).AND.(WD33B(I).LE.90))WD33B(I)-WD33B(I)+360.
IF((WD33B(I).GE.270.).AND.(WD33B(I).LE.360.).AND.(WD33P(I).GE.
& 0.0).AND.(WD33P(I).LE.90))WD33P(I)sWD33P(I)+360.
PLP=WD33P(I)+22.
PLM=WD33P(I)-22.
IF((WD33B(I).GE.PLM).AND.(WD33B(I).LE.PLP))THEN ILWD=ILWD+1 ELSE WRITE(22,85)YEAR(I),MONTH(I),DAY(I),HOUR(I) 85 FORMAT(/,lX,4(I2,1X),'
LL WD VALUES > 22 DEG APART LL WD')
ENDIF 90 CONTINUE 100 CLOSE(15)
A ARE VA Evaluation of Pilgrm Nuclear Power Station 1996-2001 Meteorological Data Prepared by: Theodore A. Messier Framatome ANP. Inc.. anAREVA and Semens company Document ID 32-5052036-00 Page 32 CLOSE (16)
CLOSE (17)
CLOSE (18)
CLOSE (19)
CLOSE(20)
CLOSE (21)
CLOSE(22)
CLOSE(24)
STOP END