The URL can be used to link to this page

Home My WebLink AboutAPA1222( " . . PI\OGIUM WIZARD 115 c c t !FETCH ftETUFt~S THE VALUE CF THE RECORD LENGTH t ~HERE. •fiP~• I£ THE NUMBER OF UORDS "tN -THE: REtORD-ftULfi'Pl.t.£1) -------·~~--------------- t BY 10 T'l GJYE ~' ROUNO~D NUMBER Of CHARACTERS IN THE RECORD, \ ------~----~C~-C~_I_NE_!~~I_L_L~_SE_O_~_OR_D_~C£.!ITK8UN~K~S~·--~---------------------· c • --180. __ _ NW:: !FETCH CFIT, 2LR=L.:...»_ ---NU =-NirT10 - C . SINCE •t\Y" RE.TUR'NS ONLY l ROUNDED NUMBE.R OF YORDS IN THE RECORD• C •No IT IS DESIRED TQ DETERHINC: THE [)(ACT NUitBER OF CHARACTERS IN . C----Tt-iE -STRfrjs;· "'"i" ifATHEff''cl:u-HSYPROCESS .MUST-·e£-CARRJEDOUT-Tif"F-Hio:=-=--------·--------------- 185 c THE NU"BER OF CHARACTERS ARE "ELO lN lHE Ll.Sl WORD lN THE RECORD. c ----------e:----,.C-00-THIS, TttE•DECOOEii-STATEMENT IS USED VlTtt VARYING FCiRHf\1.---------------~------- C STATEMENTS TO LOCK AT EACH CHARACtER lw THE LAST USED YORD IN C THE ARRAY "ARRAY 111 BEGINNING WITH THE RIGHT END OF THE VORO• WHEN -C ,.._--···THE LAST Or THE .BLANKS HAV£ &tEN DISCOVERED• THE .. PROGRAM Is··anLE .. ____. ..... t TO CALCULATE THE NUMBER OF CHARACTERS lN THE ENTIRE RECORD. c ,..,, ...... ,'"'..,. __ _ c··-· -------------------------·---------·--·-------------·------.- DECODE C1Dt1DltARRAYCNWll lLAST -.... 1.2.§_ ___ M 101 FORMAl 19X,tA1) ~---= ----·lFCILiST-;[c;i;--j~-f-Go-to-··102-·-· ~ ·- !REM : 10 GO TC 1000 ---------·"--102.-DECOOE cio-;1o3;-.rR"'R"a'y"(Nw1TJtAst ____ -------.---------·-------,~·-·· ....... -----..,.., 200 103 FORMAT CBXtAl) iF CILAST eEG. 1H ) GO TO 10~ ------IRE" =-sr-~ ---·---··· ·-· ----·--- GO TO 1000 10~ nECODE C1Dt10S,ARRAYCNWl) ILAST ·-195.-FORfiiAT-t7X. Ali------------··· ., 'If ULAST eEQe 1H ) GO TO 106 lREK : 8 -----GO--Tb'-iof)o 106 DECODE (l0•107tARRAYCNW)l ILAST 197 FORMAT t6••A1) ___ ;;.__ ___ . ___ .--~IF tl.LAST -.rcr;·-nrl-Go·-T!llOB _____ ....._... _______ , _____ , _______ . __________ ~ IAE.M : 7 GO TO 1000 Yt:iB-DEtoorcTilii~•l'9 ARR~Y eNg) ,-·-I LAST---- 109 FORMAT f5X9A1l ~--------------~:E~!~A~T .gQ. 1H J GO ~t_lt!__._. --------------·--------'---------------~ CO TO 1000 11~ DECODE (10•11l•ARRAYCNY)J lLAST --'"111'' FOAHAT(~Xtll) --- lf tlLAST eEGe 1H l GO TO 112 lREtt = 5 ------Go-ro-rtro c 112 DECODE C10~113oARR~YtNV)l !LAST 11~ FORHAT (3XtA1) '---'----=;..;;;...----___..;~-yFOLASl--;-ECe lH j if0-'r011.r:::o\~- 1R~H =• r----· _ ___;,G~-TO 1 oo_o _____ ··----·---~ . j l -.... L_... --·-·---------·· .. --------~ ........ --~~ ~-· -.-----. ~--: _-._-_-_-_-• ...,.,_~~-_,_, ................. ~ ........................... -~ ..... 4 ...... ___ _.___.. __ _.1. • ,...J... . # . ! c ( PAG£--.----- _......._ ___ -, . -llil 'DECODE: U0•115tARR.YU~WU JLAST ........ -·-· _, __ ,... ___ ~---_ ....... _"' __ --.,.,.,_..,"' .. -, ____ ----~~. ___ _.......__ ,.,.._ " 23G 115 FORHAT t2X•A1J IF «ILAST .Ea. lH ) 60 TO 1!6 -----~·· --~---·-·-·--lREf.-:··3----·-· ---'-------------·----------------...-.------------~ GO TO lOIJC _ I _J16""'DE~OD£_(~0tU.J_,~R!!Yt_NJU1JJ..A~S~T _________________________________ ....... _____ _ 235 117 FORMAT (lX•AlJ IF ULAST eEOe !H I GO TO 118 IREM : 2 ----------~'-----~GO TO 100~0~--~~--------~------------------------------·------- 118 DECODE (10.119•ARRAYCNU)J !LAST ~~0 119 FO~MAl (Al) . ...__ ___ ...:...;;..;;._ _____ :;..;::.;~{F(jlAST-;EG-. -~~H.,..) GO-T 0 1000 IREH ·~ ! EiO YO 1000 lCDtl-NCHAR.-:~t:-;;N:-:,W:---.,--:-1-=-1-•-:1::-:0..---:+:--=I-::R_.E-=-P\----------------~-"----~--------------- IREtt = D NREC : ~REC. • 1 c----. -THE~·NEXT-Strfutict-:-of PRo"~Ji}ip"1.:IN£S ·cHEt.Ks· Tb ~ SEEJF-Ti(EDATA_"_-- t STORED JN •ARRAY" HATCH~,3 ANY OF THE 8 StGNATll'tE11 LENGTH. REC~flDS.- C . A RECORD STORiNG STATH.JN IOENYIFlCATlON AND ~~.IAN DATE INFORMAT• ----------2~5~0-------c;;;..-..-----1-0NStiom::D·~aE..,-tHARACTERS ToNG~-·suc-tiA.-RECORD VILL BE .PROCESS£0=-------------· ...... --.. -· ____ ___...__,._ C B'! TM£ ROUT! N£ •tDATE• TO CONVERT THE' .JU!.lAN DAVE TO A MORt:: USABLE C CALENDAR OAT£ FORM. THE ST~TION !iJENT1FI£R VILL BE HATCHED WITH c INFORHAti:oN" iNPUT-BY-Tiit-usE:rC!:,\~[fEiC TOSEE IF THE DATA READI·s~-------------------- c CCNSISTE .. T WlTH THE FILES TO WHICH TH£ INCOMING DATA IS TO BE. 255 C YRITTENo RECORDS HAViNG 14 CHARACT.ERS ARE RECOGNIZED AS THE .-----...;:::.;~------c RECQRDS-YHIC_H_STOREDA lLY MAXIMUM ANifttfN.lHUf!l 'f£H.PERATUR~E::;-:;S~.:.::;....'::.:'s~.1N~C~E;;-------------......- C SUCH Dill;\ CAN BE EX.7RACTE.D BY SOFTtiAA£ IN THE SUP'MARIZAT!ON PROGRAJh t T!ollS OA VA "ILL NOT BE 1iRl. ;;r.n OttCK OUi ONTO THE NEW FILES.-RECORDS ------=----------~~---tt·ot:lfiNii_"_CHARACTE.RS ...... ARt"Rt;:~;filZ£0 ·-iS OAT i. -Aifb~AREPRoftssE:o--::;.;::...------------------ 260 c FURTHER BY TH£ ROUTINE "lCJiTA 111 "'rO P,f:FORKAT THE!.R lNf"ORHATJON AND • t TO ATTEMPT TO SCREEN OUY "GAIH.lAh'~ftlll• .L. . ~-----,,-------~--_;; , ~--·---~, ______________________________________ __ _ tF CNCHAR .Ea. 7) 60 TO 200 265 IF1NtHA~-;tg;-ilf)eo t'C 10--__________________ ..._ __________ __, IF U~CHAR .EQ. 4~) GO TO 201 CAll JUNK ·----~----;so rrr·t~. o~--- 2oo CALL IDATE. '--------·---------T----------------------------~.-. 270 GO TO 10 ~------=~~-----~2~D~l~CALL~DAT~A----------------------------------------------------------~~-----------------------~ GO TO 10 c ~--------------~~----------~------------------------------------------------------------------------------------------------------~-~~----~------~ ~. SUBROUTlt.E 11 WRAPtJP• DOES SOME HOUSEKEEPING WORK ON lHE FliLES l ..._ _________ C~ ___ W.;..;H~JC.H HAVE BEEN USED ! N lHE COUR~S:..::E::.....:O..:..,F_..:..:lH:.:.:E:.-;.P..::.;R~O..::;G.:.:.RA~H.;_;;U;.::O.:.:.R.::..K•:;.._ _____________________ _: c 215 c ( ( PROGRAtt WIZARD 7~1115 SYMBOLIC REFERENCE ~AP CR:3) E~lR Y POINTS 124~\~ iHZARD trEF LINE 'l. -_,.. ___ -~·-------_ ... _*"" ___ .,,., ________ ._. _______ ......_ ___ _ VARI ;.r:LES $':4 1YPE RELOCATION -----oARR;:y---INTEGER--ARRAY ___ PROCESS~. . -REF"S-· -·---38--39 '{'f0~--!114 2tl4 209 13361 FIT 0 F.5tSTPAS 144 10 REAL LCGICAL ARRAY INTEGER~---------· 214' 219 224 229 2~- ENDF REFS 39 t\3 81 111 i7! -----·-DEFINED ___ -45~-84--~-"!13 ~----.::....:...:;.. ____________ ___, REFS 42 151 164 A ~EFS 40 43 DEflN£0 ·P-ROCESS -··---REFs·-39--.-DEFINEO-· ---·,-s-·-----.;.._ 105 170 180 46 97~----~,=9~-----~101------,i~oy!------- .... _ ___!336lJf!ff~l.... _ ~~~;~ER _____ -·------· ·-~ _ -···oe~i~~o-----·· ;;.--s1 _JlB_, __ J!.9 _ __,_ __ 9o_· ____ 9.!_.__ _ _;9....;.2:__ __ _ 0 !FLAG INTEGER I I REFS ~~ DEfiNED 6.3 13365 ILAST --· _!~T~G~R ··-_ RE~S 191. 201 206 211 216 221 226 l --·---·-----. --··· 231 2~6 . -.21\1 -·· -l)EFlNEO • '' ""l~t\ ... _,. ___ 199 -,..,._ -20~~ '"' ·--2b9 _ __. 214 219 224 229 234 239 REFS 24~ DEFINED 197 202 207 212 217 -· .. ., 222 221-. -··--232. _,_,_23l···----2lf2.--2-\5 ___ ---~---- 0 ISTH INTEGER INFO REFS 39 2 IYY INTEGER INFO -· ----=-l_.;;;~n·)AT--· INTEGER -~ -··· .... INFo·--··--.. REFS 39 3•115 117 121 DF,FIMED :l09 123 ·~EFS~· .... ---39 .. '"·-·--· ------··-~·--·----·------·~--·----.. __ ,..;;;;...;.. ___ ..... 133£2 JYY INTEGER REFS 123 DEFINED 12.1 13,.37 NARRA_Y __ ;.~Tf!~---~~RAY REFS 42 64 DEFINED 58 59 6D 61 -----62 -··---· -· ----·-·-----...._ ____ ;....._ ___ _, _______ . ---_;;.~--- 0 NCHAR IN.TEGER COUNT REFS 40 2&tt 265 26~ DEFINED 2~1\ REFS 2-6 279 DEFINE~ 156 246 --REFs--·-·nu·-·---194 :..'J9 ____ 204x---2··o-g---21~---.2-r9.---'"""' 13~~3 NREC INTEGER _ _,1""".3!64 NW'~~---"INTEGER'"-·--- 22" 229 23• 239 244 DEFINED 180 181 r-.. ..f'J(lf-NAMES D lNPUT \ 2056 .OUTPUT ·----·---6-TlPE!·---FhT~·---· ,-----..,RE ADS~r----79---109 -~--·---------·--___....___.__, ___ ,.. ___________ 1 - 2056 TAPE2 FKT ~RITES 70 82 92 10f 1'-2 117 279 4\150 TAP£3 f'" ---&224--:---TAP£'4-·~-:-·....._---------------·~------··-.. -----.---·--------..··----------------__,.-- ' 1 f:>312 TAPES '----C')iiOfNl[S -·TYPE'"-ARGS REFERENCEs--------··--·--------------------------__... ox 0 4~ 151 ERRRRR 0 44 61 .------------r!Lt! o-----------r3o------~-------~--·~---------~--------------------------------------------------~ r 1 ~ILESQ 11 151 6tT 2 170 ~-----·.,oltl . ..., -27_...__ _____ ---·---------------------------__;.----~. tDATE 0 269 lfETCH l~TEGER 2 180 · !NY.~a--0 4r· JULCAL 0 4~ · JUNk D 267 OPENK :2-16r----------·-- ·. SYSTEKt 2 6~ [--· -~-------------------------~---------------------------- • • --·---------· -----• ..,....-.""' 1--., ,... """""""" -'""' ....... ,~--~ "¢'<..it 1 ... :~:·-~~ -~ • _.,.._ ---•"" .. .. "' ... -~ ........... ,.,. ,..., I ----~------------~~~------~----~1: ,.J..., r--·~--PROGUII UI.Zt.RO'. . lt\ll'IS tlPf:D'" R OUtlD=•·•I 'fRAt··-·~--"FTN~i\.e-·~o!---:al7057f'6;--it;"t5';tf2 -Pls£ .. -7 : ARGS • · EfH'JALS TYPE ~tf:'ERENCES f .. _.. . WRAPUP-' . c 281-·-----·---·-·---~ . ,...,__,. _____ .. ~ .... --.. ,--.~·-., -·--c............ ..,_.~" ---.. ---......... ~ !,.LINE FUNCTIONS TYPE ARGS DEF LINE REFERENCES ~ U"cF--·-iNTEGE~iJNTRJH 61 -• ATEMENT LAU:l.~--P'F t.,JM£ Rtf tUN n 130~1 1 FMT 71 lO 12437 2 79 85 94 13123 3 FHl 80 79 a " INACTIVE 82 81 13130 5 FMT 8~ 82 112. 12451 6 SE 81 12476 7 95 86 12501 8 9'i 81 12504 9 9~ 88 1256~ 10 1 0 265 2 a 12501 11 Hn 89 12512 12 103 90 ' 12515 13 "11fs 91 -1 '; 13143 1-FKT 93 92 i 12511 15 106 96 98 100 102 104 ·~ 13154 l.6 F\:r 107 106 ! 12522 l7 109 lltr 120 f 13112 l.B FHT 110 109 ~ D t9 ~NACTIVE -i12 111 • ~ 13000 4!0 279 171 • 1253~ itl llS 111 ~ 15203 ~!2 FHT 118 ~17 125.'7 ~!3 121 115 13222 2!~ FMT 122 121 13336 2'5 Fi4T 280 2.19 13231 101 F~T 19S 19~ 12G12 102 199 1-96 13240 103 FMT 200 1~-- l2624 l~t\ 20" 201 _j 132~7 UlS FttT 205 20~ 12636 106 209 206 13256 107 FHT 210 209 . I ,. 12650 108 214 2-11 Q326S 109 FHT 215 -~ 2662 1.10 219 216 327~ 111 FHT 220 2l9 2674 112 2~ ~- 13303 li3 fHT 22.5 . 224 I, 12706 11~ 229 226 12 15 FH 2."3'0 2"'2' I 12720 116 23~ 231 13321 117 fHT 235 23. 12732 118 ·~g ~ 13330 119 FMT 2~0 239 12770 200 26~ 264 1277#t 201 271 26 127~3 1000 2<\. 1~8 203 20.8 21! 21~ 223 2'28 233 238 24H 2"3 ( : ::' : : l ,_....,.. . ' -..-2 ~ t< 9 .( t"' . ' I •·~ .. PROGRA!Ii W!itARO ;., DMMON BLOCKS LENG1'·H 7•1115 OPT~O ROUND=•••/ TR~.---- rt~BERS -BJAS hAKECLENGTHl . -, ENDf .. 1 0 EOF Cll PROCESS Ull C ARRAY ClOD) lUO JD Cl) INFO 3 COUNT-• -··1 -· .. 0 lSTN U) 1 .JDAT o (U ~. u---~~, .. -·o NCHAfi~'-c1·) --------;_ __ _ _______ 2 IYY _____ f~1~)--------------------- A 1 0 FRSTPASU) I I 1 0 IFL.AG (1) ·-H·~---· ----------·-· .. -----·· ---- STATISTICS PROGRAM ~ENGTH 15328 858 --BUFFER LENGfii·~------1.173i8--5oifr-----------------------.....----------_,....------------- cH LABELED CC~KON LENGTH 1538 107 CK BLANK COMMON lENGTH lB ! __ 520ii"iHfcM··usto ---.,------------------------..:--_..;._._ ___ -·----- ---------·----- ---____ . __ .,_ .. _,. ___ .. __ --~-----· --___ .... __ _, ____ ~.,-... --· ~·""" _____ .,.. --~---------- ------------------- ---~--·---~------~·--------- f C ·-----------------------------------------------------------· i 1 .. --------------.._______ ----------------------------------....----------__; ,, t t ~--------------------------------------------·------------------------------------------------·---------------------------~ ------------· ----------·-----------------------~------------------~~ . - SUBROUll Nf OX 1-----~-·-· c·-.·~···· ····.;.;-.,; .. .-.......... •••"••········· ..... >) ..... -; .................. o.~····ii···Q·- C•••••••••••••••••••••••••••••*************~******************************* C••••••**************************~**********************************••••s•• •. '""!-~-.. --______ _.._.,. ~----~-.,_,,.._ .---------~-------------SUBROUTINE~OX ---------------~--------------------- 5 COMftON /E~Df/ EOF LOGICAL EOF ~--~------------------·~----~~r~~~T==~E~------~-------------------------------------------------------------------------~----------~~-----------EOr : • RU • PRINT •• R£~0 OF fiLE £NOUNTERED• RETURN ~!---------~1~0--------------~END ' ~·~ =,......,.,:-::-:.::--:=--:;;.-,,.....----------------~------------------__,..,. -------------·---------·---..-...-SYMBOLIC REFERE~ZE ~aP tR:3) ~--~E~N~T~R~Y~P~Ot~N~T~S~-----~D~t~F-=L~I~~E=---~R~E~F~E~ENCES 2 DX 4 9 VARIABLES SN TYPE RELOCATION 0--EoF=--·-LOGfcitl ---"'=-ENDF-·-----RtFs·---·--£---rif;f:-n~tr~----·'7·-----.... ------------..1 • • FILE NAHES HOD[:::. _____ _ CUTPUT f-R.EE -wifiTES -8·~---------~~---------------------------------._, __________ __ ---~C~O~M~M~ON~8~L~O~C~K~S-~L~E~N~G~T~H~----~M~E~H=B~E~R~S--·~B.IAS NAKE~r~L~EN~G~T~H~) ____ ___ ENDF 1 0 EOF Cl:t STATlSTlCS ,___ ___ PR osR:-;;A~H~LE=N=s"""fir CM lABELED COMMON lENGTH 520008 CM USED 178 ).5 18 1 •,·- '• 1 ~-\ • ~~ .: ., 0 • ~ • • 0 • < ~ • 0 0 1 r 1 • ~ ... 0 h ,· 0 ~ 0 SUBROUTINE lDATl ' IFTN ••& 501 ., c~················••&••••••••••••o••···········~··•o••·~·················· C••••••••••~•~*****************************••••-••e~•••••••o•••••••*****2* C••••••••~•••••••••••••~••a•••••••••••••••••••~•••~••••••••••••••~•••••*** ~ J 4 -.~ • ... . ... . . SUBROUTINE !DATA-, ------~ --. ---~-, ... _. ·-·-·-~··-·-·----~-.. ---····-~ INTEGER AR~AYC10Q) CO""ON IPRCC£SS/ ARRA1• tD /INFO/ t.STN •. ,tDAT -··--. -COtUtON-i.FLAG. -· •. --. ·-·-... ·--~--·· ··-··--·~ ···-- c c . -c ---·-iti!_s .. ·sueaoiJTiNE-PER.FOfftcS OPERATIONS ON-1iio:ft'"'RECORDS iDENTIFIED AS C ~AV!NG 44 CHARAC. fER$ TO eREAK THEM .\PART INTO THEIR CONSTITUEf~T C VARIABLE \lORDS<, THE WORDS ARE THEN SENT THROUGH A CRUDE CHECI(JNG ----------c;·~----. s£QUtNCE-TO-lDENTIFT~·ouT•OF;BOUNDS tOND.ITIONS~liHICH-HAY-BE PP,E·st,gy=-.-----------------------. c c .. -. -· -·-. 15 ---· .... ·--DEC00£.!50-;tof.ARRlY)ICLOCK·~~ -·-· ----·---------- 20 101 FORMAT Cit\) IF CIFLAG .NEo 1) GO TO 103 -!CLOCK .. : 9'399 ··-··-·-.. ·-- WRIT£ (~t102) JDAT -----·------· .. ---------------- --------.,._ ... -..... ~.-· ........... -~·---~~----·--------------- . 1~? FORHAT c•BAD CLOCK 'lATA ON •tA3e• '-.IULIAta CLOCK SE.T TO 9999•) lFLAG :·o . --·----... ~----· --··· ----·--· -------·- c t ------:- 2 _ 5 ____ -~ , _ -----~,EC~O~J~~f.!;f!AT~~g__QAT~! •;;.._.,..•----·--· -· _ ----·--·---· -----------~·---------------~ 30 10~ DECOD£(50tlti-\.,A.RP..tY)T£MP 10-\ FOi'XMATC5X •F§ ... U _ __;::;,~-iF.(IFLAG .nt;-u·so~tffTo& TEPIP : •99o9 YRJTE t~tlOSJ JOATt ICLOCK ---lOS-FORHAT.(•BAC n:MPF,~RA1'URE OAi'i-ON-iB 9Al9•· p(-"ULIANl--Al-•t-I'•t 1 m TE~P SET TO •99.9 8 ) !FLAG ~ 0 .......__ .. ~------------c--~--------~--~-~--~~-------------------------·-------------~ I , . . • 35 ..._ ________ _ c c DECODE Yl~D SPEED DATA. e • .106DECODtl5bt1rrriARRllYrQS 107 FORMATU1X ,F.I\ol! tF ClfLAG ~NEo 1) GO TO 109 ·--·----. _...._._. __ ,.....,._ _____________________ _. r--~ --.-l\C1'SO--------·-ys:-o..t;.o----·------·----·~---···-------~------------------- 1 · WRIT£ (~t108J JDAT• JCLOCK 1 100 FORMAT c •sAo VIND SPEED DATA ON • ~p\3,• t-JULIANJ AT • do\ • '-· ---------------..~--------.-us·· SET-TO -;.leO•,-------· IFLAG : 0 c ------------7'·---·-oE CObt ~lUND-D UU:CTI DNIU TA. • • c 109 D£CODEtSOvL10,ARRAYl IDIRN '--------.-----·!IC-FOR.MAl'l1~)ffl3,... ------· ---------- 50 IF tlFLAG eN£. IJ GO TO 112 IOIRN : 999 I~ -------------------ntutrT4'trrrrJtA...-rct:ocK...-------------------------------------------,~· 111 FORMAl «•B~D ~IUD DIRECTIOM DATA ON •• A3t • CdUllANJ AT•, I., _ 1 • I DlRN SET TQ 999• 1· 55. IFLAG = 0 ~----------· ,..;... t c __!'------------··----*--··----· -· ·-" ---- - { c 70 c c c IFLAG : 0 DECODE PRECIPITATION DATA• • • 115 DECO~E t50t116•ARRAYl PRCP 116 FORMAT C25X~F4all ~--------------------~~~l;F~Cl~F~L~A~G~.~N~~.~1~J~G~O~T~O~t~1~8------------------------------------------------·------------~----·------·--: 'F~CP : ... 1. 0 1 75 80 c t c c c c c WRIT£ (~~ 11·7) JDATt !CLOCK 117 FORMAT ceean PRECIPITATION DATA 1 • PRCP SET TO •leO•) !FLAG = 0 DECODE SOLAR RADIATION D~TAe e • DECODE UiND GUST DATA• • • 121 DECODE tSOt122•ARRAn EST 122 FQRMAT C35XtFo\e18 .------------------IF UflAG eNE. 1)· GO TO l~t\ - GST = ""leD 95 WRITE Co\•123) JDATt ICl.OCK '-----~=--------=1:.::2..:3--;:-:...F..;:;.O.:.:.RH:..;;.;A:.;_T;;_· ...::.f • BAD ~!l NO G OST DA 1' A ON •, A3 ,• C JUL lAfV....:::A:..:.T_•~t .:.I 1\.;..t::._. _______ --.... __________________ --...J too 1 ·~st sET-to •t.o•ll !.FLAG :: 0 c ~-------~1~05~--------~~l~2~4~D~:;:::£,:~;•~~~;~:r:~A~:~:~:~:~::~:~·-0_1_1 _A_._· __ • __________ ·-------------------------------------------·.-·:~·----~-·----~ 125 FOR"At-rrox,r:4.ll . 110 c lF UFLAG .Nt. 1' GO ·yo 1 v =-99·9 WRlfE f~•126) dDATt !CLOCK 12£ fCRP!AT(11 BAD BATTERY VOlTAG£ DATA ON • tl3t• tJUllAJU ATn, lo\t 1 • V SET TO 99•9~) IFLAG : o· ~---------~--------~C~------C~H~E~K TC SEE THAT ClOCk TIMES ARE VITHIN-=B~O~UN~D~S~·~e~·~--------------------~------- I II ... r :. 1 "'"· Jt • • ·' • ;·~.-.· -~ .. ·.·;· ~~ \ . .. • SUSRO'IJTJ~[ lDATl 11/05/20. 12.tS.02-·~ us c 1 IF tlCLOCK eGEe 0 eANOa ICLOCK eLEe 2.00) GO TO 3 IF tiCLOCK .£Q. 9999) GO TO ~ -··----··-· . ---v~iTt-t•i2J-ICLOCI{,-·'-'OAT-·---·------,...._------·------------------------ 2 FOR"Att•l CLOCK READING OF •, 14• • VAS fOUND ON m• l3t 1 • t~ULIAN)•) .._. ________________ GO-TO ~ 120 c c -·-c I CHECK TC SEE THI."i CLOl~K TIMES END IN EITHER 0 OR s. • • ~:;;..;,.;.........;..;:;_..;;=---. -·-··-· ·---=;..;.__;::.._;;:...;.._,.;;..;;;-=..--:;... ________________________ _ 125 3 CLClCIC :: ICLOCK I !=,.O NCtOCK = CLOCK ·"Nc·cocK = NtCocr• 5 IF «NCLOC~ .~9. ICLOCK, GO iO • YRITE ~~•2l !CLOCK~ JDAT --·t3a--""----c,~-----... --..... ___ .. ______ .,.. ... -..... _..,...,__.., _____ , --..... ~."' c c CHECK TO SEE IF TEHPERATU~£ IS IN BOUNDS. • • ---·· ------~--~·11~' ..,_,....,.. ____ ........, ______ _ -----·--4.-~IF-« TEMP-•• GT;; ~•fo~o~··; ANf;a"';"'"TEHP-;·LT ;·-3o;-o-";cn"; TEMP--;ta"";-·;;;99~ 9,--~---.---.. 1 GO YO 6 135 YRIT£ ~~~~) JDAT. !CLOCK ----._;;;.,;;;;_.._ ___ -·---S-FORKAT-(•TEHfiERATUffE··our·oF-f.UlUNDS-'Fo1JNlftiff··•;-"A3, 1 ~ CdULlAN) AT •ti4, c --...--------c ---.. __ ., ________ ,.. __ ~ ... --... ----------------- c CHECK TO SEE IF WIND SPEEC IS WITHIN BOUNQS. • a c 140 -------------· ----;;-t;:·c;vs-·.G·E-;-··o.,o ~7Atfrr;-ws-;L£-;-99.g .. oft7"lts ;E:Q. -1.o»------·-·----·--------------------- 1 GO tO 8 ~~lTE (4,7) ~OAT, ICLOCK --7-FORHATC 11 VIt\DSPEE-D0Ul'-O,:IrClTNbs-FoU·~b-ofil'a-;-A3" 1 • tJULJANi AT •, t~) M-5 c· ~-c-----~--------···--··-------------------------------------· ...... _... C CHECK. TC SEE IF WIND DIRECT!OH IS WITHIN BOUNDS. • • ._.----~1~5~o--------~c-~ ------------------------------------------a-.~-n·rotrtN .Gt. o .ARc-;-to!R-.r;t~3'1-;-oR-;-rtiitnr;a;-9"r v '1 GO TO 10 WRlTE C4t93 JDAT• !CLOCK r--------·-------9-FORMAT'-C 111 WI,.D-·o·IRECTtoN-OUIOFtrfUtlOS-rb1JNlrO~·N.--."-,~An3r9-. ----- 1 • (JULIAN) AT •t l~) -155 c ---------e---eH(fk-y·osE£--If='R-ELATlVCii\jM.lDlTY""t"s-VI'ilftlreolJN!lsl/0'".-.-.-----------------......,..---_.... c 10 IF URH eGEe 20 .AND. IRH aL.Ts 1DO eOR. IRH .£G. oJ -----1£-:b---:..--•. -~ ~· --1 • OR;-'tRH -~ £c;-.;.2160 *TO -u--.,.;..___,;.._..;;;,_~_..;..._..._,.;;;_ _____________ .......... ______ ----~l VRITE f4tl1) JDAlt lCLOCK l 11 FORMAT «•RELATIVE HUMIDITY OUT OF BOUNDS FOUND ON •, A3~ I ....._ ___________ , • -fJUt:IAN·)-·Ar•t14) c 1£5 C CHECK to SEE THAT PRECIPl iATlON IS \i!!':'ai!N SOUNDS. • • ·-----------------------c-------·------------------------------------------------------~---------~-------- 12 lf CPRCP eGEe Oc:O ~ANile PRCP •LEe 99e9 1110Re PRCP eEGo 1 •t.O.) GO TO 14 . --------------~wiTElUl't(~. i'!'no-,.,.,-fCOt 13 FbRKATt•Pt<EClPITAllON OUT OF BOUNDS UA.S ·FOUND AT •, A!t 1 • (JULIAN) AT •t 14) ,------------j-~--,~-----------------~1 .. --·----,~--..._..,._.--~,.... ,._ ~~-...... ·-~-"'~'!.~·-~--· ... ""' _,. ........ ' ,, ~ ............. ._.._..__ ------.... -..-............ ~--... ~-~-.... -,.._,.. ..... """-'""" -~~-----_......... ......... ___________ ~~ ... - 110 r --· ~ ..... ~-• SU&ROUTJN£ IDATA ~ ..... ~-------c t c l . -. 7•1115 ~· OPT::D ~OUND=•••I TRAC·-· -F'TN .,"8 -·"~Oif .. -·-:et/05/20;-'12.1Se02 CHECK TO SEE TH'-T SOLAR RATIATlON lS WITHIN BOUNDS. • • t tl5 _________ c _______________________________________________________________ , ____________________________________ ~------------, ~ 190 c c c c 1~ IF USLR eGE. 0 .AND. ISLR eLEe 100 oOR• !SLR oEth 999)60 TO 16 YRtT_t !•yt~L"'Ill'!~-~-CLOCK ·~·--- 15 FORMAT. t•SCL~ RADIATION OUT OF BOUNDS YA·=-s_,F,_....O.,...lW" ON •, l3t 1 • t"'ULtAHJ AT ·~ I~) • • 18 lF«V .GTo 8oS oANDo V ~LT. 13~5 oCIR, V eE&o 99c9) GO. TO 20 ·---wiiTE f4t19i .fOAl• IC(oc.r-. -----·--=---..·-----... -----------------~ 19 FORMATC~5AT1ERY VOLTAGE OUT OF BOUNDS WAS FG,ND ~~ •tA3t 195 1 " C"'ULlAtU _!!_!• .]_,>. ___ _ I 205 C 20 WRITE C5t21) tCLOCKt TEKP, USt lDJRHt lRHt PRtPt lSLRt i·STt V "--------------=21 FORKAT UHCt lXt I~• 1Xt F5e1t 1Xt Ft\.1t 1Xt I3• lXt I2t .::l;.c.;X;..=;t--.;..F..:.o\•;;..;1:;:..!t~·------------·----l ____ ix; f:s....--lx. -F~:1, 1x;-'f.~r;--·-------·----· -· -· --- } .• RETURN 210 ENU ,......--------"'----------------------------------------.--......... -· ....... --------------"'""'-'---,.-. ___ _,1 SYMBOLlC REFERENCE MAP lR:!) ~---------~=-=-~ ENTRY POINTS 2 IDATA Y•RtASLES ~ ARRAY DEf LINE 4 St; TYPE INTEGER REFERENCES ·209 RELOCATlO~ ARRAY PROCESs REFS 5 tr--83 REfS 12E. REFS 3•1B3 REFS 30 109 2•1'15 1"" 153 -___ 1,_-----------------.-. ----~~----=: I -------------··----------------------------~ 6 !ti 26 37 61 '" 1G5 OEflNEO 125 20& 'lEFIN£0 94 97 -~-·----s·2 -is 6•• 117 u.:s 125 128 161 169 177 185 ~'" xa,W,X:_,.---..~ ·~ S.USAOUTINE !DAtA ~R~AeLES S~ TYPE 1~~ JO 1 O'f6 IDIRN -0 !FLAG INTEGER INT.EGER INTEGER 7~11!5 OPT:D ftOtmD2+••; lfU. R£t.OCAT!O~ -.. FTN 4el 51)21 D£fiN£D 16 19 PR.OCESS REFS 6 REFS 3•151 206 DEFINED 48 51 --~--~-~ ~· -··--REFs----·-··r-··-~·-la-··-·2e--·~~39·-·-·s:»-----,l~---"l3 85 96 107 DEFINED 2~ 33 44 SS 67 78 90 101 i12 -~-----l.o.\7-~iRH --· I .. TESER --··--""7"'-··----··--REFS--~·-· lf•159--206--··oEFINto---6.0--· -,3.----··---'., 10S1 lSLR INTEGER REFS 3._176 206 DEFINED S3 86 0 ISTN I~TEG£R INFO ~EFS 6 ' J ~ • --- u--··--r ~OAT---· INTEGER---~---lNFo-··----r.EFS -----~--20------30 4~ -52:-------:64.-. ---... ,s..------- 87 98 109 u.s 129 135 14~ l53 1CSSNC&,Otir-... INTEGER.-"·-------· 161 169 . 177 18~5 193 . ----·-.REFS-12't---~i28--DEflNEtf"--i26-~-if7·-------..-... _.,._. -- 1050 PRC~ REAL Rf:FS 3•167 206 OEFU!'ED 71 71f REFS 3~133 206 DEFINED 26 29 -----.REfs·---~•192 ~206----DEFIN:Eb 1os---ro;...;;a~---------....-----l~-~ TEMP RtAL 1053-v· . -· ---·R£AL,. 1ll<\S. VS ~ EA L REFS 3•142 206 DEFINED 37 o\0 Flit NAMES ----·~ 1100E----· -----· TAPE~ F~T ~RITES 6~ 15-87 9! 109 .... ~ · -~-----··--··---"iss-153 161 !59' 177 ........... -~-~ _ ... _.,. ____ --.-------.~~~:----· TAPES FMT ~RilES ... STATt:~EN'f.lA8ElS -· ... -----DEF "L!NE-· 'REft:RENCES • ~ --··· 157 1 116 107 £15 2 FMT 119 1114 129 ----112 3 -~· -·-125 _ _...._116 ··----· ·-~------·--··-·>"· 207 ~ 133 117 121 128 _____ ._.............__ ___________ ---··----, I • 637 5 FMT 136 135 l ·-----220 6 -:·--'tt\'2-1'33;;----------·4 ·--·-· 65~ 7 FMT 145 1~4 23o a 151 14~ -6'11-9 --. FMT ------154 . 153-----------· ··-·---·· -------------------·---------· ____ __.___, 2o\U 10 15~ 151 706 11 FHT 162 161 ~---251 12 16 '7 159.:------------.. ~-----·· ·-----------·---..J 723 13 FMT 17G 169 .. 261 14 176 167 ,..-.-----7~0-15 . FMT---1"'78 ~-17...--------------~-- lll H 10 lH 756 17 FMT 186 185 ..__ ___ .,.,......__,,.._ ____ ------192 tar·------- ------.....-------------·· .... ----11 -------------------------------*-------------------------------·~ 713 19 FHT 194 193 312 lD 206 192 --___,t"'=o202":1:"'i.---.FI't"r,.._ _____ 2br-2-o~--------------------------\, l 322 1D1 FHT 17 " 16 " 330 1Q2 F.-T 21 20 ~· -----------~~~0 2~ ~~---------------..-.----------------~---------------------------------------------------------~ J~o\ 104 FMT 27 26 353 105 FHT 31 . 30 ,.---___;:;.,$3 10fD .~3'7 '---'-28·---------------------~------------------; 1 31'1 197 FMT ~a 37 1 o\flfl 108 FHT 42 41 ~l 109 ~8 39.------------ 416 110 FHT ~9 48 425 111 FHT 53 52 -[ __________ -._.,....--.... -.-. -_,~-----··----.. -_-_-_-._--_-_-.--.. ----~ __ ,... -.,.. .... --',_-~ .... -.,... • ... • -"'""" ..... lo:-..... ________ ------· ............ --....... --... .,.. ____ • ...-J,. .... • r'-,_ r--a--. SUflFlOUTlNE UJA1A----~ 14/175 CPT•O .. ROUtiD:+ .. •/ . - i I ~TEPENI LABELS OEF LlN£ REFERENCES ·:· u---63 ! 12·--~-. ·-·-·-;:-~~·-6G --~ ·so .. ·-. -· -• t 4~3 113 FKT 61 '!! •s2 114 FMT 65 6~ ... ----· .. -----~-----......-....--·---·-.... -.__ •• ,,----~·-"'!" -""' ......... , ""~'""' ______________ _ ~----:-;;H m . ~=~ ~= :! 1 113 118 83 73~--------------------------·--------------------------------------~--------------~ 515 119. FPIT 8~ 83 52~ 120 FHT 88 87 127 !21 94 85 543 122 552 123 H3 124 570 125 577 126 FMT Fflt FMT FKT 0 .f!J.IC: Ct.: .,..., .,-. 99 98 105 9£ 106 1C5 11il 109 COPIMCN BlOCKS LENGTH MEMBERS -BIAS NAMECLENGTHJ PROCESS 101 0 ARRAY C1DOJ ----------~I~N~F~0~~--~~2~----~-----~0-fSTN Cl! . I I 1 0 I FLA 6 « U STATISTICS PROGRAM LENGTH 10568 558 t l 100 ID UJ 1 ~01~1,----------------------------------------------~ C" LABELED COHHON LENGTH CM BLAft!K COKHCN LENGTH 1478:--_...;;1;..;;;,03 ________________________________ ._,.,. __ .,..._ ____ _ 1'8 i 520008 CM USED ••• 1 5 SUBROUTINE ~DATE C•••••••••••••••••&•••$•c••••••~•~•~•********•*************•••••••••••••••s••• c~·······~·······••e•······················••o•~·············~···~·········$·· SO.BROUTittE IDAT£ ---------.-..--------c .. ~~·===·=~---~--·-------------------------·------ c f; THIS SUBROUTINE ~ANJPUL~IES DATA TAKtN fRO" THE 7aCHARACTER RECORUS ""-----------c;;,-.--TO-VERIFY -THE STAttON IOEN'rlFI£R .. AHD"'TO-CONVERT· .THE" RECORDED-"'U(IAN-------------------' C DATE YO A MORE RtCOGNIZABL£ CAlENDAR DAlEe UJ ADDITION TO THE C DATA RECORD ITSELF• THE SUBROUTINE USES OPERATOR•DESIGNATED STATIOH -----="t=o-----:;t;;------~DENT!FiER-tlUHBERS;-'tT-.PASsts·aAtif'lfHE-~ULIAN.DAT£-FOR-US£-IN ___ :..._ _____ _,. ______ ..._ __ _ C OTHER PROGRA~ ROUTINES• c --------------~-~c~-----~----------------------------------~--------------------------------------------------~-----------------------~ IN~EGER ARR~YflOOJ9 COATE 15 COJIKCN IPRCCESS/ ARRAY• IO I INFO/ ISTNt -JDAT t 1 YY lid FRSTPAS --COMMON.IFLAG -----· ~~~~~~~----------------------------------------- LOGICAL FRSTPAS lffeNOTa FRSTPAS) GO 1~ 100 ·-----------------IPREF-=· 0 ---·----·--·-···· ----·-··· 20 LASl!D : 0 FRSTPAS = eFALSEe ____ _..,. ~ ... ··------·-------------: --------------~...; __ ......,. ________ ~ ~---·-.. --~-·-----~--...---,_____ .. _ .. ____ ....._, "~~ -"'<",.. ... --· -----------·------ c c C*'----yHE-DECODE-·STAf£HENliS"USEff"TO'STRIP-lHE-STAfJ.ON ID~NTIFtEtt-rR~IrTHr-----------..:----i 25 C ENCODED RECORD c -----------.~-------·--------------~---·-·------·------·-----·--.,------·--·------ 30 c 100 QECODE f10tltaftRAYJ ISTN 1 FOR.'MA1. U~U C A ~alMPL£ f!HECK IS MADE TO SEE IF TiiE ~-;.~ION FOUNC ON lH£ RECORD IS -. ·--·-------e~--~--Tuf.:-·sA"E. ON£ Tt:AT-·TH£'-OPERA1CfR-VA·s·~tXPECTlNG TO OPERAtt'".ON. --------------------'~ c J ·-~·---------c------~~ l IF ¢lF(AG-;Nt-;-'11tHrYcr YRJTE f2•2l ID 2 FORKAT C11 BAD DATA FOUND ON STATION UlENTlflER•I•IDENTIFlER AUTO"t 40 -----l·M~ TICALLY-SEIT0-.9'131 L lSTN : lD lFLA& :: 0 ·-----------... Ir"«Isnr·.,[q;~ lDJ" GO ,D "5!r'--------------------------------------J ----·--------------··~----~~ IF CIPREF eN£. 0 .AND. ISTN e£Qa LAST10) GO TO 9 45 LASTID : JSTN ,-------------11RI~l294J ."llri""l"'C!S~luN-------·-----------------------------------.., I 4 FORrtAti•YOU ARt EXPECTING PROCESSING TO OCCUR fOR STATION •• 13/ . 1/11 0ATA TAP£ READ .SHOYS STATION 10 NUMBER OF ••I3/1111 YOU HAVE THE •• . :2.~YNlJllPTiliNS:·•71• l• 'RrPLAtE'JO-REl D" fROM 'T APrlliTR___.• -, _____ ,.._, _____ ·-----------' 5D 311 THE ONE, YCU ORIGINALLY SELECTED•/*' 2. LEAVE JD AS tT \llS 1!1" 4 11 R£A.O. FROM TAPE•/• 3• STOP PROCE.SSING A~D TRY TO FIGUR£ •, ~~~~~~~~~~-~~~HJNGS OUl•I•PLEASr!NDitATE Y~R ~£FERENCt.•J~~~~~~~~~~~~-~~~~. ~,~~~~~~~~~·1· 5 R£.AD .(7.,£)1PftEF 6 FORMATU1) ~-----------s-.s----------------------~-·FTtnF111TT.~--~-------------------------~~-----------------------------------------------------------~------~----------·--~--~ 7 VRtTEC2t3l ,........ ___________ ,...___;a;_· _F-=O~R;.;;.;H;..:A._T.:.:..C•...;A.:.:.. . ....:t:..:.A;,;..R . ...;R~t~A.::.Gt::::......;R..;.;:E:...T...;U~R • .;.:;N....::;;..IS~N;;..C;_t:._..:::..#.~N;_ . .:..;.A.:.:..PP;,...:~CPR!AT~!! ' . .I. : --------~-:_,....__..__. ----·----· . --. ~.. . . . . --···-··---··---"·-----------_ _j_ •• ...1-r--·~· .--. SUBftOUlllE lOATf:"--74/t lS ; ~ ! . ~ ! i ~ .. ~ -r. -•• ---_,.,._, _ _..,,~ .o<> ... -..... f ___ ' _c_"-__,. ---.-...----- 0} " .• ··-1 . --•1RESPONSt; TRY A GAl N .•) ·- GO TO 5 9 GO TO flGt 11• 121 1PR£F • , 1 · ---r:-!~-T~o :s~,o 1..__ ____________ ___:1:..:2=-;C~A;;l~L~VRJ:.:..,P..:::.U:...P _______________ , ____ ___,,__ _____________ _,__ ___________ --...~. ( \. RETURN 65 55 DEtCD[UOtlihARRAY) ddDAT 14 FCR~lTf~Xt 13) ------------;;...,..;....-:1;:-;F:--::f:-;-IF'U,G etlEe 1) GO T-01''6-------------------------------------"""l ·WRITE f~·t15USTN \-...------:=-=------,_.:::;'1..:::.5-=-=F::-:CRMATt•BAD DATA FOUND ON .JULiAN D.\T£ FOR STATION •tt39•DATE SET 8 t 10 t•To -999•~, "DATE = 3H999 ----------------~----~C~DATE : 999999 IFLAG : 0 . GO TO 1!1 l ------=-7.:.5........-----~l!~ ~~~~~i :!: :~~~0 t ARRAY) JOA..;;.T __________________________________ _ l . 80 c c C CCNV£RT ~ULIAN-Q~TE·ro· CALENo'iR-oift c c , ----------------------~--------' 1.----------------iiENCODE tl OtlSt.IDA~T£)-iiY t dO AT•. ----·-------------'-----,-- 18 FORnAT IA2t A3) COATE : JULCAL CJOAT£) ---------=8;5--------~1~9~W~R~I~.T~E~CSt201i1Sf~t ~DAl~t CDA~~---------------------------------------------~--~------------------~.1• 20 FOR~ATCllt 1Hlt T3t lle Tlt ASt Tl3t 16) _ RETURN I ~------------------------~tND ------~-----------------------------------------------·--------------------------~' CARD NR • SE.VER lTV DET!_!l:::.S::..."' -----=D:.=l.;.;;A.;;.6:.:.NO.;:;.;S;;;.,:I:..;;S;;.......;;O.;;..F_;....PR:.:.O;;;.;.B:;;.:l:.:E:::.:.M=--------------------------------------------.-.J 60 I AN IF STATEMENT KAY BE MCR£ EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT• SYMBOLIC REFERENCE t!.iP ttl:~) ' «£f"t~rtNtts ' , I , ~ fi:&~fRY POINTS 2 lDAlE DEF-ffit 3 '" 87 ] ----yAR 1 ABL£$ St\ rvPE R~[dtATl~ ' ,. 0 ~RFtAY lNTtSER ARRAY PROCESS REFS lt\ 15 29 '5 75 3t\4 COATE lf-lTEGER REFS lt\ 85 DEFINED 72 8t\ 0 FRSTPAS LOGICAL A R£Fws----.t1!i ll f"s DEFlNEO, 21:----L-l---------_,, .• ~-~ ID INTEGER PROCESS R.EFS. 15 38 41 ~3 <\EJ 10 .. C !FlAG INTEGER I I REFS 16 37 67 . DEFINED t\2 73 '------=3":""<\:=-5----::l:-::P~R-::EF;:::::----:l=NTtGE:;;R;-------.,------·"REFS. -<\~~·-~o--oEf'fNED-.. -H ~l9 -53 ____ . ______ _.___,., .. , ... 0 lSTN INTEGER INFO REFS 15 -\3 "t\ -\5 "' S8 ____ !'-----------------___ O_E_F-~N-£_0 ___ ..,...:_ __ ~_1_ 61 ·=·~-: . . \ :._.,--. SUBfiOUT lNE JDATE 71\/115 OPT:O ROUND:+••/ TRA. FT~ o\oC 501 . -81/05/20• 12.15~12~ ·-·-: ~PAGE •. !' _.,_ ,..... ~ ·. . PI ABLES St. TYrt RElOCA'UO~ -~ . . ' . 2 IYY INTEGER INFO . REFS lS 82 1 JOlT INT!:GtR INFO REFS 15 82 DEfJ~ojED 7!i 35~ JDATE INTEGER REFS 8~ 65 DCF!HED 7:t 82 347 JJDAT • lNTEGtR. ·~ --------~--~---· -·DEFINf:£f 65-· ---·--·---·--· .. ·--··-~· ... ----------------~. 31l6 lASTID INTEGER REFS 4-DEflii£0 20 ItS ) 1 -----------··-~-------------------: ---FILE -NA-rtES ----KODE-·- TAPE1 FMT RE-ADS 53 . TAP£2 FHT WRITES 38 46 56 ·.-. ------iAP£4 -·FMT ----~~\lRITES------68---··-----·--· ----------------------------------- TAPES FHT \IRITES 85 -------------------~------·-------------------------------- STATEMENT LABELS DEF liN£ REFERENCES --142 l FfiT---------30 ··--. -29" --· --· -· --~-.. . ... -----.. ~ -~-_ ......... ··~-----------·--- 150 2 Fr1T 35 38 30 3 lt3 . 37 -----y£·f~---FHT··------,.7------~6·--·---·-··-' .... " -........ -"' ............. _ -· ,,. ---_,..,. ----~<-· -.. ... ~ ......... "'~"~~--~-------·------ ~4 5 53 59 l l-.......-.-___.;;;2'-'-~i-;--------~HT !!~ACTIVE ____ ;: -· --·-;;-----·-... • "' .. ·--... ..,· ... --··--------·-~~,.~~""'------.ot ~-------.........;~ 250 8 FHT 57 56 55 9 60 "" 55 ----___,,::;-,6=--~t-=-o--~------,1-----·t;o-------------· ··-··--I 1 71 11 62 60 73 l2 63 60 ..___ __ -=266 1~ ·F"r --66 ----&s·-------- 274 15 Ft1T 69 GO 116 1.6 7~ 67 r-··--.o-,7 --JNAt'ftvr---ar-, ________________________ __.._, _______ ·---------___,. I 322 18 FMT 83 82 I t26 t9 as 1• ~322o"""--FHT-"-----s·r--~·"'as----------"·-·-----------------.......-----------,---,---~1 77 55 65 ~3 62 lli 100 29 18 C 312 160 'f'Hr-" --IE 75----------- COHHON BLOCKS. LENGTH MEMBERS • BIAS NAKtfLENGTH) PROCtS'S--101 0-ARRAv-·o.o-cJ----------,0'0'"'10 INFO 3 0 lSTN tll 1 JOAT 2 lYV (1) A 1 0 ¥RSTPASfl) ,-------------r-1 · ----;r 0-IF[K~llT-------------------------------------------------------------------------. I TISTlCS ~A"O'Glt4fil CttmTF ssnr--·-23 CM LABELED COPHON lENGTH 1518 105 CH BLANK COMMON LENGTH lB 1 ----~.;.....;;;..=..-.52-ooaa-eWlfSE ..... o.-----· ~------------------------~-----------------------~-------·~---------------~---------------~---------------------------------------~ [---_-·-------------------------"-·------________________ _....., ___ .. ___ , --·-.. ·--.-----·-· __., ------~-----t ,.._..,. _ __......_..,.....__... .... _....~~ _ .... _ ..... __ ..,~·----· .......... ,...-...,...;...""""""'--,..., ~ -~-,..._....~ ..... 4 ~~~_..........,._......_.,.__.........,. ·-""!t....-t"·-~-----~------- ( l • r r---··· c •••• •*•*•. ****. it·»•o-••.•• •••••• ••••• ••·~ ····•• ••.•• ·~~•••••*• •••••••••&••···.,···-¢·-·-~--~-·--·--~--·--·- C••••••••••••••••••••• .. •••••••••••••••••••"'••1)••••••••••••o••••••••••••*••• C•••~••••••••••~••••••••••••••••••••••&•*******&*****~********************* ~-------------~--------~SUBROUTINE ~UNK 5 INTEGER ARRAIClOOl• !HOLD C8) t I ~--o----------~=---~CO~MC"lH IPRGCESSI ARRA_'(.e 10 /COUN,r/ NCH~f!_ --------.... -----------------.------C c ----------~--------~C~----~T~HJ3 SUBROUTINE MAKES AN ATTEmPT TO MA~E SOME SENSE OUT OF OTHERWISE 10 c HOPELESS RECORDS. e \ c I ~-------------------~~~~~~~~~~~~~~~~-~~~~~~~-------------------------------------------------·-·---1 IF fNCHAR eGTe 35 eANDe NCHAR ')LT .. ~t\) GO TO 3 tF tNCHAR .GE. 12 eAND. NCHAR •LT • 1~) GO tO 23 15 lF CNCHAR .EO. 5 eORe NCHAR .to. 6) GO TO 24 r-------=--------....:;:;W::-R=IT:E;:;.;:;..::C=.::t\F~~2:-:J:-;HCHARt URRA l' C L) tl1a=l tB) 2 FORPIAT fNRECORD WITH •tt2t• CHARACTERS R£A!'J. AUTOPIAT.tt •t 1 •PROCESSING NOT POSSJ.BLE•"'I 11 RECORD WAS: •,aUQ) -----------------....l ~--~------~--------------~RETURN -------------~~------------------- 20 25 a c c c c t c c c c . RECORD IS R£LATtVEL.Y LDN~;-ANDlSC:fBVIWSLY A DATA RECORD• FIRSTt THE ClOCK DATA P.O~UTION IS CHECKED CLOCK TitlE CORRECTION 3 DECODE C5Dt4tA~RAY) IBLNK !l 4 FORMAT C4X• All ._ _______ ..;;;;..;"---------IF C 1 BLNK • EO.. 1H J 6 0 T 0 .,--- I CLOCK : o\H9999 DECODE C50t5tARRAYJ JHOLD .,..--------------=s~FOIU•iT f 'IX • 4A1 o, A6) 35 c c c ENCODE ~5Dt 6t ARRAYI ICLOCKt fiHOLDIJJ)t JJ=1w5) 6 FORP'AT fA,tUt • 4A10t AS» NCHAR : NCHAR + 1 IF CNCHAR .EQe 44J GO TO 22 t£MPERATUR£ c~~ttllbN 7 DEC,_DE C50t8tARRAY) lSLNK ~--o---------------=s--..F OR MAT c 1 ox, Al) JF UBltJK eEQ. 1H ) GO TO 12 45 !TE"P : 5H+99.9 ·~ I .:J .1~·":--~ -.-.... -_-----------lfECOD£ c50t 'h ARRAn !fLOCkt lHO(D 'l -. _ 9 FORMAT CA4t 6Xt ~A10J "-----=--.;;:--------;-:;__.;E NCOD£. C 50 t 1 0. ARRAY I l CLOCK t ITEr;H~P:...;t:;...._;;;C~I;;;.;H~O::;..LD:;..f.;..::J:.:";.;.)..:.•-"=.;J~=~1~t..:.4.;:;,.) -------------------------1~ ' 1.0 FORMAT CA4ft iH .. A-5tlit t 3Al0vi\~j NCHAR : NCHAR + 1 IF CNCHAR .Eg •• 4) GO TO 22 ~~------~------:~....._ t.IINO SPEED CORRECTION 55 12 DECODE C50t 13t ARRAY) 18LNK 13 FOR"AT f15Xt All --=---_ .. J . l . \ SUBROUT!N£ dUN~ DECODE t50• 14t A~RAY) lCLOCK~ !TEMPt IHOLD 1~ FORMAT «A~t 1Xt ASt 5Xt 3Alnt ASJ 60 1VS : 4L ... le0 . . --ENCOD£-(~ij;-· t59jRifAY-) -iCLDCkt -trtMPIHlSI flHOLD-tJJ)-; .J'"J:If'~r·~ --- 15 FORftlT tA•t 1H t A5t 1H t A•• 1H t 3£10t A4J NCHAR : NCHAR • 1 ----------.....------~F-fNCHAR--;ta.-lf~i-GOrtf22 WIND OIRtCTIOti CORR.ECTlON 16 DECODE CSOt 17• ARRAY) IBUiK 17 FORMAT t19Xt A3J -·--·---7,_0______ IFCI8LNK-•£Qs;;;;..3::-H---,-J-G'""""o TO 190 DECODE C50t Uh ~RRAY) lCLOCKt !TEMPt JUSt IHOLD _ ------------··----ALfO~~A.! tA~-'-l~_t_A~t_JX! A49 4~.::..•-=2::.;;A..:.::1::..:D:..:t_..;;.:A..;:;B...:..) ______________ .,.._.. ______________ _ ID!RN : 3H99' ENCODE C50t 19t ARRAYJ ICLOCkt ITEMP• lVSt IDlRNt 15 1 . U:HOLDl.JJhJJ:1t3J -----=~--------=-lg·-·f'oR:tfit.,...CT.t"iH-.-is, Ul ·, A~t~iH .;·A39-ui-t2Afo9A7)-----------~-------------- NC.HAR : NCHAR + 1 · IF CNCHAR .EQs 44) GO TO 22 ----"'---------.. c ~····---........... ----.. --·-.. _, ____ ,--+-----....... ·--~-"' .... ., --__ ... __ .. --_____ ._..._ ...... -~------------ 80 c --------~ -----· RE1.~!!!~!1~!!1DITY_C~_f!EC)';;;...IO_;.H'---_ c 19tl DECODE (50• 191• ARRAY) IBLNK ---~-~8;5----------~191-FORMAr-124~1) ·------------------ IF(lBLNK aEQe lH I GO TO 19~ DECODE f5Dt 192t ARRAY) lttOCI(t lTEPIPw IVSt IDIRfh !HOLD -~-----------~1~-FORMAT-tX~~ii ~Si-IX~~{i-l~~~-5~i-2AlO;-A6)~-~~~~-~~---~~~~-~--~~~~~~~~~ tRH = 2H•1 90 ENCOCE C50t 193• AR~AY) !CLOCK• ITEH~t IVSt lDIRNt lRK• . . _, -·---_..;:..--------=1-. -------( lMOLDl;J;JJ9JJ:r.n-----·~'-----''------------·---~--------- 193 FORrtAT IA~t ltf t A.5t lli t A~t 1H t A393H t A2• iH t 2A10t . NCHAR : NCHAR -+ 1 ---------------~F-CNCHAff-;EQ';"""\060-T0--2r·------·---"----------------· 95 c c -------c -pftttiP'lT-ATftltrtO'RRECYlON~-----------------------.--------------- f c c .__ ___ -ru..,ib,..._ -----~~tto,r-tso.-f'9!it'A-ffRAvr !Brmr----------------------=--------------' 195 FORMAT l29~t A2) IFClBLNK aEQ. 2H J GO TO 198 -oECbDEC!"09T96;-A.~AV). JCl:"OCK"i""lTtftP"tiYS""t-,lDIRNtiRR9rtfOll» 196 FORMAT CA~t lXt A5t lXt A~t 1Xt A3t 3X~ ~2t 5Xt 2A10t All 105 IPRCP·= 4H•1e0 -------------t:NCODLt5'ift'J:9"T9AllRAY)-rCJ:O'CK9 .. lTEMI"'99VS'tlDlRN;-t RH'i'-lPRc-np~,------------------......---......: 1 UHOl.OCJ,J)oJJ=lt2) ·197 FORMAT «A4t 1H • A5t 1H t A4t lH t A3t 3H t 12t 1H t A4t ,---------------...-----..llft"'"2A1DJ 110 c c c NCHAR : NCHAR • 1 IF CNCHAR oEQ. ~~) ~0 TO 22 ·' SOLAR RlOtATlCN CORRECTION t i -I ., -~ ·~--------- .: f f I ' . 4 ! : .. SUSROUTI~E ~UKK -·- 135 140 HS 150 t c c t c c c "74/175 OPtsO ~OUNDsoo•l ?RAt.--... F1M 4.a·· 508 -·-fa.I0512Q;·l2•15;02-·--· ~ .. ~~-~-----·-··~ ~ WIND 6U"~T CORRf":CT.::..t=ON;;.;..._ _ __.. ______ _ ·------------------------------------------------------------~-------- I --------------------------------------------------------' l • SUBROUTINE JUNK PASE ..... 1'15 c c c c c c THE NEXT FEW LINES OF PROGRAM WORK ON R_EL.lTJVELY SHORT RECORDS. YHlCH ARE INTCRPRETED TCI BE STATICN JDENTIFltAUON CODE• --· ~ --- . 2~ DECODE t10t25•ARRAT) IBLNK 25 FOR~AT C3X• AU 180 IF CISLNK .EQa lH ) GO TO 28 ISTN : 3H999 DECODE Ulh 26t ARRAY) !HOLD 26 FOR"AT t3Xt A') ENCODE flOt 27t ARRAY) ISTNt lHOLD 185 27 FORMAT CA3t 1H t A3) 190 195 ENTRY POINTS 2 JUNK VARIABLES 0 A.RfCAY 1115 IBLHK 1116 I CLOCK ~- __ ,~>.., ... 144 10 1122 IDIRN 1132 lHOLD SN NCHAR ,: NCtUR + 1 c C JULIAN DATE CORRECTION c IF CNCHAR ~EQ. 7) GO TO 31 2a DECODE (10~ 29t ~RRAV) lSTN 29 FORMAT lA4) JD.AT : ~H9'9 ENCODE U th 30t ARRAY) ISnh !!11t4T 30 fORMAl CA't A3l 31 CALL IOATE RETURN END DEF LINE ~ TYPE INTEGER INTEGER 1 NTEGER REFERENCES 19 171 RELOCATION ARRAY PROCESS 197 REFS 55 ~ 111' 191 124 REFS 137 . -· -. . 84 REFS ' . ~--... 143 103. INTEGER PROCESS INTEGER INTEGER ARRAY _" ___ ··-... ~ ... -~""'""' ""'""'-----.. --......., ..._ ~-.._ -.... .... r .. -· ·--~ •• -1'01 REFS REFS DEFINED~ REFS 2•12<\ .112~ IPRCP ....... ~ .. -...-.... """' --~ INTEGER < -·-·-··----87-~- REFS 138 5 58 120 DEFINED 143 31 156 -100 35 162 120 6 74 6 -68 155 35 162 4~ 180 111 ·- ~8 DEFINED 138 .... ...... _ -....... -·-.... --'"'• .. .. < --0 -.... -oj«"_% ...... ,., • ...., -r, ·~ _......._. ---... --.. ..... 16 29 71 "~-.. ~ 84 . 138 154 ~8 61 18~ -'"a • 194-• 57 1CJ P-EFlh..~£1 29 .. t3s---· ts' *··· ~~ 74 32 ~6 ·ts7 ·~ ~~:--·· ------ 33 . 87 157 74 42 100 . .. 178 90 86 102 ~2 55 'l7s---··--·-.. 90 10.6 58 ll . 73·--.... 90 106 e1 -· -·-to:s 12~ 12'0- 61 33 143 162 -~··· 13s·-.-· -·"'·1s7~-··-··---- 5 143 103 . 106 1.57 35 4l8 184 DEFINCD t2o--· .. _ "138'~-- 12~ 143. 74 90 106 ~6 58 71 18 .... 2 ___ _.,...__,..,,. _ _.,. .......... ~ #'--· ~'"" to.·· ... ~lt·-~·---- 162 DEFINED 105 120 \ ·A SUBROUTIJ,[ .JUNK ~AeLES SN. TYPE 2123 lRH INTEGER 11.25 ISLR 1130 ISTN 1120 ITEHP INTEGER JNTEG£R INTEGER 7~/175 OPT:O Rf.lUND:+••f TRAt£. RtlOCATlON RErs 90 DEF!NlD 89 REFS 124 REFS 184 REFS ~R 162 'OEFltiED FTN ~.8 508 106 12~ 103 120 1~3 162 194 DEFINED '1 T~ 45 58 81/DS/20a 12al5e02 PAGE • 1~3 162 138 157 DEFINED 123 138 151 181 -1.91 . ..., .......... ~ .. _.....___ 90 106 124 1~3 71 87 103 12t -· 138 . ~-. 157. -··· --. --~ .. --14<-" _, --.... _ ..... ...__ .. ------.... .. _ -·-)p .. ~·~ 1127 IV 1126 tW'G 1121 IVS 1131 .IDAT 1117 "J 111~ L 0 NCHAR FILE NAMES TAPE>\ EXTERNALS IDATA I DATE INTEGER INTEGER INTEGER INTEGER INTEGER INTEGER INTEGER KOD£ FMT TYPE ARGS c 0 COUNT WRITES REFERENCES 110 196 .. REFS 162 REFS 143 REFS -61- DEFINED 60 REFS 191J" REFS -·--3s--·~ DEFINED 35 REFS 16 REFS . ' 50 51 110 111 190 DEFINED 128 147 16 STATEttENT LABELS DEF liNE REFERENCES 0 1 311 2 2~ 3 3~0 ~ 3~7 5 360 6 45 7 370 8 ~00 9 ~12 10 66 12 - 423 13 ~3~ 1~ ' .. 447 ·1s 107 16 460 17 472 18 • 507 19 252 22 255 23 - 257 2o\ 10~0 25 104 7 26 1057 27 300 26 ~ 1066 29 te76 30 307 31 . . INACTIVE F"T FMT f.fiiT FHT FHT FMl Fttt FMT FKT ff!T -. . -- FPn 'Fli!T FPlT FMT FMT FKT fKT .. FHT Hl 17 29 3t 3~ 36 ~2 ~3 ·- 47 _, ·ss 56 59 6'2 ... 68 6i3 72 76 17G 171 178 179 183 185 191 192 195 196 16 13 29 33 35 31 ~2 46 -8 44 55 58 . 61 ' 57 68 71' 74 38 1~ 15 178 182 18-\ 180 '.••~·-·'"---~------ 191··--_ ......... "'!; ___ ... 19~ 19.0 -.. -·~~ ' .... .,, " ' ~ __ :.. ...... --·----""' ·oll-_,..."....._. DEFINED 161 162 DEFINED 142 157 7-\ 90 • 1Q6 124··--· 143 ___ .. l&z~·-·-· -- 71 87 103 120 138 157 DEfiNED 193 -48 -· -61 ___ .,.. ___ . 14 ---~--·go '~ ----1tJ6~-,_ -· . 48 61 74 90' 106 ·• DEfiNED 16 2•1:5 2•14 2•15 16 -3T 38 63 '" 11 18 93 9<\ 128 129 147 148 156 186 2."11. . . so . 63 77 93 --:-'1'10 ____ .... 166 186 ... -.... ---"'..-riff~ ~. ~ ---- ... --.. ..-...... ... _,_.-. ... --------....-, __ -... -··---~--.. ......_.~rooc .... -- . ,., ~ "+""'!'~!!!"' .... ,. ,._..,.,.., .... , ----~__,...,."" __ ,.,_j!~-~--~~ .. ,-......... ,.,._.,,~ <: "-·,.--t"...._~.....,ljolt;lt~lloO.t~"'"'-l'lll!':'t,........~'-1'~-.,,... .. ~ SUBROUllNt .lUNK . £TE"ENT LABELS 130 190 52.1 191 FJ1T 53t\ 192 FMl 552 1!3 FHT 151 1'9~ 565 l':JS FHT 601 19& F,.T 62! 197 FMT 172 193 634 159 FMT 651 200 FKT 673 20.1 FHT 213 202 107 203 FHT ?25 20~ F~T 750 205 FMT 234 206 764 2117 FHT 1002 208 ff'IT 1 t'24 209 FMT COMMON BLOCKS LENGTH PROCtSS COUNT STATISTICS PA OGRAM LENGTti CH LABELED CO,.J10N S200DB Cl1 ·---or --· "'1•1 ~ ................ ~_,. ~---·- ... ------,.. -_.. -~ .....,....._,_ . ....,."" ',._ ....... _ -~--"' ... . I l 101 1 LENGTH USED 14/175 CPl:Q ROUND=•••/ TRA. DEF t.JNE REFERENCES 8" 7D 85 8~ 88 87 92 90 1Dtl 96 ......... ~ --------. --..... 101 11!0 104 103 toe 106 117 102 118 . 117 122 120 126 124' 1:55 119 136 135 140 138 145 143 154 137 155 15~ 155 157 16ft 162 I' EMBERS -BIAS ~AHECLENGTH) 0 ARRAY UOO) 0 NCHAR (l) 100 JD «U """"---1'·11o0 --· 11428 610 1468 102- .... .. ' l "' • ' __ .,...,... -'IV"""""~ .. -........ .• II> • - ....... --'"' "' ',...... "'"'"'"-,..._ ~-~~----· -·-, "---··~ ,.,. ___ ......:---... ~----.... -.·»><-·---- . ~ ........ --· --·--""" _..,,,,.__ ...__...... .... , .. -'"'---~--· .... ~-......... "' ,_., ___ ,.... __ ~· ...... ._..__ .. _,.."'_ ... _,... .. _..._ .. ·-............ -.---.... .... ~ ... -----·-"'"'"--·----------- ~ ... ._ ....... ----"•·· ~ ... -.. ....... ,jj. -It·---...... -.......... , """' .. -<· ... _ __. . .......,_ .... _____ , __ -----------------, I • SUBRCUTl~E ERRRRR 7~/175. FTN •·a soa 1 s Ef:TR! POINTS 2 ERRRRR C•••••••••••••••••·~~••••~•••••••••••c•••••••••••••••••·~~••••••••••••••••••• C•••••~•••*****************************~*************~~••••••••~••••••••••••• C••••~•••••••w••****************************************~****'*************** C••*********9**********~**********•******************•*********~*****~******** SUBROUTINE ERRRRR CCPH~ON lFll!S IFLAG : 1 RtlURN £PJO DEF LIN£ ~ REFERENCES il -. ··~-... -..... _, YARII.BLES ti IFLAG SN TYPE INTEGER RELOCATION I I REFS DEFINED COMKON BLOCKS I I ST•T ISTICS PROGRAH LENGTH LENGTH 1 CH BLANK CO~MON LENGTH 520008 CM USED 7 ~EKSERS • BIAS NAME~LENGlHJ 0 IFLAG CU 6& ta ··-·-·-... 6. 1 "'*-· ---"'""'"'"'... -....__.. ~--- ,.-....... ---···"""" """_. .. .;.e,. _________ ......, __ , ___ ~·,-- ... ·-·~·--- -... -·lor ,-.~,...._ .. _ .. "'·-!' -e--. " --""'·----,,.....,.....,. ... ,...._.,._"" ..,._,.._ -.-.....:-.'!;~ ...... ----\, . .. ,._ .... '*""'!"" ~· .., . ""' .,.. . ..... ... . •· ~ .. ;:;.~. ·-· . . ..... ,., .. ..... t l • . SUDROUlZ~£ F!L£S 81/05/IOe 12e15e02 PAG£ • 1 .5 10 lS 20 25 35 40 --·. ..... ~ .. ~ --... ,._, "5 ~-~M.f> -·--.,, ___ ·~· .. .... _ .. 50 ··~·--"'-- t••••••••••a••••••••o•••••••••••••~**********************•******~*********** C••••••••••~~•••••••••••••••••••••••••••••••e••••••••••e•••••••************* c$········~·········~········••••o••···················~···················· c c c c t SUBROUTINE FILES INTEGER ARRAVClDC) COMnON IPRCCESS/ A~RAY• 10 REVHID 3 .. .~ .... --"""""" THIS SUeROUTIN£ IS USED TO ACCESS THE APPROPRIATE PERMANENT FILES WHICH STORE T~E RAW DATA ~HICH MUST B£ PROCESSED BY THE PROGRAMo DEPENDING UPC~ THE OPERATOR•S'S£L£CTION Of UtATHER STATION, THE BCS ROUTINE "PfGtT• WILL DO A •GET• ON P£RI'ANENT FI.L£ 111 WATANA •; 111 CEV!La; 111 KOSINA•; 111 TV~NE•; •DENALI•; OR •GLACIERao THE OP£f{ATOR .. SPECIFI£D STATitlN IDENTIFICATION NUPlBER IS StRIPPED OF ITS FIRST DIGIT• YHiCH IS UNIQUE TO THAT STATION. N : liD u EGO) I lD GO TO f13t 119 9t 7, 2t 5) N 2 CALL PFG£T C5HTAP£3J 6HWATANAt Ot Ot 09 Ot lERR) IF tJE~R .EQA D~ GO TO 15 WRITE C2t3J !ERR 3 FORMAT «•FATAL ERROR NO. •t I6t •RECOGNIZED ~HILE ATTEMPTING •, 1 •A •PFGET• ON FILE •1 YRITE €2t4) ~ FORKAT C~WATAN~. PROCESSING TERMINATED~•) REVIND 3 STOP 5 CALL PFGET C5HTAPE3t 5HDEVlLt Ot Ot Ot Ot IERRJ IF ClERR .EQ~ 0) GO 10 1~ VRITE f2t3) IERR WRITE C2t6) 6 FORMAT (8 0£Vll• PROCESSiNG TERMINATED•) REWIND 3 7 8 9 STOP CALL PFGET C5HTAPE3t 6HKOSJ~A, Ot Ot Ot Ot l£RRl IF CiERR aEG. n) GO TO 15 VRITE f2t3l It1i~ VRITE C298) FORHAT t•KOSINA. PROCESSING TERMINATED.•) RElUND 3 STOP CALL PFGET f:5HTAPE3t SHTYONEt o, o, o., 0. iERRI · IF ClERR .to. OJ GO TO 15 URJT£ 12t3) tE;:Ul WRIT£' (2-.10) • • ~ • - 10 FORMAT (•TlONEs PROCESSING 1£R"INAT£0•) REWIND 3 STOP - -,, - .. ·--·-""',_ (;o.iol;~·· • .,.. ' ---..or~ .. ___,-~- -·~ ~ ·~ ---... _,. ---·--~~ -<:::;r~---- .... - ( ;...., " ..... _ • 60 -c 65 10 c 75 74/175 OPt=O ROUND:•••/ TRAC~ If (JERR ~EGa 0) GO 10 15 WRI'rE Ut3J IERR WRITE C2e12J 12 FORMAT c•D£NALl. PROCESSING 1ER"INATED.•) R£VIND 3 STOP 13 CALL PfGET CSHTAPE3t 7HGLAClERt Oe Ot Ot 9t !ERR) If ClERR eEQ• OJ GO TO 15 ~RITE C2t3J IERR WRITE (2t14) 14 FORHAT C0 GLACIER. PROCESSJMi TERMINATtD.•) REWIND 3 . STOP 15 REYIND 3 RETURN END 81/05/20. 12.15.122 .. ( -.,. ....,_.... ....____.._- • -~ -· • ·---.. !·-""-""" - SYMBOLIC REFERENt[ HAP CR:3) "EtliRY POINTS 2 FlLES VARIABLES 0 ARRAY lt\4 ID 362 IERR 361 N flLE NAMES TAP£2 TAP£3 EXTERNALS PFGET DEF LINE -REFERENCES 74 RELOCATION SN TYPE INTEG Eft INTEGER • INTCGER ARRAY PROCESS . PROCEss-. INTEGER HOD£- FHT TYPE ARGS 7 VRITES 59 MOTION ., REFERENCES 23 REFS 5 REFS-. --6 REF'S 23 42 43 . 65. 66 REFS 21 25 28 6G 67 -, '30 41 6 20. 21\ 49 fi'7 ·---· DEfiNED _.,._..,. ,.,.-...-.·o-~.,.,.-,.. . 25 50 -· ' - 20 . 33 ·s1 M ~3 54' ~· ..... --........-~ 3- 57 62 ~-·---...--·-.. --... ---~-~ ------ 1<---"" - 35 58 51 7D ~1 59 STAT£~ENT LABELS DEF LINE 2~ -·-~ REFERENCES 26 "2 231l 3 FKT 250 -FHT 43 5 265 6 FMT 60 1 302 8 FKT 75 9 317 10 FHT 112 11 334 12 FMT 127 13 26 29 33 " •• 37 "21 ·-----~ 25 35 28 21-. --~---------· ... -""'~"'"'-~ 36 21 .o<----... --~--~_,_... __ 1: --........ --.... """"~ .. _."""'~ 'll!l!l;:~ -~ ... __ -·- 51 59 67 l ---..... .,. _,._ 4'-.. -;-_.,. ___ -------·~~,....,. ..... I,IIJi!. __ ___ i\1 45"- '\9 53 51 61 1;4 -·-·-,....,._ ........ -·""'"""-·''"'"''"" ·-......... ,...-~" ... _. ___ ,,_..._,_ ·-~----.. ·~-"'-""'-" ------~---------- !-5 21 52 21 ----. " iA ov 21 .. • . • . ..•. '. . . • . • . • .• : • . • . • • . .: • I .: ;' .. • . ' • -.··, :· ~ •. • . I • •• • • • • • • • 1 , ,. I ' • a SUBROUllNE ~EMENT LABELS 351 1~ fMT u~ ts f"l~ES COM,.ON BLOCKS PROCESS L£tiGTH 101 S'tlTlSTtCS PROGRAM LENGTtl CK LABELED COMMON LENGTH 52DDOB CM USED l'"/115 OPT:O ROUPiD=•··•I TRACE. OEF LINE REFERENCES 69 68 73 2-3--~ "EftB£RS • 8IAS NA"ECLENGTHJ ~138 1-SB 0 ARRAY UOU 267 101 , ........ --....... ~ -.. fTH 41e8 81/05/20e 12a15.02 .,.,__ ___ _ 100 tO -~ ... ·-~""11~1,---,. -'-·--... ... _ -----.... .._ --·· "' . ., .... -"'·""'~ .,.,_.----------, ... ~ ..... ~-·-----....... ~ ... ,_, __ .,.. ..... _............._ ... , .. ..,. -·--"'"'' . __ )...._ __ ·----~-~-·----....... _ .. ___ ... "'"""""~"" .. _ .. _____ .._ ---..~-~ ---·T -----... -'·-~ ,_,_..... __ ,. ______ ---.___, ___ .. , _______ "'_ ---.. ---·--·~· ---.... ·-_,_~-.... -,,_---------· ------ ~ ·--.. -..... ·-,-----_.__., ____ __ ------... --..___.___...... ..... ·-"'' _____ ,. ~---~·-------~ ... ( l l l ~ .... - J SUDROUT!flt liRAPUP 74/175 FTN 4ol 508 · ~1/05/20. 12e1Stt02 1 5 10 ,, . 15 20 25 30 35 '\5 50 55 C•••••~•••••••o••••~•••••••••••e••••$•••~~•••••~•••••••~••••~•••••••••••••••• C•••••••••••~••••••••••••••••••••••••••~••••••••~•••••••~•~••••••••~••••••••• C•••••••••***************************@~••••••••••••••••••••••••*************** c c SUBROUTINE WRAPUP. • ·-~ -. ---. . · ~-·- INtEGER ARRll'(!OO~ COPl~ON /PRCCESS/ ARRAYt 10 R£UtND"3·-· --------··-- <REWIND ~ REWIND 5 N : CID • 600) i 10 .. -~ -· ._..,.... -. ·-... _ .. ;.. GO TO t13• 11~ 9• 7., 2• 5) N 2 CALL PFR£PlCl5HTAP£5.,..7HNEYUTNA• Ot 0. o., Ct 0~ !ERR) IF ClERR .Ea. Ol GU TO 15 WRITE f2•3) I£RR -:...·-·~--- ~-··· .... ~ ..... <_ ... 3 FORMAT C"FATAL ERROR NO. "• I6t• R£COGN11ED WHILE ATTEMPTING •, 1 "A. 'PFREPLC• ON FIL£•) ' ·-· .. -·· WRITE C2•4l ~ FOR"AT c•NE~WTNA. PROCESSING TERKJNATto.•J STOP · · ·- 5 CALl PF'REPLC (5HTA~E5t 7HfiEWDEVlt Ot Ot h 0• fh IERR) IF liERR •EO• Ol GO TO 15 WRITE f2t3) I£RR WRITE (2t6) 6 FORKATt•NEWDEVL. PROCESSING TERMINATE0e 8 l STOP 7 CALL Pf'REPLC f5HTAPE5t 7HNEWKOSI~t 0• 0• o., IF liERR .EQ. 0) GO TO 15 WRIT£ (2t3l IERR 0 t f~., IERR) _1!_o$tt __ • -----· --------- --· -... .-.il ------........,...:.,....~->..--...-- WR.JT£ l2t8l ............ -. ~-.....,.. .. M~-'0 ..... _ """ ·~ ... -• _.,,, -~~ ._~------r- c c c 8 FORMAT C"NEWKOSNe PROCESSING TERKINATEDeD) STOP 9 CALL PFREPLC C5HTAPE5t 7HNEWTYONt Ot Ot Ct Ot Ot IERR) IF «IERR .EQe 0) GO TO 15 WRITE f2t3l iERR·--· WRIT£ C2t10) 10 FORMAT c•NEYTYONe PROCESSING TERMINATEDe•) STOP 11 CALL PFREPLC l!5HTAPE5t 7HNEWDNllt 0• Ot tlt 1h Ot tt:RfU ,.~ .. .;o-.... ;, _..,.......__ ___ ..... --· tf llERR aEQe Ol GO TO 15 '" ·~~·· .. •• ,._, •• ,.. ·---· · • • - WRIT£ «2t3) JERR URITE C2.1.2) 12 fORMAT C"NEWONLie PROCESSING lERMINATE~l.•l,· STOP ___ ;.,. ____ "._.. .......... __ _ l 13 CAll PFR£PLC. CStiTAPE5 e 7HNEVGLCRt. 0 o . 0 v 0. 'Ot 0 t IERR'l. -·~------------ !F CIERR eEOe OJ GO TO 15 ... -...-... --*"""'_"-____ .____, __ YRIT£ (2•3) I£RR . liR ITt C2tl•U ' ·-- 14 FORMAT t•NEUGLCRe .PROCESSlt\G TERMlNATEDett). STOP ... < • ,..._-...... ,--~~ .............. ,_....,., ... ___ _,..,_ •• _~--... -.. --· ----,-----·---~ ~ -"-· ~~----..,~~: t f 15 REUl:No·'!i ____ ,., _ ...... ~-----·-~-·-.,... ...... -·--·-----, ··-------·-·---··--- CALL PFREPLC CSHTAP£.~ t 7HSUI1fUR1t Ot Ot h Dt 0 t !ERR) IF CJERR eEGe OJ GO TO 17 ... ,.,_,,,_ .. ,_ ( t ( • 60 £5 SUBROUTINE WRAPUP 1~1115 6~T:O ROUND:+••I TRAC • VRJTE C2t3J !ERft c WRITE: f2•1U 16 FORMAT c•suut~RYa PROCESSING TERMl~lTED.•I STOP ll REWIND 4 VftlT£ C2•18J FTN "•8 Stte 18 FORMAT r•PROCESSlNG TERMINATED NORf'IAlLY• SEE F!LE •• 1 ••SUMMARY• fOR ERROR•I•ANALYSlS AND OTHER INFORMAl•• 2 •toN •• , RETURN END sntBOLlC REFERENCE MAP tR:Jl !NTRY POINTS . DEF LINE RtFERENCES 2 \IRA PUP 4 68 VARIABLES s~ TYPE RELOCATION 0 0 ARRAY INTEGER ARRAY PROCESS REFS 5 ' lt\11 . IO trntGER PROCESS REFS 6 :n ------ 4~2 lERft INT~GER REFS 12 13 t• 21 22 2! 28 29 3t 35 36 37 .J.2 43 "4 -... "~ . . 49 50 51 56 57" 58 -~ .... -~..__ __ .. ,1 ti lNTEGER REFS 11 DEFINED 10 FtlE NAHES HOD£ ··~ ..... __ ..,.._ • .,__ ~· .. "* .. _ .. .., ...... -·-··-~-· , ......... -. lio>ot:----.. ...._ "''~~~,....: TAPE2, fHT WRITES 1~ 17 23 2-\ 30 31 37 38 -~ 45 51 S2 58 59 6i\ lAP£3 MOTION 1 ,.._._. '" ·-· ....... ~--~1""1f" ¥:• TAPE-\ HOllON 8 63 TAPES MOTION 9 55 . -. ______ _.,.., . .. .. ...... ' ~ . _,. --. . . ,.. ... ~-"·~· .............. --~ ~- EXTERNALS TYPE MtGS P.EFERENCES PFREPLC s 12 21 28 35 42 ~g 56 . " '"~ .... ···-.. .... --,.,. STATEI'IENT LABELS DEF LINE REFERENCES 32 ···2---12 11 264 3-. fMT 15 -·~;4~ 1--~Y*'-'23 '' 30 37 3.01 4 FMT 18 17 0\t) 5 21 11 ,, .. ..,. ... 315 6 F-Mr· 25 24 .__,, -.. --... ., 60 7 28 11 331 8 FKT 32 31 ..... ,. ...... ~ ~-.. 73 --.,---· :ss·-··----· ·tt---·- 345 10 fHT 39 38 106 11 42 11 --......,._._,, 3£1 12 _ .. FMT'" _ _....,.,_ .. --46---~ qs _...,_,, . ...,__ -. --~ ..__. .. ,_ --""'" _......_ .,._ -~--"-• -~-.... -· (.1_,..,._~ ~--,~-~,..... ............ ,.,.-..,.~-- • 121 13 49 11 375 14 'f'MT 53 52 ~><.-·~-"""· 134 '15 ____ -~ -~-·--,o,.--55-·--13-22 --. ···•· ··~·- 1\12 1& FHT 60 5.9 151 ll 63 57 -............. "'""' •"-... ----_,_,___ """ • SUBROUTINE WRAPUP STATEHENT LABELS -23 18 ~~~ COI'!f1(;1N BLOCKS FRO CESS L£NGTH 101 STATISTICS PROGRAt1 LENGtH CM LABELED COJI!"ON LENGTH 52.0008 Cfl! USED ----;:t ... -· --.__,. . 741175 DEF Ltt4E 65 CPT:O ROUND=•·~/ TRACE~ REFERENCES 6-\ FYN 508 81/C5/2Ce PAGE • MEMBtRS • BIAS NlHECLENGTH) '. t\778 1~58 0 ARRAY UOD) 110 ID f1) ~---. -~------.. -......... -·------. .., -~ """'""-·---------.. • _ ...... --·--------............. ~'( .. --....... -.. ....---~~~-...... --.. ------..4 -... ___ -.. ----~-------------4 ... ,'---\' .. ---------~--~-.... ~-------.... • -.. ------------....... ~ ""'·--------~-.. ~--.. _ ... -.. ........... -~---~ ... -.. ~ ....... """ ----~ . ...,......--..... ..,. __________ ... ..,._ ______ ..,_._., _______ __.,..... ......... ~ ------~··-----~------ • APPENDIX D R-3 MAPPED LISTING OF SUM~1ARIZATION PROGRAM • • __ l ________________ ____, 1 lti 15 2.3 25 30 35 50 55 '· ·.----.-.-~. PflOGRJ~ A.NALYZ£ 74/175 OPT:O ROUJD:a••/ lRAC. FTH lie8 50R 81/.05/20. 12e15.~e PROGRAM AUJLYZ£ (l~PUTt OUTP~l• TAP[l:JNFCTt 1APt2:0UTPUT~ 1 TAF[3q TAPE4t TAP£5) C•••••••••••••••••••••••••••••••••rt••~•o•••~•*******************!~********•~• C•" • • ••• •~• • *** e • •• • <&· e • •• ••• •o • ••• •·• • •• • • llfl• • *** * • o * ••• 'lnle **** •••• ••• *"' •••••• C••••••~•o****************~••~*********•••••••~******************•••••••••~•• C•••••••• THIS PROGR.&H liAS W"ltTTEN FOR R&H CONSULTAt.lTSt OF AfiCHORAG~ ****** C•••••u~ BY Jlf4 LANQMAP\ OF ACRES .AMERlCl"N'S ANCHORAGE OFFttr FOR eoeu..t C'******"* USE IN THE SUSiTNA fiYDROE:LECTRiC PROJtCT fEASIBIL..ITY ****"'* C•u••••• STU!li£S. ItS· INTENDED US£ IS TO ll)REPAR£ ~ilHH1ARIES OF ••••u C•••••••• WEATHER DATA TAKEN fROJ' AUTOfUT£D WE."' Tti£R STATIONS IN~TAL• ***u* C••**'ll'**'l! ltD IN THE PRCJECT STUDY AREA. IN ORDER 10 WORX PROPERLY• •••••.a- C•••••••• THE DATA MUST e£ •CLEANED* PROPERLY• TH£ PROGRAM •WIZARD• ****** C•••••••~ WAS ~RITTE~ TC DO SUCH CL!ANING ANO IT ~U~T BE USED TO '****** C•••••••• PREP~RE RAW bATA FOR USE BY THIS P~OGRA~. ****** ·c *****'«'*"' C•••••~a•• C'~'~******* C•••••*** C••"'***** C••••••.,.• C•·••••••• THIS PROGRAM VAS ORJGI.NALLT YRtTTEP\ TO BE RUN ON BOEJ'NG u•••• COMPUTER StRVICESW EKSl SYSTEMs AS SUCH9 IT HAS HANY •••••• Br.S•Ur:tQUE FEATUR£Se l.!lTH MINOR REVISIONS• T}lE PROGRA~ •••••• COULD SE ~AO£ TO YORK CH VIRTUALLY ANY OTHrR LARGE CDC •••••• MACHINE.. ADAPTATION OF THIS PROGRAI1 ftR USE ON Af'tY OTHER ••••u TYPE OF CO~PUTER SYSTEM UOULD BE VE~Y COMPLEX• •••••• C••••••••••••••••••••••••••••*$*~*****************'************s************** C**********************•*•••*************•••••••••••••••••••'***********•••~•• c•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• COH,..ON /lNFC/ ID• lfo!fh lYY• KO~ITH /PFPIERRS/ HESSAG£(5) COMMON /STATION/ lNt lNCR c c c c REA.L INCR INCR = 0.25 WRITE l~TRODUCTOf<Y STATEMENTS AN.O G.ET STATION FOR WHICH SUf'tMARIES ARE DESIR£Ih • • 1 YRITE l2t2) 2 FORMAT c•TttiS PROGR•~ IS DESIGNED TO PRODUCt SUMMARIES OF ·~ 1 •wtATHER •, 1 .•tAlA GENE~ATEO•/•By ~£ATHER YlZARDS AND PROCES5ED •, 2 •ev THE PRce~ 2 •GRAP ~wzz•. DATA HUST ALREADY•I•Bt IN PERMANENT FILE "• 3 ~•TAPE!• C~NDIRECT ACCESS) • It J•VAL1.0 ~EATHER STATIONS ARE:"/I~Xt 8 DENAtl•t "U5t 5 "DEVIL•, ~25t 5 •GtAC1ER"/3X.,wi<OSUlA"t Tl St •TYONE", T25t "WATANA 11 // 6 •PLEASE ENTER STATIO~ NAME•a' .3 REA1H1t4l IN ~ fOR~ATC A7) IffEOFU)) 5t7 5 WRITE: C2t.6) 6 FOR~ATC•A CARRIAGE RETURN IS not AN APPRCPRIATE RESPONSE• • X •TRY ASAIN~•) GO TO 3 7 lF CI~ atC. 7HGLAC1£R) GO TO 9 IF CIN a£0. 6HDtNALI ) GO TO lU lF Cl~ .EQ. 5HTYO~E > GU TO 11 IF tl~ .ta. 6HKOS1Ml ) GO TO 12 · lf tiN aEQa•6HWATANA J GD TO 13 IF nn-o£o. snotvn: , &o To 1q WRITE C2t6i IN PA6£.! .. ···~ I • 65 70 7S 80 65 CJQ 95 ltD lOS UD PROGAAr A~AlYZ£ 7~/175 OPl:Q ROilliD=•••I lU-FTN 4e8 508 c c c 8 f~~XATfA7t• IS WCT A CCRRECl STATIO~ N~HEo SO TO 3 lR'I !GA.lN.•) ASSIGN CORRECT STATION IDENTIFICATION NUMBERSa o o 9 10 = 610 INCR : OeSC: GO TO 15 l!l ID : 620<) GO. TO 15 11 1.0 = 630 GO TO .15 12 IO : 640 GO TO 15 13 IO = 650 GO TO 15 14 ID = 660 15 WRIT£ C2tl6) 16 FDRHAT(wlHANK YCU.•J•No~ £NTER MONTH A~P YEAR CT~O DIGITS EAtH)0 t 1 Q SEPARATED ev A CO~~A.•) 17 REAO(lt•l iHHt IYY IF CE0Ft1))18t 2n HI WRITEC2t19) 19 FORMATt•INSUFFICIENT OATA. TRY AGAIN.~) GC iO 17 20 IFCIMH eGTs D eAND~ lHH eLTe 13l GO TO 22 WRITE (2t2l> IH~ 21 FORMATcvDATA £RRnR ~N ~ONTHe"~l69• lS NOT ACCEPTABLE••• 1 • TRY AGAIN.•) GO TO 15 22 GO TO C230• 23lw 232t 233t 234, 235., 236t 237• 238t 239t 2~0, 1 241.) HI~ 230 HONTH : 7HJANUARY GO TO 242 231 HONTH : BHF£BRUARY GO TO 242 232 MONTH : 5H~ARCH GO TO 242 233 MONTH : 5HAPRlL GO 1~ 242 234 MONTh : 5H HAY GO Hl 244) 235 HCNTH ~ 5H JUNE GO TO 2-\2 236 ~O.NT~ : SH JULY GO TO 242 237 MONTH : 6HAUGUST GO TO 24~ 238 ~ONTH : 9H1EPT£MBER GO iO 2~2 239 MONTH : 7HOCTOBE~ GO TO 2~2 2~0 MONTH = 8HNOVEMBER GO TO 21f2 2~1 MONTH = nHDECEHB£P 2~2 IF CJYY oGTs 7~ oANDo !YY oLlo 85) GO TO 2~ ~RITE f2t2!l lYY 81/0512Do 12ol5e48 PAGE· .. 4'! ... I .. l ... I ... • PROGRA!" At.ALYl£ 741175 t\PT:O t'HlUN[I:•••I TRAC., F'fN 'h8 50R 81/~S/20. 12.1So4A 11~ 2~ FORHATC•DATA ERRGR ~~ YEAPe•tf~t• IS NCl ACCEPTABLE··~ 120 125 130 135 140 SYf'CBOLIC f. f.: TRY POlNlS 12351 ANALVZE VARIABLES SN D It 1 lHtt 0 IN 1 lNCR .2 IVY .0 MESSAGE 3 MONTH FJL£ NAMES 0 INF'UT 2054 OUTPUT 0 TAP£1 2054 TAPt2 1 • TRY AGAIN.~) GO TO 15 c c c c c a CALl TO •FilES~ BRINGS THE PERMANENT fiLE DATA YHICH JS ON •TAPE 9' THIS ROUTINE COES A •PFGET~ ON THE TAP£9 flLE AND HAKES IT A LOCAL FILE 'TAPE 3 9 c c c c c c 2~ CALL FILES A CALL 70 •G~lHER• READS 1HROUGH THE TAPE 3 FILE TO EXTRACT THE O~.TA StORED THERE TO FINO THE DATA FOR THE MOtlTH AND YEAR FOR U~ICH THE SU~~ARY IS TO BE DONEe THAT FRACTION OF THE DATA IS RE•YRJTTEN BACK TC •TAPE 4'• A~D THE TAPE 3 RECORD IS PURGED. Cli\LL GATHER c c c c THE SUBROUTiNES •HOURLY•, •DAILY•• AND •MONTHLY• PRODUCE 7HE ACTUAL SU~HARIES. THEtR OUTPUTS ARE WRITTE~ TO 0 TAPt 5' CALl HOURLY CAL! •. DAILY CA:~.L MONTHLY CAU .. NOTES c c; c rHE SUBROUTINE • WRAPUP• DO.ES APPRCIPR I ATE 'PFREPLC • OPER ATIOti!)e CALL WRAPUP STOP •NO~MAL TERMINATION• END Rf:F[R£NC£ tUP (R:3) OEf LINE REFERENCES 1 TYP£ RELOCATION INTEGER INF"O INTEGE.R INFO lNTE.GER STATICN REAL STATION INTEGtR INFO It~TEG£R ARRAY PfMERRS INTEGER INFO MODE ~IXED READS FHT t.IRJTES REFS 25 DEF'IH£0 63 74 REFS 25 2•83 8~ RtFS 26 51 52 57 OEfUl£0 ·~ REFS 26 27 DEFINED REFS 25 2•113 11~ REFS 25 REFS 25 DEFU~ED 90 100 102 1011 106 4~ 78 33 41 57 75 66 88 53 28 DEFINED 92 108 80 68 OEFIN£0 54 6~ 78 94 llll 84 PAGE .3 ·~ 10 72 78 55 56 96 98 112 Uit ~. PROGPAM 'liiJifc .NAMES -130 T.AP£3 &20~ TAP£4 10260 TAPES ANALYZE l'OD£ EJTERKALS DAILY EOF FILES GATHER HOURLY MONTHLY NOTES VRAPUP TYPE ARGS REFERENCES REAL STATOtENT LABElS 0 12621 12357 12675 ~· 12702 12370 12717 12-15 12422 12425 1~~30 12't33 12~3£ 124-\0 12731 124/t3 0 12.753 12,.54 12764 12463 "13COO 12S7tt 12505 1'!•11 12515 12521 12525 12531 l2.53S ~25l\l 12545 12$51 12555 12561 1-2564 1 2 3 ,. 5 6 1 8 9 10 11 12 13 14 15 16. 17 18 1.9 2.0 21 22 23 24 230 231 232 233 • ., 234 235 23& 237 238 239 240 241 242 ·- tOHKON BLOeKs INFQ. -~ "~ FP'T FMT fHT FMT FHT FHl FMT Ff4T I.NACliVE INACTIVE JNACliV£ L'L'NGTH ~ 0 1 0 0 c 0 0 0 DEF LINE: 3! 34 ~· 45. 47 48 51 58 63 66'" 68 7D 72 74 75 76 . 18 80 81 83 85 88 115 123 90 92 94 96 98 100 102 lOt\ 106 lOS 1l0 112 113 136 46 123 130 135 137 138 142 REFERENCES 33' 50 1+4 46 47 46 57 51 52 53 54 55 56 65 75 . 82 79 80 19 84 83 114 113 8R BB 88 88 sa BB 88 88 88 88 88 88 91 109 79 59 67 93 111 P&MgERS •.BIAS HAKtlLE~GTM) 0 ID Cl) 3 MONTH (1) 69 11 73 95 97 99•• 1 IKH , ... ,· .......... ___ ... ---... -... jt G7 117 ,.. ... --·--... -~ ~' "" . . .. 1,01 . 103 2 lYY PAGE.'\ .. 107 - I. I, ( . • ... PROGRA .. ~riALYZE ~-.. ~ON BLOCKS LENGtH PFMERRS 5 STATION 2 STATISTICS PROGRAM LENGTH BUFFER lENG_;TH CM LABELED COfMON LENGTH 520008 CH USED -~--.., .e~<-....._~--___ ..... _- 1411'15 OPT::O ft OUNC:•••I TRlC. -BIAS ~AME«LE~GTH) 11 .. 58 116758 138 0 flESSAG£15) 0 IN tU .t. ______ ,..,_ .... _ .. __ _ 1 INCR \o._....,. ___ .., ____ . __ ._,;c, •. MO<_,,._<~ w~ •M-~""''1·~ ""'·--"-.. ~ ...... --~ ·-._, ... _, "~'---''"'" ..... "" ... ,._.......~ "' ........ !08 11) t .... , ...... -.. --.-· _ .. --~ ... -·~·-... -.... ~···•·•b,>to:IO!> ... ·-· ... ~..,. ..... ~ .. -...... ~---------·----------"40~-~·------ '· .. _ .... _ ~ '-"'"'-···-·---·-""~--~··-----·---- ,..........,,._ ... "',' ... ., .... ~--~-, ....... ,._-.,...,.._.,__... ...... _ _...,.,,,.,,_,_...__ __ .... _____ , ·"!'·~·-~~'"~~""'-~·""'·-~,.,_....·1~~-~_..._.~,.._.,........._._..,.__1 l t ( 1 10 15 SUBROUTINE FILES FTN -.a so~ C•••••••••••••••••••••••••••~••••••••••••••••••••••••••••••••••••••••••••••••• c~···················*•••••••••••o•·······~········~··~·~····················· C•••••••••••••••••••••••••••••••••••••~************~*************************~ -SUBROUTINE FILES COMMON /PFi'tERRS/ t-IESSAGE CS) RtVIND 3 ~ -·-· .. ~ --.•. -··-·"' . ----~~·· ""'·--"'"' --... ,.- CALL PFGE.T ISLTAPE3t 5LTAPE9t lh Ot Dt Ot IERtU IF ClEAR .EQ. OJ GO TO 2 ilR!Tt f2tl.J !ERRt U1£SSAGEf,.Ut "=ltSJ · ~~ --~. ·-·~ ~ ·--··~· 1 FORHATceaPERP.ANENT fiLE ERROR NUMBER _•.,I2t"' ENCOUNTEREO•/t~IIHEN • .. -· .. ,,.., .. _.,...... .. ... _ .. ·--·- 1 "TRYING TO "GET• PERI'ANENT FILE •T.AIP£9•.•JSA10/ ·PAGE: • • -··· · ~~~---- 1 •.soe TERMINATED.•) • --• - STOP •STOPPED IN SUBROUTINE •FILES"• "--... -... ,......_..__ -·--"'--·· ., ... ---~~ \IUO.--- 2 REIIINO 3 RETURN END -,. .. ~~--- ........ ·-.,.,_ SYMBOLIC: REFEREP.CE ENTRY POINTS DEF LINE 2 FilES 5 VAlUABLES SN TYPE 60 i£RR IhTEGER 61 " INTEGER D JrlESSAGE INTEGER FILE NAHES MODE TAP£2 FPIT TAPE3 EXTERNALS TYPE PFGET STATEMENT LABElS 37 1 FMT 16 2 ~.-.... --........ ,_ ,._, ~--.... _ .. __ . CDHHON BLOCKS LENGTH PFHERRS 5 STATIStiCS PROGRAM LENGTH ' ~ CM LAlJELED COMMON LENGTH 5200GB Ct! USED "AP Uh~3) REFERENCES 16 $ RELOCATION ARRAY ARGS . . 7 DE.F LINE 11 15 PFfiERRS WRITES MOTION R£FERENC£S .. . 0 REFERENCES 10 9 REFS 8 REFS 10 REFS ..... --, e 10 -. '. 7 1.5 g DEfif~ED 10 __ .._ ......... --- 10 10 .... _,_._ ----""' .... '<,.... ---. -~-.. -.oo: ___ ,. '-' .. .---.·---;'< ~-... ·'"""'"~"""""-->'C' ... ---"'---~ ..... _.,. --.. ------- .. -• *'' -"""' OO.""f -"' -.,..-------·-4..-'«.; --·-• -·-"""-.. *!>A_.,..'"'""" '"'~--..... ~----"" -~--·-• _..,., ·----•'IIC.., -"'4~"'--•--."'"' KEnBERS • BIAS NAHECLENGTH) G HESSAGF.,:C5) -~ -·-.. .. ... -~ .. - . .,.,$-- 58 72B 58'" s·-.,.... -·,_...,---..,. ........... .,.. __ ~ ... ~ ·--- • _..,_ .. ·-------··-.. ~ ~ ~.----.., .... ~, ........... _,:;.---"""'¥<•'*' .. "·~--~------.. -.. ~ ....... ~ ........ --...... ......_,_, ·-.-.... -'""'*'"'" ,. -'-.. ,,_,..,. .. --"'"L +--+ ... ·~>;! --............... ..-.,. -~··-,, ,. ... _____ --..,...,.,#<! ""~-,....._ ... ---...._.... .. _ -... -- -.. -_____ ,. ___ , __ ,.. __ ... -... -..... • ( 1.~. l SUBROUTINE GAiHER OPtco ROUtlO&•••I TR_AC. FTN •.• 8 508 61105120. 12.15 •• 8 1 5 10 15 20 25 30 .. 35 50 55 C••••••~••••••••••••••••••••~•••••••••••••••$••••••••••••••••••••'•••••••••••• t··~······~····························································~······ C •••••••• •••c.•• •••••••e•• ••• ••••••••••• •••••• •••••••••••••••.•••••• •••••••••••• c t c c c c c c c c c c c c. f.; c c c c c SURROUTJNE GATHER COMHON /INFO/ lDe J~K9 IYY /PFHERRS/MESSAGEtSJ INTEGER COATE LOGICAL OKt START OK : aFALSE.• START : .FALSE. !DATA : D .RE\IIND 3 DATA SE.RCH ~E&l~S BY READING THE FIRST CHARACTER IN EACH LIN£ OF THE r.TAPE 3 FILE. IF AN 11 1• JS READ, THAT INDICATES THAT THE LINE IS "ItlFORMA"flONAL • t CONTAINING STAT!Orl NAME AND DATE INFORMATION. IF A •o• IS READt THAT INDICATES A 'DATA• LlN£e CONTAlN!NG WEATHER DATA a 1 "EAD (3e21 K~Y 2 FORMAT CAll) lF AN ENDcOf•FIL£ CONDITION IS DETECTED 0~ THE TAPE ! READ• THAT iN.DlCATES THAT ALL THE AVAILABLE DATA HAS BEEN READ IN AND 'ftfAT FILE PRCCESSlNG SHOULD CEASE• • • IF tEOFl3) :a 16e 3 3 IF CKEY eN£• lHIJ 60 10 11 SINCE AN 9 1NFCRHATION• LINE HAS BEEN ID£MTIFI£De THE ENTIRE LINE SHQfJLD BE READ IN TO DETtRPUNE THE OAT£ FOR WHICH THE FOLlO\IlNG WEATHER DATA VAS TAKEN• BACKSPACE 3 READ (3e~i lSTNt COATE . ~ FORMAT CT3, 139 Tl3t A6J IF (JSTN eEGe ID~ GO TO 6 VRIT£f2e5llD• l~TN 5 FORMATC•PRCCESSING WAS R£QUE$TED FOR STATION NUMBER •.I31 1 •DATA FOR STATtON •ti3t• VAS FOUNDe•/•JOB TERMlNATED.•) STOP •stOPPED DUE TO .INCORRECT DATA FilE• ·-··-~ · • 6 DECODE UOt7tCDAT£Jl"ONTHt IOAYv IYEAR 1 FORMAT t312l ' 8 If CIMONTH .EQe IM" .ANbe IYEAR .EQ. IY~l 60 10 9 OK : eFALSE. lF CSTART) 6D 10 1- GO TO .1 ~., .• ' ... --··· ····· ., ·~··- 9 IFCOtc .OR• STARTJ GO TO 91 READ C3,2l. !DUM"\' i'o --""'''"" ~-'l> """"' ---::-::::..:;;..:.._;:..::::::,·-~ .......... --""""" .. '- 91 OK. : aTRU£e ~~· . ' _,.~ ·· --·--···----~-.. ~--.#~----.... ____ ....,, ______ _ SlART : elRUEe WR!,TE (~tltil lDA'f 10 FD~ttATUHl9 T9• 12J •. ··-·-· .•. -· .... GO TO 1 c \ t • SUBAOUTUiE GA,THER . 74/1'75 OPJ::o MOUND:+••/ Tr.U~.. FTr. 4.8 508 81/05/20. 12e15a48 c c· IN THE FVENT THAT A •oe liAS DETECTED AS THE KEYt THE FOLLOWING 60 c STEPS READ Ui YHE WEATHER OI,TA AND Rti.IRITE IT TO TAP( 4 65 80 85 CAPO NR. SEVERITY 64 1 6~ 1 64 I -,-....__,.--£4 I is". I -64 I ~....,_._ .. . 64. 1 I I . 67 I 67 I :,.~~'-' --67 l 67 I 67 t _..._ . .......__ ...... ~ 67 I 61 1 67 1 __ .,__ ,,._.....,_,.,...._,,_..............,_. _ _ ,.,., .,.-.,--.~· ... c c c 11 !FfeNOT. OKl GO TO 1 BACKSPACE 3 RE'AD C3t12) !CLOCKs TEMPt VSt JD!RNt IRH; PRCPt ISLRt SST 12 FCR"ATtl3~ 14t It F5~1• r. F's•lt Xt I3t Xt I2e' Xt F4elt' .. 1 X9 13t Xt f4a1) VR1T£C4t13) ICLOCKt TEHPt VS,, IDIRNt .IRHt PRCPt ISLRt GST 13 FCR~ATt1HDtXt l4t Xt F5alt ~t F4e1t Xt I3t Xt I2t It 1 F4e1t Xo 13t Xt F4.!) IOATA : JOllA + 1 GO 1'0 1 -.• ·~ .. 14 READC3t12l IClOCKt lE'HPs USt IDIRNt IRHt PRCPt ISLRt GST IFtEOFC3l) l6t 141 141 VRITEt4t13l1ClOCKt TE"Pt VSt IDIRNt IRHt PRCPt ISLRt &ST JOllA : IDlTA + 1 WRITE t2t15) JDAll 15 rOR~·T( 16t • RECORDS ltliAlLA&LE FOR ANALYSISt•l ·~ Gft TO 18 16 ~Rl1£ t2ol7l !DATA 1·1 FORMAT U6t• RECCRDS R.EAD FROK INCOMPLETE flLE•I • 18 RE1UNC 3 Iff: I DATA •N£., U GO TO 181 STOP •no DATA FOR PROCESSING~ 181 REVINO 4 CALL PFPURGE «5L1APf~9t Ot fh Ot Ot lERRl IF UERR .EQ. U GO TO 20 WRITE 42t19) ltRRe C"ESSAGE (dlt d=lt5) ----·--· --*''" .. -.--. '",j;\;. -·-~ 19 FORt!~T (•PtfU1ANENT FILE ERROR NUHBER•t 12t 11 E~COUNTERED WHEN "t 1 •TRYING TO PURGE TAPE 9e•J - 20 RETURN ENO DETAILS 22 CD 64 31 en &4 ~0 CD 64 47'CD 64 5~ CD 64 1-\ CD 65 21 CD 65 18 CD 67 25 co 67 34 co 67 43 co 67 5.0 CD 67 57 CD 67 2C CD 68 27 co 68 . DIAGNOSIS OF PR~BLEM NO DIGIT l~RECED'ED X .. flE'LD~ lX ASSUf'lEO. WO DIGIT PRECEDED I•FlELD. lX ASSUHEOe ~0 DIGIT PRECEDED X-FIELD. 1X ASSUMED. NO DIGIT PRECEDED X-FIELo.·· lX ASSUMEOe"· NO DIGIT PRECEDED X•FIELD. 1X ASSUMEQ. hO DIGIT PRECEDED X•FI£LD. 1X ASS»RlO. NO DIGIT PRECEDED X•FIElDe lX AS.SUt-t£08 .. ~ -----.• NO DIGIT PRECEOE;D X•.FlEO.t. lX ASSUMED• f\0 DJG,JT PRECEDED. X•FIELOa 1)( ASSUMto. NO DlfUT PRECEDED X•FIELDe'" 1X ASSUMED.; . -~ · -.... · HO OI&lT PRECEDED X•FtELQ.• 1X. ASSUMED. NO DI.GlT PRtCEDED X•FlEL.C'-o 1X AS1SOKEDa NO D7IGlT PRECEDED X•Fl£LD. 1X ASSUHED"i--· ~ • ·· • ·-~ NO DIGIT PREC'EDEO x,-f"I£LDe UC ASSUMED. P\0 OlGIT PRECEDED X .. FIELDe lX AS.SUK£0. ., ....... -~--., -··1·----... "*' --,.·--...-.~ ..... ,.,~._.....,.. .,.., __ .,.. • -~-··l.>.:oit ...... "" .._...,....~-"" .. ~~:ro.,.... .... ,.wo___...._ .. ·-.,_ .. _ --·~ .._, -... -• '•l'' a • ---·~.~ .. .,_,.....,.,._...-....,_ ..--,,..,..,.-~,,.~.,...,.._ "'·*--~ II''·'""" ___ ,.,.,... •F-~'-·!»fi, • .....,.,~ _ _......._ .... _, .... """ •~'-"-·->" io~ ............ __ • ,,.., __ .,. ___ '"ot_ .. ...,_. __ ..,._ ..... -.......... ~ _, . ., .. ~ e..-..... ... -.... ~-w.,.. ... _e ~--~-~~'1*'~.~~411 _..,_.,. .,..._.....,..,,_,..~~----· .......... '!:-......... ~>< . ( ~UBROUllNE GATHER OPT:C ltOtmO:•••I TRA.CE.: .. . . ' SYHBOLJC REFERENCE ftAP IR:3) ENTRY POJN.TS 2 GA.THER DEF LINE -VARllSLES SN TYPE 367 COATE ~10 GST 401 ICLOCK D ID 372 IDATA ,376 404 ~c~ 1 375 ~05 407 37~ 377 2 373 0 370 ~06 371 ~02 403 lDAT lDIRN 1DU11MY lHI1 IPIONTai IRH lSLR ISTN !YEAR IYY KEY MESSAGE OK PRCP START TEMP ws FILE NAMES TAP£2 TAP£3 INTEGER REAL INTEGER INTEGER INTEGER INTEGER INTEGER "' INTEGER lNTtGER INTEGER INTEGER INTE:GER INTEGER INTEGER INTEGER INTEGER INTEGER LOGICAL REAL LOGICAL REAL REAL MODE . FHT FHT FHT REFERENCES 89 ARRAY REtOCAliON INFO INFO INFO PFHERRS WRITES READS -----62 .. RITES REFS . 6 REFS 66 REFS 66 REFS . s· REFS 69 DEFINtO 13 REFS 54 REFS 66 DEFINED :01 REF.S· -s REFS 46 REFS 66 REFS 66 REFS 39 REt-S ~6 REFS ·s R£FS 30 REFS 5 .REFS 7 REFS 66 REFS 7 REF$ . ·--66 REFS 66 ItO 75 2.2 37 a o·-·-·-····-·--· ·~ ·- 54 66 TAPE~ EXTERNALS EDF TYPE ARGS'"·-~---¥ REFERENCES"- REAL 1 29 72 STATEMENT LABELS 14 1 147 2 FHT L. • -' ~ • 0 .3 ··----~ - 160 ~ F?tT 170 5 FMT r ----·· 4 o s .. · I 214 1 fKT : o a DEF ~!Nt~· REFERENCES 22 "' 23 22 38 41 37 • 40 -~------- 56 51 61 .. ~-··· --·-4lt -39' ··---·~_-___ ........._ __ 45 41t lNACliVE 46 . . .. .... fTN 4.e sue 44 73 73 39 74 69 DEFlNED 73 . 46 DEfiNED 73 13 ~0 DEfiNED --46 - DEFINED !50 0 73 48 73 73 78 51. 73 70 DEFINEn · 37 DEFINED 63 DEFINED 63 40 ~~ . . 75 78 74 4" DEFINED 63 . -. 44 DEFINED 63 DEFINED ,. 63 O£FIN£0 37 <\It 22 61. DEFINED ~ DEFINED 63 5D QEFINED DEfiNED • 63 DEFINED 63 63 71 ,._,. ·--... _,_ MOTION 83 -·-··~,~-M~.-,, _.. _,.,. "- 71 71 ·81 71 71 71 11 71 12 71 71 PAGE •• MOTION 14 ----·""--·--- . 56 1'J ----•• 227 10 .. -"·-.. _---"'5o---"" ... _..,--,.~---~--------...... -. ...... -A ... ~~--------.....q ___ ,. __ -----~........_ ----FHT 55 54 72 11 61 30 2ft G ~·12 ·~k·· FKT . -.. 267 13 FKT 105 lit · ~-.. · 330~ rs --· Fftir--·-·-··-· 122 16 64---··-· 63-·-·-71-··--* ·~ ----·-_ . ..__ .... ______ _ 67 66 73 71 48 ~ 76'""··-._......,., __ 7s---......... --,----~ ... ~---... ----·· ----··-·..._ . ..._ _ _. __ --- 78 29 72 _ _______ , __ ., __ ......_ __ _____, ---------- ... " ... :-_>$. __ ., ., .. '"" ~,. _.....,. ·-~ .. ·-"' • ' .. ~, _ .... _..,,. "-_.......... -. --.-""',.,.._. .,._ .~,., ... ...,..-.. --<:> <t:-•l'lr---""" -...~ ..;;.;,...;.....,_,_,_ '"""'·~-------·--................ ____ ,_.,_.,.~--..-· -~""' k,.,.... ~--.... --........... ....-~,...-.......... ~ . I l r_ • • ·.. SUBROUti~E ·~ IE~£NT LABELS 342 l 1 FMT 125 18 352 19 FfU 0 20 63 91 0 1<\1 134 181 GATHER NO REFS INAC.TIVE INACtiVE COP1PION BLOCKS lNF'O ,~ F'FM£RRS LENGTH 3 5 STATISTICS PROGRAf!l LENGTH Cfl LABELED CO"MO~ LENGTH 520008 t~ USED -. ' __ .,.. .,_ -~-'"'"-""' 741175 Of,1z=D ROUND=.,••/ TRAC • DEF LINE fi£FERENC£S 79 78 80 11 87 69 52 73 83. 50 72 81 ~EMBERS -BIAS NAHE(LENGTH) 0 !0 tl) 0 HESS.GEfS) .. ___ , --........ __ , --·1M"' •• --.. --~·--·-- " . ..._,_ ---· .... '""' -, .. ' ·-.. ·--...... ,......,._.. --·-" ·~' . . . , .. . . • 0 of,~ • t . ~· • • . t· , ~"~ . ,.. . ~ . . • ~ ;:t .. . . .. . . ~ . -·' ..,...,.. "<• 'fool!--.. _ .. _ ... ----"·""""" '·--~-.-.._ .... _...,.,... __ -""~ (1) --··~-.- •• ( { l SUBROUTINE HOURLY FTN ~.1 508 PAGE ·1-· 1 10 15 20 25 30 35 40 50 55 --. -· . CC••··················~·-········~··G*********••••············~··~···········~·· C•••••*********************~***************~*~**********~*****************Q**** C•••••••••••••a****************************************************••~•••e••••~ t••···································~········································· .. c•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• C•••···································~············~·············~············ SUBROUTINE HOURLY c c c c t t COMMON /INFO/ lllt UUh !YYt HONTH: /STATION/ INt INCA DIMENSION ICLKC96h PRECC96)t TOTLl2-) tNTEGER TODAY• HRS REAl lNCRt LASTPRCt NXTPRC LOGICAL BEGIN., fiRSTt DON£9 DAYON£ BEGIN : efALSE .• FIRST = eFALSE. DONE : eFALSEe DONE : eFALS£. DAYONE= .TRUE. l = D- Pl = OeO P2 : OeO P3 : OeO P4 : OeO PS : OeO P£ : OeO P7 : OeO DATA PREC/96•«-l .. Q)/ THIS SUBROUTINE PROOOCES P.REC!PITA1ION SUHHARtES FOR THE HONttf ON AN HOURLY BAStS. PRODUCt: TH£ PAGE t·IEADlNG fOR THIS VORKe • • VRIT£ (5t 100.) 100 FORMATUHl) VRJT£ CSt 101) INt PlONTHt IYY 101 FORJUTU.H IIIIII,TS7t•R.&H CONSULTANTS• INCe 51 //TS3t•SUSJTNA HYDRo.•., 1 -.ELECTRIC PRC.J£CT 11 //IX't 11 HOURLY PRECIPITATION SUMHART FOR •• · c· c c c c 2 tAl,• UEAThER STATIOh"'/T2t•DATA TAKEN DURING "tA9t•t t9•t 3 12/IT2ellPPRECIPlTATION VALUES ARE IN KILL,IHET£RS~, 4 //161taHOUR ENDING•//T2••DAT£ 0100 0200 0300 ~400 0500 •, 4 •o&oo 01on oeoo o9oo 1oao 1100 1200 1300 1~oo 1soo 1600 N• S •1100 !BOO 1900 2000 2100 2200 2300 2~00 DtiE•IT2t129C1H~)) ' ··-......... ·-· ·-.. ,_. . ... ,. . ........ REW"IND. 4 1 R£ADC4t2l KEY-·-----·----··-----"-- 2 FOR,.AT CAt) 1Ft£0F4.J) 1ft S 5 tr CKEY eN£~ 1Hll GO TO CJ----·-·· -------·~-----·-----· - kEY HAS BEEN tDENTlFIED AS 111 X111 w !NOICATING AN 'INf'ORMATlOfJ' LlNEe BACkSPACE • READ C~t6) IDAY -·---~ 6 FORMAT IT9w 12J-~-------.-------·--·-·--·---------------· .. -··--~-------- c . -.... ·'·"'' --*--""' ., ... ,~ . .......,.._ -HI;o:.~.;:~-....._..., ... '1'_~--.----. ....... ..........._, ..... _....._..__ ~-'!'0 ___ ... ,, .. 1'~ .... -... ,~.,--~-~ ... ,"'_.,._..._ .... _ -~·- .. .,. l \ ,.-.. SUBROUTl~£ HOURLY '74/1 '75 t:lPf:O ftOU~D::• .. •I TRAC~. fTN 4o~-518 61105/20e 12.15e•s·-M PAGE \ ' 60 65 10 -. 15 SIJ 85 • 91l 95 -~--' ·-. 100 ·-" . lOS c c c c c e c c c c c c c c c e t c IF THE LOGlC~L t~etGIN• l$ TRUE•n THt INFORMATION; Ll"NE BttHG READ IS NOT THE Fl~ST. IF IT IS THF FIRST• TH£ VALUt OF 1Ht FtRST DAY OF THE "ONTH BEING PROtESSED ~UST BE HELD• lft8EGINJ SO TO 1 1DAY1 : tDAY BEGIN : • TfUJE";--~· -----· ~ TCilAY : lDAY "''---··-·---,--.. -__.., ..... -•1""·---,.--t- JN THE EVENT THAT THE FIRST DlY OF AVAJ!.ABLE DATA IS NOT THE FIRST CAY OF THE Mt.lNTtt. BLANK liNES MUST BE PRINTED ON THE OUTPUT PAGE fOR THE DAYS BI:FOR£ THE FIRST DAY CF AVAILABL'E DATAe .• • • \ ,.. ----------~ --....~-.,..-~.,__,.._ --..,.--- """"'""""'" .,... .. _ .... --------·· ...,.._ ____ _ .. ·~~---··-«> .... -.... _,.,.,.. ,., .. ,~.. ""J~ .... _.,_...,.,., ~ __ ,._ _ _.._..,. __ _.. ___ '~-' lf CIDAY1 .-EQ. U GO TO 1 lEND : IDAY • 1 DO 8 K: 19 tEND' VRITE 15•7) K• K 7 f'ORRAlUH tl2•Y2•2t T5lt •tNFlHU"'A"liON fUSSING•, T12~t 12•2) 8 CONTINUE" • . • '---.. -~ GO TO 1 IF VElTHEft DATA IS ENCOUNTERED BEFORE THE PROGRAH HAS A CHANCE TO GET A fiX ON WHAT DAY n IS., TwAT WEATHER DATA .IS IGNORED. • • 9 IF «BEGIN» GO TO 11 GO TO 1 11 1 ~ I .,. 1 BACKSPACE 4 •.•.• READ to\t 12) ITIKE., PR.CP 12 FORHATC2X• A~t 19X, F'•l> 121 DECODE ClOt 121• 1TIHEJ HRSt t\1%N .""" ·-----·····-·-" ~ F!lRf1AT U2• i2l IF lHRS .NEe 39J GO TC 1" IF tFIRST) GO TO 13 '-- GO TO 1 JF AT LEAST ONE OTHER TIHE RECORD HAS BEEN SUCCESSFULLY ENl'EREih ANU THE PROGRAM ENCOUNTERS A CLOCK READING OF 9999 fTHE VALUE TO WHICH AU. AMBIGUOUS CLOCK TIMES ARE SET> t THE PROGRAM CAN ACT TO £STABLtS.H 1'HE CORRECT Tift£. • • 'l "' ..... _.. -.,., ... -'t-.,. . ...,.,._._ --.-~· .,. c· \) c c c c 13 lHRS : IClK~t-1)/100 lf11NS : ICLKtt•11 • fiHRS • 100) FRtN : lKINS I 60ol TIH£ : IHRS + FRCN liH£1 : Tift£"'+·· lNCR" ---·-·-... HRS : Tl.K£1 XH1NS1 ~ lTI"£1 • HRS) • 60.~ .f'llt4 : XKIHSt· fUONIGttl IS REPRESENTED BY THE WEATHER t.llZARDS AS 0000• fOR PURPOSES .. OF T!U$ PROGRAMt IT lS DESIRED TO REPRESENT MIDNIGHT BY .2.00~ ·--'-· · 11\ .IF«HRS eNE. 0 eOR .• HUI eNE• OJ GO 1'0 15 I .: 96, . , . .. -·-·-··-. ICLK (96' : 2400 PREC (96) : PRCP . ... --··-------,.._ .. -~...,....,.. _.... ~-·~--~ ~· -~~~ ........ ---... -----·~t·.,_.""' ,,.. • SUBROUTINE HOURLY l~/115 OPJ:O ftOUND=•••J TRAC. fTN 4.8 508 81/05/20. 12o!5a48 us 120 ·-. . 125 230 135 145 . 155 I !.~----··----- .r·--~- ' 160 ~ ~-- I 170 c c c c c c GC TO 16 15 1 : «HRS • 4) + C~IN I 15) ICLK C!l : HRS • 100 + MIN PREC tl) : PRCP · trCI eEQ. 9') GO _TO 1' JF CFIRST! GO YO 1 ll = 1 FIRST : eTRUE. GO TO 1 CONTROL IS TRAN~;FEP.RED TO SlATE"ENT 17 BY DETECTION OF AN END•OF•FILE CDND!TION.. THt!; INDICATES THAT ALL AVAILAeLE DATA H,lS BEEN READ lN A~D AFTER PfllNTING Tftt LAST liNE Of DAT~h CONTROL IS RETURNED TO nit .HA!N PRCGRAJI. nus IS !NDICAT£0 BY SETTING THE L:~I'HCAL •DONE• TO TRUE. 17 DONE : oTRUE. 16 DO 27 K : ~. It 4 12 = .K .. 4 13 = t( + 4 IF lll .GTe K) GO TO 27 IF CPRECCK) eNEe -1.0) GO TO 27 NEWfCE>Y :: K 18 N£WKEV : NEWKEY • 1 IF «PREC «NEWKfl) aEG. •1.0) GO TO 19 LASYPRC : PREC.CNEWKETJ - GO TO 21 19 IF tNtWKEY .GT. U .AtdOe NEWI<El .ST. 12) GO TO 18 YRIT£ f2t20) TODAY~ JCLkiKl 20 FORMAT f•Lt~ER VALID PRECIPITATION VALUE NOT FOUND FOR THE •ti2e2t 1 • DAY AT •,t~.~) SO TO 27-'" 21 N~TKEY : K 22 NXTKEY ~ NXlKEY + 1 -..._, -... -....... " .......... _ .. _ ' ..--- IF «PRECCNX"i'KEYJ· cEQ. ""1•0) GO TO 2.3 ···-· ~ ~ ---· , .. --·~---·~ • .,..,. -· ·-·--u_, ___ ·--·--·- NXT?RC : PRECtNXTKtVI GO VO 25 23 If lNXTKEY aLTa 96 eANDo NXTK£Y"eLTa'l3) GO fO 22 YR!T£ C2t2t\) TODJYt ICltUKl 2~ FORMAT c•UPPER VALID PRECIPITATION VALUE NOT FOUND FC'R Ti1t: •tl2•2• 1 ,. • OAY AT •,z~t.u·· ---· ~ ~· -· --· ·· ---- 60 TO 27 ' ··-··-,-·-_!110!,_ ... _ . ....,,_ .... -~-(~~.,.,.* ~-.._-· .. - 25 PREC CK) : L~STPRC • ((NXTPRC • LASTPRC) • CCK • NEUkEYl/CNXTKEY - .. ·1--··----.. ·-· ~EYKEY))1 ·-··-, --·-•• -----·-·-----·----·· .-..;---------- C' ' It c . c c VRITE C2t26) TOOAYt lCLK«KJ 26 FORMAT t:.t~PRECIPI"TA7ION VALU.£ FOR •tt2.2t• ~T •tl~•4•• ESTIMATED.•) ~1 CONtiNUE-·-·-· ··· · ---· .... ·---~ -··------·------~-----~-... --· · ·--··· -·----~·----~*'~---- SJNC£ THE WEATHER WJZARDS.HAlNTAJN"RUNNING TOTALS ON PRECIPITATIONt \lESETTING UPON REAC~ING 100.0 M" OF \!AT&:Ro ll IS NECESSARY TO SUBTR.t.Ct---------····-----·-.. 'J'HE PREVIOUS RtADING FROM THE PRESENT 1'0 ARRlVt -AT THE PERIOD•S c --·~ "· PR£ClPt.TAT~.ON VALUE. IN CASES OF THE 15 KlfiUTE INTERVAL AT THE BEGlN• . NIUG OF £/lt;ff "ONTH f2400 flOURS TO 0015 HOUR·s ON THE lSTlt DATA JS NOT ·-------------------. t' AVA!l.ABL£. ACtUTIONALLYo TME PROGRAM MUST SEARCH FOR THE FIRST AVAIL• · ABLE PAECiPlTATtON,RECDRO FOR ITS USE IN THE PROGkAM• . _.,_ -~ .. .,_ .. .,_ -"'-., ''"""""~~ .. ________ ...._ ____ -----· Ifl~NOTe tDAYON£)) GO TO ~9 DO 2.8 K : !lt 96 r--------------------·-----.. ·-------------~--·-·----·------------..... 1 -~ ~.~ ·,: • ~ • • ~ I • ' ~-~ I: ' • 0 ~ ' • • • • ~ 0 •• • t \ ( .,...., ,, __ ."· SUBROUTINE HOURLY 74/175 fTN 4&8 5D8 81/05120a 12 e1.5.e·\8 PAGE •• 115 180 1.85 190 ~\95 200 2Q5 215 220 ~ 225 IF IPRECCK) eEG• •leO) GO TO 21 IFCPRECIKJ .NEe •2.0) GO TO 281 VALUE1 : a.o GO TO 282 ... -·-~ 281 VALUE1 : PRtCfK) 282 IPLACE : K _...,... -·---'"~"·• ...,,.. __ "'_"' ...... -....--·---,~~~~----·-- GO TO 29 · ~ -·~ ----·--.•• -.. -·----· ·--___ .._ -.. --~·-.... ---. _ ... _ .. _ ..... .,....,. ___ ,_¥_~_ .... _,., 28 CONTINUE 29 00 291 KK : 1o 24 TOTLCKKJ : lOOD.o - 291 CONTINUE 00 30 K : ~, lt ~ IF CIPLACE .GT. K) GO TO 30 --·-· · • --·---·· ... :n=K/il lFC~RECCXl eEQ. •leO) GO TO 30 IfCPRECCKl eNE• -~.0) GO TO 2910 VALU~l = a.o ....... --..-...... ... -~···-· -_,.,, .... -,~ -... -..... ·"----·-----~--- .... 4----..,_ ~ ---~ -~ ------... .. ... --~ ""' 2910 lf(pq[CfK) .GE. VALUEl) GO TO 2911 VALUE!': VAt.UEl • lCOaO · 2911 TOTLCIIl : PRECIK) • VALUEl VALU[l : PRECCK) ·----.--- r'l: P6 J:'G: PS P5 : P4 P4 : P3 P3 : P2 P2 : Pl P1 = TOTLUU . ---·---· "~·----.. P : Pl + P2 + P3 + P~ + P5 + P6 + PJ IF CP eLTe 125e0) GO TO 30 KLOK : I * 25 .. ---~.... . -- YRITEC2t300l KLOKt TODAY . . . .. ..... -. '--..... ·~ ..... .. . .. .... --... ,;. 300 FOR"ATC•6 HOUR PRECIP GREATER THAN 125 "~ AT•tt4e4t •oN~tJ2) WRlTEC2t301)P\t P2t P3t P4i PSt P6• P7 ·- 301 FOR"ATc• •tT2!~P-o : •tFS.to•P•l : •eF5ele 111 P•2 : •tf'.5el••P•3 : •• l F5.tt•P•4 : •tF5•1•8 P•5 : •tF5at,•Pm6 : •tF5.1J 30 CONTlNUE If'L.AC£ : 1 l ............. -.. .._ ___ , ___ ... ··-. OA.YONE : .FAlSEe --... _,. --..... _ --.. -- __ lf_....__..,. ---" .... ~--;o--.. _""' "' .. _, ___ .. ,.. ... ,.11!. WRITE C5t3U TODAYo CTOTLCJ)t .J : lt 241t TtiDAY 31 FOR"ATCl.H t T2t I2e~t T7t 2~CF\a1t X)t 3Xt !2.21 00 311 KK=lt9£ -~··--·· ·-~ -· · · ~--" -·--·----------·--- PREC CKK): •1•0 311 CO~TJNUE TODAY : IDA'f --· ~-~· --.. . .. ~ .. ·~·~ - ---· -·. IFC.NOT. tDONElJ GO TO 1 !F CTODAY aGE. 31) RETURN TODAY ·: TOCAY + 1 · -·-·--· ... 04 32 « = TODAY • 31 VRlT£ (5•7) Kt K 32 CONTINU£ "· ·· -·--~ _ .. ' ~·· R£VtND ~ RETURN ENO . -... ,. '- ._.,.,.. ... -t"" •• ,.,... ".# ;;..•:.. --·-~·-- . 4f'""'---~ ........ ...,.., '".:lr. ,.,.-.·-~~___.. ( { {. -~ •' ··-~·! "~ SU8ROUT1~E HOURLY ~ ~R .. SEVERITY DETAilS ·r;~/175 OPl:O ROUND,=••l!)/ TllAC:~ CIAG~OSJS OF PROBLEM ;~ 3o 213 1 t 35 CD ~l NC DIGIT PREtEOCD ~~FJELC• 3X ASSU~ED. ~2CO 213 ~0 DlStT PRECEDED X•flELDe JX ASSUMED. SY"BOLtC REFERENCE ~AP CR:3) ENlRY POINTS DEF LINE REFERENCES, 2 HOUnLY 1 219 225 4 Y.1RIA8L£S SN TYPE REt,.OCATION 1 D7tl BEGIN LOGICAL REFS 12 1.013 DAlDNE LOGICAL REfS . 12 1t172 OONE LOGICAL REF$ 12 1071 FlRS'f LCGI.CAl REFS 12 1lH• FRCN REAL nEFS 102 1065 ,HRS INTEGER f\EfS ltl OEFtNED 88 1074 I Ii'iTEGER ~EfS 84 132 183 1.136 ICLK INTEGER ARRAY REFS 9 UEFINEO 113 0 ID !Nl(G£R INFO REFS e 1105 lDAV lNTEt,;f;R ~EFS 63 1106 IOAY1 INTEGER REFS 71 1107 IEtfD INTEGER REFS 73 ~il4 lHRS INTEGER REFS 100 1132 II INTEGER ~ ... ., REFS . 191 1115 IMINS INTEGER REFS 101· 1 tMn INTEGER I lifO REFS B 0 IN INTEGER StATION REFS 8 1 INCR REAl STATION ·REFS 8 1230 I PLACE INTEGER REFS 1Q4 lUl ITIM£ INTEGER REFS , 88 2 iTi INT£.G£R INFO REFS 8 1122 u INI£GER REFS 134 1123 12 INTEGER . REFS· 141 1124 13 INTEGER REFS 151 1135 _.. INlEGCR REFS 212 FTN 4e8 518 PAGE ---· •·'"'"" .... _,......,. 62 82 DEFINED 13 6&\ 170 DEFINE~· 17 211· --_.... .... _ __ .., 218 DEFtfiED 15 16 130 91 120 DEFINED 1~ 122 OEFINED 101 '10 105 111 116 117 10" 99 tOO 117 1,18 119 •'121 .. _. ,, .. .,.,. 202 DEFINED 18 84 112 116 99 100 142 152 158 117 _ _..._.._ ... 65 72 217 DEFINED 54 DEFt NED 63 ... ..--....-·.;.loffi --·- DEFINED 72 102 DEFINED 99 199 DEFINED ~·of> 185 ,,_ ...... _ "' ~ 'll>t":.5 .. ---; .. -~,.\))<- DEFI!IIED 100 35 , ..... 11 103 DEFINED 177 210 . DEf.INED -86 ..:.: ... ~ ... .....,. ..... ·---: --' 35 1~1 17.1 DEFI.NED 121 • DEFINED· · 132 DEFINED 133 DEFINED 2!2 1110 K' INTEGER' .. . ·--.._ ______ .. '"'"* ,REF'S ,. "' ~·· . '2•74---· 132 .. ~ .. ~. 133 13" t3s·~···~·--"'1.36 .. < ·-''142.-...... ----· 146 152 2•156 158 172 173 176 177 184 185 186 1.61 189 191 192 2•222 ·-·-... ...... ~,-·-""""·~ .. DEf'lNED -·'" -13 . " 131 ~"'"'"' 171"···-183 ~· ·-221_'_ -· .... ~'k~M._•., \o>>llt -~"- l 1104 KEY IN!EGER REFS -4~ 'l!='J'INED 46 J U.31 Kit INTEGER RltfS !,81 ~15 DEFINED 180 21/t 1134 Kt.Ol( --· INTEGER ... ~,--·---.. . ·--··~--·-,_..., ..o.p:.+t<ooi<--REFs-....... 205. 1>,·' H!Eo---202---~-·· o:o-~~<~·-~...._~.... .. "'~ .... ~-_.......~..,....~ .,.._ 1066 LASTf'RC REAL REFS 11 ~·156 DEFIN£0 139 1113 HIM UHEG.ER R-EFS 111 116 117 DEFINED 88 ' 106 'I:· MON-TH-i~TEGER INFO .......... -REFS·---~ '8-·---' 35 ill:k+--$ ~ ... -"' -···--· ---~-., .. "'·•""',__,.. . .--""= ...... ~ I ..., • 1123 WEVICEY UHEGER REFS 137 138 139 2•1~1 ~"156 l DEft~E:D 136 137 f ~·-· _....r~""·"' -·1126 NXTKtY .. ' l~TEG~R "·----. .. .. -,. ~ ., ___ ..,., ... --~ REFs-·~ ~ 1~7-~'' li\8 ---14'9·-·,.,. 2•151 ~---,..""""' 156 ......... ~---'111·,~ t .. ,_._ f .. , ..... _. ·--~-,--,.,.1* ________ DEFINED 1~6 1-1 { .-..,...,...--''" ·~---·,:,·~----*-''""-·~--..,-...~ .-, .. ~-~~-..._.._."........._,.._. ""! --... • .....,. _,.. ~-.--""* ______ '~-..--.......... -l_;·. t . ~ !I!.-. - \ \ • . SUBROUli~E KOURLY 1 UBLES SN TYPE 10£7 ~XTPRC REAL 1133 P REAL 111~ FRCP REAL 127£ PREC REAL 1075 Pl REAL. 1 07t!. P2 REAL 1"77 P3 REAL 11.00 PI\ REAl. 1101 P5 REAL 1102 P6 REAL 1103 P7 REAL 1117 Tlf1E REAL 1120 Tl11E1 REAL 1061\ TODAY . INTESER 1436 l'OTL REAL 1127 VALU£1 REAL 1121 XtUNSl REAL FlU.: NAMES HODE TAPE2 FHT TAPE<\ FMT TAPES FMT EIT£RNALS TYPE EOF REAL STATEMENT LABELS "" 1 645 2 FHT l~/175 OPT:O ROUND:+••/ TRAC~ RELOCATION ARRAY • ARRAy ARGS 1 DEF liNE 46 47 REFS REFS REFS REFS 173 DEFINED WRITES READS WRITES REFERENC£S ~8 REFERENCES 62 1\6 REFS REF'S REFS REFS .REFS REfS REFS REFS REFS REFS 220 REFS REFS 190 REFS 1-\2 "6 33 71 11 201 llit 9 17£ 26 198'. 197 19£ 195 194. 193 zoo· 103 104 10 221 ·c; 189 192 106 152 54 :55 -....... 77 FTN 4a8 508 81/05/20~ 12.15e41 1!1, DEFINED 11.8 1.35 186 114 DEFJNtD 200 DEFINED 86 , 138 139 148 187 189 191 ·----2oo-·· 118 1S6 215 205 DEFINED·--1.'9---199--·------, .... 200 2.00 -200. 20.0 200 . -205-... DEFINED 105 142 .... DEFINED 199 191J ... 205 DEFINED ao 198 205 DEFINED 21 197 ' 205 DtFINED -22 ~ 19£~· ----- 205 DEFINED 23 195 205 DEFINED 24 194 DEFlfJED ·-2s·---193---...---·· ··--·---- 102 DEFINED 152 65 212 '191 103 '58 ... 217 DEFINED DEFINED 203 . 220 181 1716 219 .. DEFINED 105 1!58 . 86 74 83 203 f10TION 212 92 205 45 222 120 123 85' 218 0 5 INACTIVE i\9 ss· 4ft .•..•• 655 6 FMT 661f 7 FHT D 8 107 9 112 11 701 12 FMT 131 13 163 14 111 15 227 16 225 17 2-7 18 - 261 19 721 20 ff1T 274 21 217 22 311 23 737 2.4 .FPIT 324 25 755 26 . fttT ;s~ 1 27 -'·-~ 371 28 375 2.9 75 76 82 Sit 87 '~ 111 116 131 130 137 lilt 143 146" 141 151 153 15, 159 16f! .... 179 181!! 5o\ 71\ 222 "" 73 ., ·~·---·· ·---~ '. -· - . ----··-..... -- o\9 82 86 . 91 90 111"' 115 48 119 1. ~ J.. .,. -..-""' ... ~. 138 11\2 .,. _ .. --' ... -- 140 ·-·-...... --. ·• ----.. ~-·-·------·· 1*51 148 152 150 158 ---... , ....... _, '--~--..' _...., __ _...,. .. ffo.~ .....,._,. .. 'l'l"f• -~.-.~~-----..,...,,_- I • I ·· 131· -~-1.34-·~ -~-· 13s-~--!4s---tss·--··---·---.w-:-··--------- 111 172 17G 178 --~~"""' -~--............... .,..,, '"'"".;oo.,.,... ...... - _ ...... ,....,.. . .,>Of ---~ .. ·--·-....._.. ,,.~ ,q ....,;t.-..otl'-' ~-.... --.....-... ,~,.-.... ltlll> .. -~ • .,..~·~ ·-·--.......... -......----., l :... . SU8RC!~UT~~[ HOURLY lEtltNT LABELS 503 30 1036 31 FKT 0. 32 ss• 100 FMT 56• 101 FMT 112 121 fMT 362 281 365 28~~ .0 231 772 300 FMT 1013 301 FMT 0 311 424 2910 0\33 2911 LOOPS LABEL INDEX 100 8 K 230 21 K 350 2F J( 376 291 KK •o& 30 K 516 311 KK 537 32 K COHHOtt BLOCKS l.£1\GTH INFO STATION STATISTICS PROGRAM lENGTH 4 2 CH LABELED COMMON LENGTH 520008 Cf1 USED 74/17~ CPt:O ROUND:•••/ TRAC~ DEf CINE REFERENCES 209 183 ts• 1s~ 213 212 223 221 34 33 36 35 89 88 176 173 177 175 182 180 204 203. 206 205 216 214 189 187 191 189 FRO,•TO Li:~GTH PROPERTIES 73 76 58 131 160 114\B 111 17~ 2-8 INS TACK 180 182 68 INSTACI< 183 209 1008 21'\ 216 68 lNSTACK 221 2~3 58 MEMBERS • BIAS NAKC(LENGTH) 14668 68 0 ID 3 MONTH 0 IN 822·- 6 Cl:) U) (1) .EXT REFS EXT REFS EltJTS EXT REFS EXT REFS 201 Ul 2 IYY (l) 1 INCR . Ul .. ---·--'Ill;~-- .. 'IIi --.. --._ -,_-...., "' ,. ... ... ----~ .. , .. -,.,""'.,. ______ . __ _ ''"""-"' ·-... ___ -_ .. _.....__ 1/11 ...,..._, ""---·-_, ·-----------~ ...... _.,.. ___ -------_, ---- ( r-·----~--·-'~ -.-·· 4-.......... -~ .. ----,.~-------· ... ----· ... -----·-------.. -·--------·-----~~~~-----.. J i t ..... -~-,-~ .. < ---------""""""'--·--'11!·-·...-...·· ···--·--- t. -·-·-_.__ -,.,_,,. ___ __,__,_ _____ ----..::..-~------ r·-··-~-·-·-~ ·---, _____ ....,....,.,....._ ____ . ..,,_,_. ------·-·----- l •• ,. .. .....__ .. '"'"""' . SUBROUTU!E DAlLY 74/115 OPT:O ROUND=•••/ TRAC~ FTN 4.e8 508 81105120. 12et5.48 1 ' 5 10 15 20 25 30 35 50 55 C••b••••••••••••••••e•••••o••••••••••••••••••••••~•~************************ C**********************~**********************•o•o•••••••••~••••••~••••••••• t•··················~·····,~····~················~························Q· C••••••o•••·•••••6:*,••••••••••*******••••••••••••••~~•••••••••****0:••••o••••••••·~ -· _,..., :-· --~ ~ ---·-~-- C****************~**********************~********~*************************** C••••••••••••••••••••••••••••o••••••••••~••••••••~•••o••••••••••••••••••••••• c c c c c c SUBROUTINE DAILY • " ·-·-·· ·~-- --· • ·-·· ------ COMMON /INFO/ ID~ lf'CJh lYYt MONTH /STATION/ IN• INCR COMMON /WINDS/ DO• SO• MWINDX• KYUJOY., NWIND.. . COMPtON IOPI DAYSDPt ~ONDP• 'fOTI'DP . • . , .• -· ~· ' --~ -·' · --··-·---·· --·~ ""-· DIF@Et\SION 1CLKC96h Tk:,.Pf96)t WS(96h IDIRNU96l• WGC9Slt !RHC96)9 1 ISLRC96h DP,~2<\h TC2~)t Sf2"h GC2~h Pf24)t 2 SDt31)t DAYSOPC311·---·--·-·-·-·-·--···-·--· ··-·---·-·--"--·---~ -···-----·.....:......- INTEGER TOCAYt HRSt Dl2~), HC24h 0Gt2~)• OAYlt DA'f2.t DAY3t 1 Rf24)t 0Ct31l LOGICAL BEGINt FIRST, DOffEt DAYONE., Al.l&OOD REAL HVINOXt MWlNDY DO 101 k : lt 24 TCKl : 1000.0 DPfK) : 1COO.O lfCK) = 1000 IHIO : 1000 StK) : 100.0 DGtK) : 1000 GtKl : lOOaO RtK) : 1000 101 CONTINUE VlNDY ~ o.u WINDX : OaO TOTDP : 0•0 TGlPIOP : D.O flONDP = 0 NYIND : 0 NMWINO : 0 ...... - ----·-------•••-" -• •----,.. ___ ~-co _, __ TttiS SUBRDUT!.NE PRODUCES SUPIHARIES OF TEHPERATURESt WIND SPEEDv ,. ... -.... --·-~-----~. WIND DIRECTI.DN., WINO GUST VELOCITIES, \liND GUST DIRECTIONS;.. REl.ATIVt-*·---·----.... , --.. ·-···-- HUHIDlTIE~h SCLAR RADIATION LEVELS, DE&l 11 01NTSt AND PRECIPITATION AS MEASURED BY lHE WEATHER \liZARDS AT THRtE•HOUR INTERVALS. ,. -.. ~ .. ~"--........ ... ,pf; ,,....,. • t:• , .... ..__.,. ----·---·---'< ~.,.,... BEGIN : .FALSEe FIRST : .FALSE. DONE : .FALSE. · ·- DAYONE: aTR.UE. ALLGOOD : .TROEe N = a·-·--· .J = 0 _ • ._..,___,~"""..-'"'"'"-...... ---... -.... ....,_ .... '!< ....... -------·~ --~-~-------------...-____ _ t c c PRODUCE PAGE ¥-EADINGS.-i-.----·--.. -----~~----·---------~----~--~--~-----------------------~ WRITE «5t1) . 1 FORf'AT UHU* --·-~ • ·-· ~ -----·----·--·---···--·-·--·-· ---··----·-.. ..._.,...,_._ ________________ ___ VRITE C5t2) lNt RONTHt lYY .2 FORPIATtlH tl57t •R&t1. CONSOLTANTSt INC.•IIT53w•SUSJTNA •• l . •HYOR.O"t-... ). ~... .,.. __ ....... ~·-' .......... -,...,.._ .. -.... .-.."""<!4 .... ---·~-------~--~-·--'llll:ft-. 1 "ELECTRIC P~~oJ£tT•I//T2t •1HR££ HOUR SUMMARY FOR •t 2 ,_.,_ • \lrAtHI.::ll STATIOfh!II//T2t •oATA TAKEN llURJNG •t . ---------------·;. '~--·-·-·---·-· ........... ...._""'*_ .... _...,__,,~--··-.._...._~---~-~~----------------..... ' ' . ( ( • SU8ft0UT!~£ CAlLY T•li75 OPTcl ROUNDs•••/ T~A~ fTN ••8 503 60 70 75 80 85 90 95 100 ----· 1QS ·~--......... ,.. lUi ..... !It_..,._,.__ ... _ ., __ -....... .............. ~·· c c c c t c c c c c c t ,. ,, c c c c c c 200 201 3 4 Y A99•• 19•~t21/) REWIND 4 READ JN Tttt FJRST CHARACTER OF THE NEXT TAPE 4 RECORD TO SEE Jf TME liNE IS INFORMATION OR DATA. o • DO 201 K: TEMPU) : vsuo = IDIRNCI<J= loiG(K) : IRHCIU : 1Sl1UKJ :: CONTINUE t, 96 •99.9 • lcaO 999 -1.0 -1 999 READ fl\;4) KEY FOR"!AT( Al) IFCEOF(o\)) 93t 5 5 !F(KEY .NE. 1Hl) GO TO 7 THE RECORD HAS BEEN IDENTIFIED AS AN •INFORMATION 111 ltNEe I : D BACKSPACE 4 READ C4w6) IDAY 6 FORHAT (T9t 12) • • THE NEXT STATEMENT DETECTS THE •NEXT DAY• AND ROUTS CONTROL TCI STATE• HENTS VHICH PROCESS THE PRESENT DAYes DATAo • • IF IBEGlNl GO TO 3 IF 'BEGIN• IS FALSE~t THAT MUST "EAN THAT THIS IS THE BEGINNING OF Tfl£ FIRS1 DAY'S DATA. • v 1DAY1 :: IDA't TODAY : lDAY BEGIN : e TRU£o·- GO TO 3 _,_-----~ ... ' ... --~ .... - ... _ .. _---····-- --......-~ .... ~, ""---..-...... -... --.. -·-··----""'"'-~-~ c ..... ~ .... --·~~ .. --~--c c t t c c THE RECORD HAS BEEN IDENTIFl£0 AS A •OAT)ll• LINE. IF THE FIRST •INFOR}1• AltON• LINE HAS bEEH READ tth PROCESSING CAN PROCEEDt OTHER\llSE., THE DATA IS lGf.OR£0 AND ANOTHER R£tORD IS READ IN~~.···-~-··--·-·~ ---" -·'"' ., -··-··· 7 lFCeNOT.CBEGINJJ GO TO 3 ~ 1 .;: 'J + 1 ' .............. ,. ,....""'_-------·,.,...,.·-'"''--·-~-....... -,----·------·--- BACKSPACE ~ READ «•h8J KLOCK~ TEHPRDt WSRDv IDlRNRih lRttRD• lSLRRD• V&RD -8 FCRMAT€2Xt A"~ x,· FSe'li' x,· F4."l.--:X9-l3t-x:t 'l2t GX• 13• Xt F4ell-· --··--·-~·-------------~ C"'""' ..••. IF P~t:liJOUS HECORDS HAVE BEEN READ l'~• AND AN ERRANT CLOtK TIME IS ; .OE1f.CTED, THt CO~RECT CLOCk Tlt1E CAN· Bit' &STIPIATEDe OTK£RV1St THE-----------·-··----------.... DATA IS IGNORED. • • . { l • __ .._. .. _ _..,.,...---r .. SUBROUTJNL DAllY ns 14/175 OP1:0 ROUND:•••/ tRAC'III D£CODEU1>.Sttl\h1<LDCtO HRS• PUN 800 FOR"lH2I~ l 120 :!.25 130 135 11\0 145 150 ... ...... ·---'"" . c c c c c c '" --. ~ c 161) - c c IF«HRS eNE~ 991 GO TO 10 IFCFIRST) ~0 TO 9 GO TO 3 I ~~~S : ICLMCI•li/100 10 XMI~S : ICLKClal) -CIHRS * 1001 FRCN : IHINS I 60a0 - TIME ; ItiRS + FRCN TIM£1: TIME + )NCR HRS ~ TIHE1 .. xMINSl : «TI~E1 • HRSl * 63.0 PUN : lUUNSl I!JCHRS eNEa 0 •lR. fiiiN eHE. 0) I -96. .. . ~~~KC961 -2400 .. TEMP(96) : TEMPRD \!SC96l :: VSRD tDIRNl96) .. lDlRNRD -lRHC96) ·-IRtiRD -tSLRC96l -ISLRRD -~G(IJ : .f.IGRD 1iO TO· 16 ..... "'~ ~ ,. GO TO 11 t : CHRS * 4J • IMIN I 151 lCLKC.U . : lHRS «~ 100) '+ MIN .. _ 1 EHPlU : TEP.PRD \I'.Sll) : VSRD tl:)lRNUl : lOlRNRD ~ tllHU.J : IRHRD IRLRtl) : ISLR~D \HlCil -•.•. ': VGRD ~--· --·-·---~ .. - lftl eEQ• ~6) GO TO 16 If CflRSTJ GO TO 3 I:l : I ~ " . • -~ -- r:t~ST : • TRUE• 11 GO ro 3 ... -. "' ~ ... ... -...... ~ ..... --,.. _........, __ ..,.._ ~-.. t_.......n-----... ·--. ,._ .... TfMPERA1'URf. P~utESS:ZNG ~ND CMRECTlON. ~ • 16 "' = . ..J + '1 -' -.• • ., ... _ .... , --. -· .. -. - . ' ·~. . PAGE. 3 --·-,~·-. --·-- -. .,. ··~ ... '""~ _ .......... -. ...... ' " -..... .. " ..... ~· ..... "" __ ,. .;. . ,..,_ --... ...____, ...... DO !6 K : 12• I• 12 ~~ :; ~ ., ~ .._ 1-3 ·~~-te· + ~ ...... "·-...... --....... -·-__ .............. _ .... ,.,.o-_, .......... ,pi--.... -·--.... -·-.4t .._ '-~-"""'""-..-......---~t>.ilo!:.1il:~"' .... If Cit ~a?~ MJ SO TO ~6 IF C'TtKPHU .,.NEe •99.•.n GO TO 26 NtWKEY :: ~.. . ·~ ··~ --_, ----.....,.~-'"' ... _....._ .. ~--.-.--................. ~'¢'1< ~~ .......... ~--..... -~-· ..... ---.·· t 165 ll NEWKEY : NEWKEY • 1 If t'tEt-l~UiE\lK£Y) nEBe -99o9) GO TO 18 .LASTl:~ :: TEMP f.~EVKE'fJ~·---· ___ .,... __ ....,. ____ . - 110 60 l(\ 20 c ~....-~-"*'~ ........ --"!, , __ "--..-....-., -.---"-·""· ···~·--•·•1 ....... _..__ .. ,~__._.,..-~ ...... -.----··:'fit--~~ ..... ·-·· ·--~ -.~< ___ .._ .. -~-~ ~,... ____ ,; l ..---""'''~'""' ... . ,. "' .. -. ,_.,," . ~ ""'"'. _, i • I l ... "'4: ~ ,.,..... • ... <'!!~ ~~ti;1· ___..,...... ... ,.,.._~, ~ t >.:'·.: · .. ··~ ::_: ::..'_ .. , ._ .. ·~ .·· __ > -'.f·~ ··~-~·y~;.~::-·<t: :-.:-:·::·;~ _.: .. ;··-._·.;~· .. ·:·.~-~>~~·.< ~-;-, :::::<;_.:·: .. ··/<.-< { l • SUDROUTINE DAlLY 711t/115 OPTt:O fCOUND=•••I TllACE. FTN tt.e see 175 . • 180 185 195 200 205 210 c c c c c c c c c c c 18 !FC~EYKEY eGT~ 11 oAND, NEVKtV e6Te I2J GO TO 17 WRITEC2e19lTOOAY~ ICLM(K) 19 FORMAT c•LCVER VALID TEMPERATURE NOT fOUND fOR THE NO.•t !2o2• 1 a 0£Y AT ·~ l~e·) GO TO 26 20 NKTKEY : K 21 NX1KEY : K + I lF CTEAPfNXTKE-.'J .Eo. •99o!1J GO TO 22 · -·· · NX7E~P : TEMPtNXT~EYJ Gil TO 2" 22 IFU~XTKET eLTe I .AND. NXTKEY eLTo 131 GO TO 21 WRITE f2t23) TOOA'h ICLKUU 23 FORKATfWUPPER VALID TEMPERATURE NOT FOU~D fOR THE HOe •• l2e2t 1 • bAY AT •• ~~.~) -··-·• ~-····-• GO TO 2' 24 TEMP«K) : LASTEMP • C lNXTEttP • LAS'rEHPJ * C CK • NEVKEY) I CNXTKEY• 1 NEVKEY))J URI1£ !2t25JTODAY9 lCLKlKl 25 FOR11AlC 11 TE~PER A TORE VALUE FOR CAY 8 , 12 .2,• AT 13 ~ l~e<\t 1 • ESTiltATED.•J ~· 26 CONTINUE NOV THAT ALL 96 OF THE 15 KINUTE ~EADINGS t1AV£ BEEN PROCESSED AS YEi.t. AS IS PCSSIBLEe THE EIGiiT HOURLY VALUES ARE. E~TRACTED. o • DO 28 K : 12t 969 12" .. -~ . --· .. lFtll ~GTe K eORe TEMPf~) eEQ~ •99e9l GO TO 28 L: CCJ•l) • 8) + CK I 12) T CL l : TEMP Cl'() 28 CONTINUE WIND SPEEDS ARE PROCESSED NEXTit" •• -.·--- ALLGOOD : eTRUEe 60 35 K = 12t 96t 12 L = tt~ • 1) * 8) + fK I 12) PAGE • ._ • .. ~-· o.;:l>,.lfo _ ....... J ,._ ..__ ........ -,._..,.-,...., • · ...... ~-...... --~~~~- '----·~-----·-·-· -·-·--" KK·-·:~K ·• 1.1" ·-·· ----·-----· ·---·~------·-------------------- 2.15 00 29 K~K : KK9 ~ !FtVSCKKKJ .EQe •leO eORe IOlRN(KKK) .tQ. 999) GO TO 29 ·~-... ' . r-·---·-·-· ··-·--· ·-·-XDIR :· FLOATCIDIP.NUCKK))--··---··--·.,·--~ .. ---·-- l ! VINDX: WlNCl + WSCKKK) * COSD41Dlft) I D~IND~ = WINDX • DVINDX 22'0 WINDY : WINO't·• I.ISCKKK) * !:lNOfXDIR)-----.-.. ---- DWlNOY : OVINDY • IIIIND't NWXNO : N~IND + 1 ·----·-------,.....__"' _ _._..... ___ _ ._, ____ _... ... _ .. _,._.,.._"" --........... ,.._,.. ... -NDUIND: NOWINO + t· · ·-·-w-· __ _..., ·-----·--·-···-----.;.._--·--------·-.------- 29 CONT l.NUE . . 225 c ------· -----·----· --~· lFUUliNO .G.Ee 6) GO T0·31· .. ---- WRllEC2t30)TODAY• ICLKCK) 30 FORMATe• lNSUF. DATA FOR WlhD PROCe ON •t12•• A1 •ti~e~) ........ -... ,.,.---.....-~..--~-~--: ,. "" -..,..._ .. ,._ .. 'W-..,_,......._~ .. ,~-...-~-·--·---- .. I· ., ' ~ •! I • .. t r1 ..J I "" -~ I \; • l ( SUBROUTI~E DAlLY PAG£.5 230 235 2.~5 250 255 2&0 265 210 275 280 285 c c c c c GO TO. 34 31 THETAPl : AlAN2CYINDY~WlNDX) THETAD : THETAP! • l~9.Q/A"COHC11) lFlTHETAD eGE. D.Ol GO T~ 33 • THtTAD : THETAD • 360eD 33 RSQURD : YINDX •• 2 • WIHDY •• 2 SPtEC : SQRTCRSQURDl/NWIND NDIR : IFIXlTHETAD) SCL) : SPEED tHLJ : NDIR NVIND : 0 \liNDY : 0.0 WlNDX : Oat' GO TO 35 34 SlL) : 10000s0 l!ltKKK~J : lOOOOeO · · ALLGOOD = eFALSE. 35 CONTINUE IFC.NOT. ALLGOOD) GO !0 37 THETAPI : ATAN2tDWlNDY.DW!NDXJ THETAD = THETAP! * 190eOIAMCONt11) IFCTHETAD eG£. OeOJ GO TO 3& THET•D : THETA& • 360e0 36 NDIR : lflXCTHETAD) RSQURD : DWINDX •~ 2 + DVINDY •• 2 SPEED ~ SQRTfRSQURDl/NOWI~D DOClDA\') :: NDIR SOCIDAY) ~ SPEED DWINDX = o.n DWlNO't' !l ~.0 NDWIND : g GO TO 38 37 DDCICAYl : 10000 SOC IDAT) = lOtlOD•D .• DWINDX : 0.0 DltliNDY = OoO NDWIND . = 0 . ---··-- GO TO 39 . 38 DAYSDlR: FLOATlODCIDAY~) MV!NDX : ftWINDX + SDUDAl't * CDSDiDAYSDIR) ,. MWINDY : MWIND\' • SDCIDAY) * SlNDCOAYSDlR) NWINDM = NWlNDH + 1 --.. -........ ~-·---.. _ ... ~ .... ~ ........ _ ... __ . .............,."""'.' ·-,~---·--' ---- ~-~.... ... ...... _ ..... ___ _ ~ ...... , ................ _ ----.... _.. ......... ... --_ _. ____ -'_ ... •* ...... >'-"\-~ ... --~.------" .......... _ • ..... ~~ .... -. -.-'ljo-o ~ RELATIVE HUH1D11Y• • • -·-<---~'"""'' ·-""" ---* ~-·~ , .. ---.... ~ 39 DO 63 K : 12• 1• 12 12 : 'K • -4 ...... ,..---.... ~-,---·----""""""----...... ~ ... -.~ .. ~ .. ·----·-""""·~ .... ~<-a._ .... __ ·----.,_. 13 = K + ~ • IFU 1 eGfe Kl GO TO 63 lfCIRHfK) eNEe •1l GO TO 63--·----· ·----··- NE:\IKEY : K S" NEWKEY : NEWKEV • 1 lFCIRHCNI::VKEl'J t;ta. •1) GO TO 55· LASTRM : lRHCUEWKEY) GO TO 57 f i i .... ..,... ___ .......,.._,~~ • l ( • SUBROUTINE DllLY 7~1175 OPT:O ROUND=•••I TRAC~ FTN \el 508 81115120& 12e15e~8 • PAGE •. 6: 290 295 300 3fJ5 ~lG 315 ~525 330 .-..~ .. -. -LJ ljoJ' ........ --._,.. ... _ -~' ....... 335 _,_._,....... _ _._ t c c -; c c c c C' 55 lfH\EWKEY eGT • 11 eANDe NEW KEY .GT • 12) GO TO 5/t ~R!TEC2•56) TODAYt JCLkCKJ 56 FOR"ATC•UtWER VAllO RELATIVE HUIUOJTY NOT FOUfd) FOR 1 l2e2t• DAY AT "tl4•~t 11 NOT FOUND.•) GG TO 63 57 NXTKEY : K 58 NXl'I(El' = NXTKEY + 1 lFCI~HCNXTKEY) eEQe •1) SO TO 59 NXTRH : 1RHCNXTK£Y) GO TO 61 59 tFCN!ir!!!!Y eLTe I .ANDe NXTKE\' eLTe 13) &0 TO !58 WRITE C2t&O» TOOAYt ICLK(~) TH£ NOo •• 60 FORHATC•UPPER VALID R£LATJVE HU"IDITY NOT FOUND FOR THE NO. •• l l2e2t• DAY AT •t 1~.4,• NOT FOUND•) GO TO 63 61 lRH UO = LASTRH + C CNXTRH .. LASTRH) · * CUt • hELH<EY)/ CNXTKET • 1 NE~KEYJ)) WRITEC2•62J TODAY~ ICLKCk) 62 FORMATc•RtlATIVE HU~IDiTY FCR THE 8 tl2e298 DAY AT •tt4.~t 1 Q ESTIKATEOe•) 63 CQNllNU£ to 65 K = 12~ 96o 12 IFCll $GT. K .ORe IRHtK) ~ta. •1! GO TC 65 . L : C«~ • 11 * 8) + CK I 12~ Hll! : lRffCK) 65 CONTINUE YIND GUSTS AND THEIR OIRECTtONSe • • 66 GUST3 :. -1 OOOeO tDG =. acuo· K = l DO 70 ~~~ : lt 8 DO'' JJ : 1tl2 ·-·-... IFCK ell • 11 eORe K •tile 96) GO TO 68 lftVGCKJ .LE. GUST3) GO TO 68 IFCVG€10 'elE• GUST3 eOR\11 VGCIU oEGe .. lefU "GO TO 68 GUST3 : \IG(Kl IF!ItiRNfKJ .Nt~ 999) GO TO 61 IDG = tnoo ---·--~ ... --.. --· ~ · · -· -~ GO TC 68 67 lDG = IDJR~tK) 68 K : K + 1-- 69 CONTINU& .. , ..,. ....... ___ "'·•· ...... _.....,._ ~·~- .,.,. .. _. ·-· -.. - • ........ ,;t,!O; ... __ ..._,_ • -- ~ - L = ''"'-1, • a~ • «K 1-ie,------·---,--.--..... -·~ --~ ... M ---"----··~-..,.--.. --. ----• .," _____ _ GCL) : fJUSl3 DGCL): IDG ~suST3 .:: -tcon.ch~-"OA·-· '-~ 1>-~--~· _.... __ --............. _,~~.~--.. ~ ...... -"'"'""' ... _........_.;.-.-. . .____...,..,..._ ... ~-.-..~~"'~--..."'~--~..--..... ._, __ ,.,. ____ : IDG : 1000 J 70 CONTINUE SOLAR RAOIATlON P.ROCESSINGe • " ... -···-·""---·-....-.-.. I i • SUBROU11Nt DAILY 14/1'75 FTN .-.a $08 81/05/20. 12.15.4ll ----.. -355 ·-·- 360 365 370-•. 375 J 385' .. c c c c DC 80 r = 12t lt 12 i2 : K' • 1 13 : K • 3 IF Cll eGT~ KJ ~0 TO 80 . IFCISLRCKJ eNEo 999) GO TO 80 NEVKEY : K ?1 .NEVKEY : NEVI<EY ""'"1 • ---~"' IFClSLRCNEliKt:Yl eEGie 999) 60 TO 72 LASTSLR : tSLRCNEUKEY) GO TC 74 72 JFUlEWKE.Y aGT • 11 .AND. NEVKEY eGT • I2) GO TO 71 WRITEC2t73) TUDAYt ICLK(K) ... "" -...... .,..,.. -.. _-")o-_..,.. "' 73 FORJ1ATC 111 LOYER VALID SOLAR llAill.ATION'VALU£ NOT FOUND A'r •ti2o2t • 1 • DIY AT •.,y~.~) GO TO 8{1 74 NXTKEY : K 75 NXTKEY : NXTKEY • 1 IFCISLRCNXTKEY) eEGe 999J GO TC 76 NXTSLR : I SLR (NXTK£ 1/) . GO TO 78 76 IFtNXTKEY tJLT. l .AND. NXTK£Y eLT. 13) GO TO 75 WRIT£ C2t.77) TODaY, ISLR 77 FORKATc•UPPER VALID SOLAR RADIATION VALUE NOT FOUMO AT •tt2a2t 1 • DAY AT 8 tl~e4) GO TO Btl 78 ISLR(KJ : LASTSLR + ((NXTSLR • LASTSLRJ * CCK • N£WK£V)/(NXTKE~ • 1 NEWKEYl)) WRIJEt2.79lTODaT, ICLKtKl' 79 FORMATt•SOLAR RADIATION FOR THE ••t2.2t• DAY AT •,t4.4t 1 • ESTlHATEOo•) 80 CONTIMUE k-• •• ~· .. •• DO 82 K = 12t 96t IF(ll aGTe K eORe L : ~~~ • l) * ft) R U.) : tS LR ¢K.) 12 ISLRCK) eEUe 9~gJ GO T0"12" • tK I 12) 82 CONTINUE. • -·~ " ·-·-- . CALCULATE DEWPOUiTS BY USING TEMPERATURES AND tU.tiUDITIESe • • NDP : 0 DO 8' K m 12t 96t 12 If'fll eGTe Kl GO TO 84 ---·-· ------·~---~ -- t ~ (tJ • !) * 8~ ~ (~ I 12l lffTCL) .tG. 1000,0 wORe HCLJ •EQ. -lJ GO TO 84 X : laO -ctHLJ I 1tl0aOJ~~ • "' · -· . --· _, ~. · -·-· · DPIL) : TCL) -!~A14.55 + 0.1~4 • TtL)) ~ XJ + 1 etc 2•50 + OeOOl • TCLJ) • MJ •• 3) + 2 -·-~~.. . U 15.90 + 0.111 • lCLl). * nt •• "1~))1 HDP : NOP • 1 TOTDP : TOTDP + DPCL) 84 CONTINUE ~. • --... --~ · ·- IFCNDP •EGo 8-l GO TO 841 DAYSOP«IDAYJ : 10000~0 TOTDP : o.o· ·--.... ··- GO TO 842: a41 INDX ~ IDAY.• 1 ' ~· ...~ --""'·-~~-~ ... -(1 ·--·-II. ..,...,...., ... ' .. l ( • ~00 410 415 420 ll25 SU8ROUTJ~E DAILi 7~1115 OPT:O ROUND=•••/ lftACt~ 0AYSOP1JNDXl : TCTOP I HOP c c c c c TDTDP : GeO MOUOP : MONOP • 1 TOTMDP : TCTHDP + DAYSDPUNDX) Ro\2 11 : 1 NOW THAT -Att CALCUl.A'TIONS ARE DON£~ GET SET UP FOR SU:1A.,' ~RU~TING IF (~ eEGa ll 60 TO 8S lF CJ e£Q. 2) GO TO 86 OA\'3 : TODA\' TODAY : IDAT GO TO 87 85 DAYl : TODAY TODAY : !DAY GO TO 200 86 DA\'2 : TODAY TODAY : IDAT GO TO 200 87 1N = N + 1 J = 0 C PRINT COLUMN HEACINGSa • • c c c c WRITE C5t8Bl DAYl• DAY2t DAY3 88 FORMAT 1 2 3 3 1 ~· s 5 6 7 -8 Uti //T2h 8 DAY "•l2•2tT65t~D~V ••l2•2tT1Cl9t8 DAY ••12.211 l2t 8 HDURcttT1"1e 8 DtW•,t22t 8 WlNO•ttT2lt•WtND 8 tT32••GUST 111 tT37t •HAx.•, T~6, 8 H6UR•t TS8t •otW•• 166, •UlND•, T71t •WIND•., · · · .. ~ --··-' -,. · .,. T76t•GUST•t T81tmHAX.•tT90t 8 HOUR••T102~•DtV•tl110t •wiNo•, T120t•GUST•tT125t•f1AX.8 /T2°NDNG TEMP• POINT RH PIR··•, •spo.•, • UIR. GUST RAD NONG TE"P~ POINT RH DIRe SPD. DlR• GUST •t •RAD NDNG: f£HP • POINT RH DIR. 'SP·D• D!R. GUST lti\D•/ T7,3(•0EG C DEG C X DEG. "'~ DE6. MIS MV •l~ IT2t131 nu-u WRITE OUT DATA. • • ... .. DO 90 K1"' :"'*'"l,e" 8"'_, ____ ._,.,"" ___ .,. __ ,,~ ......... _._"'_-·---""" -t-"'""'"" ;,o .. --~·'"'""' "'"'" * ... ·-~· D~'"" " •·· ,....,....,..,._~·-,..,. iTlH£ : 300 • Kl K2 ::; tel + ! PAi£. 4-·-~t .. ~------ 11.115 •••• -·-~ ~ --· KS = Kl + 16-----~ '~--""'"'-,...__-.. ,_,""'-_·,,.,--·""""'""' .. ,._ ·-... .... ...... __ , __ ~.-........... _ ....... ..__~~~.------ VRITEf5t89)1TI,Et ltK1Jt DPCKllt HCK1Jt DtK1)~ S(K1J, DGfKllt 1 G(KlJt R~Kll• .. 2'-" .,. .. ___ " ITI11Et TtK2)• DPUt2lt tUK2Jt· D(1<2l9 SCK2)t DGfl(2),---~ --~-~·.--a----·· .... -·----~-- 3 GCK2lt "CK2)t lt5D ,.. ·~·~'--·<\' --.... -"' ~ ITJMEt TCK3), CPCK3lt HtK3l• DtK3)t StK3lt DGCK3)~ 5 ., .,. _ _,~,..... .,._ ~~ GCK:SJt lUK~U ----·,"----·-·---~-· ·--·--- 89 FOf~ATClH tf2t3CJ4.~t It P5alt Xt F5.1t Xt i2e2t 21t 13e3t X• 1 F'~Jtlt 2Xt 13•3• Xt Fo\elt Xt I3.3t XU 90 CONTlNU£_,_.,...~_....,..,.. --;l<o-.. -... ~-.... .. --.-.... ·""-""'*~~~,'\l~ :1:<~_..,. __ _..... .. _,__~~-~ .... -·~;;:- IF«£ND .EQ. ll RETURN 9oo n~ 91 x = s, 24 ( . ' . • SUBIIlDUTINE DAILY 74/115 TUO : lOOOeO DP.tK)= 1Doo.o HlKJ : lOOC DUU : lOGO SfK) .: 100.0 DGUU: 1&00 GUO : 10De0 RCK) : 1000 91 CONTINUE . TCOAY : IDlY ... ------·-.-~...._ ____ _ ,.,_. ,,.._ .. -·.--. ---·;.;-_.~ ~ -·-_..,_,.~ IftN oLTe 3) 6C TG 200 YRITE f5•92) 470 92 FOR"'A'UUU) N = 0 GO 10 200 93 tND : 1 GO TO 16 END CARD NR. SEVERIT¥ DETAilS DIAGNOSIS OF FROBLEM 109 I 22CD 109 NO DIGIT PRECEDED X-FIELD. !X ASSUt'EDe 109 I 31CD 109 NO DIGIT PRECEDED X•FIELDe lX ASSUMEU. 109 I 4\0CD 109 NO OISJT PRECEDED X•FIELDe lX ASSUMED. 109 l ~7CD 10.9 NO DIGIT PRECEDED X•FIELOe 1X ASSUMED. 109 I 66CD 109 NO DIGIT PRECEDED X•FIELDe 1X A~SUKEo~ ~52 I . 29CD ~52 ~0 DIGIT PRECEDED X•FIELOe lX ASSUHf.Oe 452 I 3·aco ~s2 ~0 DIGIT PRECEDED X•FIELDe. lX ASSUHEOe. -~---~-.;-'" ·~--.,..----..- 452 1 ~7CD o\52 NO DIGIT PRECEDED X•FIELD& llt ASSUMED. 452 I 66CD 452 NO DIGIT PRECEDED X•F!ELDe 1X ASSUMEDe 452 I 3DCD <\53 ~0 DIGIT PRECEO~O X-FIEl.De lX ASSUMED~ 452 I 39CD 0\53 NO DIGIT PR~CEOED X•FIELDe 1)( ASSU~EOe ~ .. _ ... _ !!tao~ ...... ---. __ ., .... ' 452 I 48CO 0\53 NO DIGIT PRECEDED X .. FIELOe lX ASSUJIIIEOe . . -...... > - -·~ .. -..--• "' ,_ -... ,, "" .. _,.,. - L----· SlKBOL!C REFERENCE MAP CR:!l ENTRY POINTS DEF LINE REfERENCES 2 DAlLY 7 o\55 --~--.~,.. -..... --"' ...... f VAR:i\BLES SN TYPE RELOCATIOtl ' 2~02 ALLGOOD lOGICAL R::FS l. ~37& BEGIN lCGlCAL. REFS 4132 D INTEG£R ARRAY fl.EFS ~~01 DA'tONE LOGICAL n.EFS 2~61 DAYSDIR REAL. REFS ;-. 10 DAYSO== ···REAL ARRA't DP REf:'S. ~373 DAY! INTEGER REFS 2~7~ DAY2-.. INTEGER -·· .,..-....... . -REFs- :;2 375 DAY3 INTEGER RtFS 0 DD INTEGER ARRAY VIN.,S R~FS ""' .... .-..-., k ·-.... --l,.-c-..... 4S DEFINED ......... ·• ~1. --·~ 22 l t t . 97·-··""------16 247 DEFINtD 16 go---·-tos 1•\ Z•<\46 ll£F!NED 16 DEFINEO ~4 2&8 .. ··· . 26'3 -Dff'JNEQ ·-267 .. ·-· --~ · -~-----"-----·---· 10 11 o\C3 DEFlNEO 396 o\00 lit o\26 OEFlNED 414 11\ -426 DEF'lNEO • 417 ·--·- 14 426 QJ;Fif~ED 411 9 1~ 2&7 DEFINED 238 460 255 261 I. { • sue-.oUTlN£ CA. U.Y Y IDLES Sf( TYP£ •21? DG lNT£G£R ~400 DONE LOGICAL 3742 DP ~ RCAL 2~~~ DWINDX REAL .2,51 DWINDY REAL 2501 END REAL 2377 FIRST LOGICAL 2~31 FRCN REAL 4052 G REAL 2~64 GUST3 REAL '162 H lNTEGER 2372 HRS 2502 lCLK 0 ID 2415 !DAY 2'16 lDA¥1 :>46S IDG 3142 IOIRN 2422 IDIRNRO 242.7 lHRS 21\30 IHINS 1 XHH 0 IN 1 ltiCR 2414 lNDlC 34\2 IRH 2423 IRHitD 3&02 !SLR 2.1\24 lSLRRD 2416 ITIH£ INTEGER INTEGER INTEGER INTEGER INTEGER • INTEGER INTEGER INTEGER INTEGER INTEGtR trnEGER INTEGER INTEGER I.NTEGER INTEGER INTEGER INTE.GER INTE.f»tR 7~1115 OPl&O ftOUNO:•••I tRAti •• RElOCAllOh ''" ... e 50ft 81/D5120. ARRAY REFS 1~ 3•1\~6 DEFlNED 24t ARRAY ARRAY ARRAY ARR·I.y ARRAY ARRAY ARRAY lNFO l~lFO ~il\TION St.T!ON REFS 16 RtFS 11 REF$ 219 REf'S 221 REFS :t55 RtFS · · 1~ REFS 125 REFS 11 REFS 32~ R~fS 14 459 REFS DEFT~t' .. ~l.r.S 148 276 14 .. RtF$ ~~., REF :.a. REFS 266 . 1~ 115 106 14~ 2!'7· 11. 298 8 95 ft -,(~ ft --~'7 DEFINED 8&'~ DEFINED 9~ REFS 336 REFS ll DEFINED . ., lO- DEFINE~ 393 248 2~8 DEF!NED· 118 DEFINED 1•446 325 387 lll :127 1~2 150 343 122 304 96 396 ,.3 3•1J't6 25S 253 472 .. 153 12'\ DEFINED 335 388 128 12.3 15.1 363 123 !154 255 399 319 217 la\8' .. DEFINED DEFINED DEFINED G£FINED 25 DEFINED 3*~~, 132 1~0 152 DlFXN£0 17~ :no 256 lf12 328 327 REFS 13.7 DEFINED 216 1:!S7" 1~6 125 DEFINED 108 REFS 123 DEF I~ED .122 · 'lEFS · · ·-.12~ DEFlNEC 123 ~ ·~ ·~ -· REFS 8 REFS 8 53 REFS --· .. • 8 1. 26 REFS ~00 403 DEFINED REFS 11 ~80 2e3 ... 313 . DEFINED 72 138 REFS 1~6 149 DEFINED REFS 11 347 35G 376 ··· ··· :ne · DEFINED 7! ·• - 399 284 1~9" 108 351 139 11)6 ft~FS !39 150 DEFINED 12.15.48 336 20 219 221. ~2 335 318 DEfiNED 144! 1~5 1.5~ 82 185 DEFINED 261 ·US 330 330 2.94 302' 360 150 PAGE 339 2S? -- 2~8 155 ~3 326 21 145 H6 161 . 106 19~ l31J ' .. 262 ~!8 338 295 -· ._,. 361 3&8 • •!a 2&3~ ~-·' >i!' .... ,t"' 2&>\ _, -~m"--lol.,~. ~3'?"~·""'1:'.,... ,~.::::;.. ..... '1:1 313 .. ..--,.. lo\7 1&4 1!3 ~27 l\5 :!fi'f -·~ ~&6 .. 311 -~-·- 364 t--.. ~-.........--~...... 2 'IYY-··~ t~""-~ .JER INlEGER INTEGER INTEGER REFS 3~• .. 46 . DEFINED ~·~~. If!\ t)-.... -.. -REFs·---·· S -53 · ---....----·-·------· ----.... · . ~ ---·~~,. .. ~If':!/ .. (;----~~,;$~~<~...,...... ,, 24\35 11 2436 12 2437 13 2412 J 2~67 ..... 2-\66 JJJ 2403 • K REFS 1£~ 172 203 279 286 311 3~3 3~6 353 316 385 OEFINEO 15~ ~0~ INTEGER -·--' REfs··-·-~-· 112·~---286 -·· ... _ · 353 DEFINED ·· 162 ___ ~ ~17 -~--~4~---. INTEGER REFS 184 297 363 OEFIN£0 1&3 278 3"5 ! INTEGER REFS 1 &0 20' 213 312 33-\ 377 3Q6 ! .. -. ·-·---.. ·-·-.. _ --· -----· i\1l9 ~.u-.-oEFINEO -.,_ ... T . ...__ 160· .. -· ~22 "-~·-------~-·-·------ • INTEGER DEFINED 3a2 . • INTEGER DEFINED 321 INTEGER -·--·· ·--·.-. --~-·· REFs:----19 --· ··-"'"20 -----"21 ___ . 22·--· -··-23• .• -... 24 . 0 '""25----. 26. 68 69 70 71 72 73 162 163 1l64 1•1132--.. _~ 194--. .......... ---...... -........ ..; ..... ,,.,_ .......... ~--.. ~ ... > ·~~·~ .. --.. _ .... _l'f'l> ... _.,, ··--·---........ __ ~--. 165 16£. 17~ 179 !SO 1S!i 2~203 ---· 2oi\· ·"":'--2as ·---'213 .. --, 2t~·-k"'~l5·--··'- 2~7 277 278 279 280 281 287 291 2.98 2•302 r-··· 304 2•311 312 31~ 2•323 324 l :: t ( • • ;· '. • ' 0 • ._... -• F :;· • • • •,. ' "• • ~ ~. . . . . ' .· .. .. . .. .. ·:~ .· . . . .... • • .• • • ~.t ' • • ' • t ., I •, • • •, "' ~ SUBROUtiNE DAlLY ~!ABLES SN TYPE 'fl\/115. CPt::o ROuatD:~·•I·TRAC. REtOCATIOH 2•325 :,2.6 346 .547 377 378 461 462 (; 202 212 384 ~56 2413 HEY INTEGER REFS l'e 2~.:;s tcK INTEGER REFS ~Hl 2~<\6 ~KK INTEG£~. ~EFS 2~ "'6 2460 KKKK e INTEGER •UNDEF REfS ~44 ~417 KLOCK INTEGER REf'S 115 2475 Kl INTtGER REFS l\lt3 2<\77 K2 INTE·SER --__ ..... ~_........ ,_ .. . -~i:FS • ..... a *446 25CO K3 INTEGER REf'S S•~U. 24~'\ t INTEGER REfS ~05 378 ..• -2•387 312 334\ 21\41 LASTEMP INTE&ER REFS 2'*192 -2o\G2 LASTftH -INTEGER-"--REFS~ 2•3(!2 2470 LASTSLR 2426 KIN 37 t'ONOP .... ~ONTM ~ 1& f'WINDX 77 M\IINOY 2111 N 2457 NOIR 2472 NOP 2452 NtlWIMD 2440 NE\IKET __ ,._,., __ , _..., ... ·-. 2UC NMWUl.D -2407 NWIND 100 NWINDM 24\3 NXTEKP ?4~2 t.XTKEY -2463 NXTRH 2471 NXTSLR ~102 p ~242 R · ·· ,. 2"55 RSGURD 4022 s - -31 sn····- 21t56 SPEED 3772 t If:TE:GER INTEGER INTEGER INTEGER REAL REAL INTE.GER INTEGER INTEGER INTEGER INTEGER -~---.. -,. • U.ITEGER lNTt:GER INTEGER lhlEGER INTEGER '-- INTEGER INTEGER REAL lNTEt;ER REAL ·REAL REAL REAL REAL REAL •UNDEF ARRAY- ARRAY ARRA.~ •. ARRAY ARRAY OP INFO YINDS VINOSn WINDS REFS 2.•368 REFS 132 REf"S 10 REFS 8 REFS 9 REFS • 9 REFS 421 REFS 238 REFS 392 REfS 223 REFS 167 --·--· 28~-~.· "2&286 D£ftr:ED 166 DEFINED 31t TtEFS ·--222 REFS 9 REFS 192 -. ---··----REFs-·~-. 181 2•297 .302 DEfiNED 179 REFs· 302 REFS 368 REFS 11 REFS---·--·-14 ··· Rt:FS 235 REFS 11 VINDS · R.EFS -.• '9 REFS 237 REFS 11 ' ~57~------·-· REFS 11 205 DEFI.NED 327 3<\8 383 ~ll3 276 . l!EFINED ·· DEfiNED 217 t1Ef"IN£D 6}44 DEFINED l;;EFINEO 237 388 377 DEft NED DEr.'INED DEFINED 144 t\0~ ~3 17 . 17 467 .255 3CJ:i 1-5~ 1£8 330 354 386 46~ :Sl 0 -75 214 218 .. - 108 445 "44 •~s 238 ~·389. 386 169 .. 28~ 351 145 DEFINED 26t 26, t)£flNEO OEFlN£0 4GP 331 358 457 DltflNED • 320 ~20 s-'"' 2.13 393 DE.FIHEO 32 DEFINED DEFINED 1\6 23& Df~FIHED. 223 2•172: 334 2•368 458 18 331 DEFiNED . DEFINED ·- 313 DEFINED 115 "02 268 • 269 . ·-. . 344 370 <\59 67 343 215 421 470 252 383 259 392 2~5 282 ~·302 167 DEFINEO· 169 349. -·--· ~50 -·-.• 2•192 351 ' . .. -2•35~-.... ~ 281 22' 235 270 G>tFINED DEFINED 192 182 ---2•18- 359 360 180 291 l.lEFlN£0 295 DEFINED 361 3•446 DEFINED - 254 DEFINED 3•446 DEFINED 2&.2 DEFINED 270 192 ~.61 2')2 ,. '26··-·--- 23<\ a•a 33 - 292 .•..• 2~t363 358 378- 253 -~ • • 11 ---u 268 ·---• 23 269- 235 .3.•·\4£ 237 DEFt NED'--· 251\ DEFINEO 256 DEFINED 387 11•389 165 169 181 1~6 192 3~9 222 '" 29~' 368 359 19 182 3-\$ ~·376 '460 l:Gl --. ~~ 37! ···--- 336 213- ~83 2•3&&!'~· 295 " 4\6! 2&2··-...---- i 203 2642 TEMP 2420 TEtn1RD 245-\ TKtTAO .RErs~---t3s-·· - 68 1,6 233 233 249 •. 168 135 DEFINED 236 24\9 DEFINED .108 -····· ·~ ~ --¥·--~ ~-~~ .. --.._.........._ -- --2453 THt:TAPt. 2432 TUtE Z<\33 TIMEt . . REAL REAL REFS 232. DEFINED 231 REFS . · 2:Sr REFS 126 RE~S 1~~ DEFINED 128 !25 DEFINED 250 251 230 .. 126 .. -""' .. '~ ............ ~ 252 . ..,.__. . ...,.., --~-'~·.. ... .. """'.....,; ~-·~ ........... ~ ~· l ( ·. • $UBAOUTUJ£ DAILY tABLES sw TYPE 2371 TODAY INTEGER 2~0b TOTDP REAL ~a TOlHDP REAL 3302 t.IG REAL 2•25 ,WcRD R'f.AL 2qos t.IINDX REAL 2404 YltlDV REAL 3t'02 liS Ri.AL 2421 WSRO REAL 2'\73 • -~EAt 2.\'7 XDlR REAL ~-3~ XlUNSl REAL FILE NAMES HOD£ 'UP£2 F~T TAPE4 Ftn lAPElS nrr EXTERNALS TYPE A'!CO.N REAL ATAN2 REAL ~ . coso REAL EOf REAL su:o REAl -o.:• SQRT R.t~~ INUN£ FUNCTIONS TYP£ FL04T REAL IFil INTEGER 74/11! OPt:tJ ROUND:+ao/ TRAC. RELOCATtOf: OP .lRJtAY Af!lRAY WttiTES 36~. - READS VRITES ARGS 1 2 l.lBRARY 1 LIBRARY 1 REFERENCES 231 23Q--· 1 LIBRARY l LIBRARY 218 77 220 235 ftEFS 30.\ DEFINED REFS· REFS REFS 15i REFS RtFS . 2~1 REFS 2~0 REFS 147 REFS REFS REFS REFS 17- 370 75 51 2<\9 •. 248 ·- 268 269 -· - 25~ 1~ 354 &Jf. 393 10 11 14C! 218 220 11 136 3•389 218 129 185 8" 53 AR&S OEf LINE ' RtfERtNCES'" " ~·· 1 iNTRiN 1 INTRlN 217 :1!67 236 252 STATEMENT LABELS OEf liNE REFERENCES 1£61 1 F"T 52 51 1£74-2 •. FHT sq 53 -·--· ···· ·• ··· ~-•· · ·-·- 123 3 75 90 98 105 !722 4 . FMT 76 75 FTN 4•8 508 81/05/20. 12.15.48 PA6£.2 <. 17~ HlS 194 227 28.7 '29! 3Gt\ 370 ~11 ~1-U7 ~142 415 ~18 466 -4GO · DEfJNED 30 39~ 391 ~01-·--· 403 DEFINED 31 403 32.\ 2•325 326 DEFINED 11 lt\0 . """ -· .,.. ·::.· 151 DEFINED· 108 219 230 23~ DEFINED 29 ~ 219 c· ... -"'-~-~.,l ..... 221 2~0 234 DEFINED 28 !20 216 218 '220 DEF!PJED 59 -1!6 .....,...... ....... ; 1~7 DEFINED 108 Dt:FINEO 388 -.. -. ·~ ,, ... -... -.a.,__ -·~ 210 DEFINED 217 DEFINED 128 19ft 227 287 298 30<\ .35~ --"'""'"'"*''"1 108 MOTION 61 83 107 426 446 468 119 153 1J ·s----· INACTIVE ·-78 · ----11---·-----~ ··· ·· · -·--· "'"'··-· ""'~-... .,. ___ ,..___ --------·---.. _..., __ ~--· 1732 6 fi1T 85 84 153 7 1~5 78 . 1750 · 8--FMT·---·---'109··-·--108 ---~----~-·--·-_ ..... ··-··· ..... _ --· -·-··· ··• ------------· .. ·---·---...---~ 173 9 122 118 ~as 10 132 111 -..~.,.. 254 ··tt·----·---·· ---1 .. 4·---· 132-"'"----· -~· -·~ ---·-····-···-----·---·-~----- 321 ~6 160 141 152 473 3~4 17 16? . 172 ,.-----35&---ta·---· -----· .. ·172----"'·~:~.t:.a----·-------------------....__ ____ ........... _ ... __ ..,._ _______ _, I t t 1772 19 FAT 175 174 311 20 179 170 374~-2r-------.--teo--· tal\----~·----·----·---------··--------.... -......... -.... ----.-....... .\06 22 184 181 2010 23 fKT 1S6 l.BS ,----··-. .~ .. ---· .-...... ~ .. -,..,_.,.. . .,. .... ~_._, ___ .,_""".....___........__...._....._ .. _ .. ,,.. ........ _____ .__ "-"'-~------__ ...._._., _______ ,..._._...__,~----........... , ............... .......... J i .,. ...... -~-• . SUBROUTJN£ DAlLY • T£f'ENT LABELS ~21 :!4 ~'026 25 F"'T 436 "26 t\62 28 542 ~9 20~3 30 nrr 557 31 - 574 33 .. 623 34 633 35 655 36 704 37 ·-721 38 ·~· 1~ Q 39 760 Sit 7.f2. 55 2\.'151 56 FMT l 005 57 1010 sa 1022 59 2077 E.O F~T 1035 61 . 2117 62. nn. 1DS1 63 1~75 65 0 6£ INACYlV£ 1140 67 . 1143 68 0 69 0 70 1.214 71 - 1226 72 2134 73 ~HT 1~41 74 ( 12t\~ 75 I • 1256. 76 2152 77·-· fKT ~ 1266 78 2170 79 FftT 1302 80 \ l '526 8~ 1.~03 81\ ·---·"'-1 .. 53 AS .. 1~61 86 1467 81 2206 88 ~ FKT {. 2326 89 FMT .t 0 90 ... ~ -·· ~ 0 91 , . 2341 92 FKT 1633 93 ,... .... _. 0 101 ' 11 200 D 201 1763 aotr FMT 1,20 841 i436 6<\2 !!""-""-'· rt .... .,. -.. -·"-.. -.--. ~..,..: ~ .... ... . I t 7-1175 CP1:C ROUND=•·•I TR At. DEF LINE REFERENCES 192 U!3 195 lCJI) 197 161 165 206 .. 202 22.4 .~15 228 227 PAG.E .~ 117 188 230 ___,_ -~ 22£ . ___ .,,,,......,. -~-.,··-.... -~-...->~>-------- 234 232 2~3 229 2-£ 212. 242 252 250 261 247 267 ··---.260-.. --~---·-·------·---·--- 271!1 266 282 2R6 286 283 . 286 287 291 2115 :!92 297 297 294 299 ~98 302 2.,6 305 30, 307 276 31~ 310 327 219 311 .280 290 323' ~ ~ • ~ 32, . . 325 ··~-·-329 322 301 318 330 331 332 339 3"CJ 353 355 35f! . - 321 353 ·-·-... --·-.. __ ... ~----..... --,.,.... ... -. -~ ~ ... -·--·-·---.. -~ _,."" ~·-""'-.,. •' 350 354 352 ·-·---· 363 360 359 363 365. --·36~·----·-· -·---··---~ __ ,.._,.._~~~'-..,...,. __ , ... "" . ., . ~" ...... _,,. __ .., .. -"\~ 368 371 -. 373 ~79 394 414 ___ ,_- 417 421 427 452 454 362' 37fl 343 .. ·--· .. 346~. --··· 347 ·*-·--357 ' -· 361' ..... _- 375 376 38'l 385 387 409•-~ _._... ~---· ,_joa....__., ·---·"'·-• '*'---~·--.. ·-_, "" ------~c .. --,.. "t10 413 426_. ___ '"""""' ·"'--.. -·· ............ _ ... _ '-··---,_ -· __ .......... ~.-.. ,,....._..._. ....... _ .. _. __ ,. 446 ~42 { ·-·--~ ' ~ ~-....... "' ' .,.. ·-~ •"'1\l: ~"' ---.-.... ...,. .......... -. ~ 'l . ~ c --· ·-< ... ·----------:i I -4.65 ,_ .. 56'----·- 468 .. ·····-,--····· .·~-.---... -···· =. <I ..... -..~.-~-..... ,.,.,. __ .....,.._. __ .. ___ .....,,._-·--·"*"' .. ·-~--..,......_,_.~·-· ----------. -~ 46, 472 27 &1 74 11.6' 399 404 77 "'l.s-·----· -~--· 416 • 419 67 115 ___ .. ~-·-. !95 398 _____ ...,_........, .... , ___ ~.....,-.,. ... ---·.,---.,_, .~---~------ 471 ... '(~ I --~~ i ., --~·--I ' 1· 74/175 OPT:O ROUNDc+••l lltAC. DEF LiNt REFERENCES ~56 FTH o\•1 508 LOOPS LABEL INDEX FROH•T 0 LENGT~ PROPERTIES 5 101 I( 100 201 K 325 26 K 443 ~8 K 471 35 I( 504 29 KKK 7,1 63 K 1056 65 K 1UD 70 ""'"' 1112 69 JJ 1175 80 I( 1307 82 K 1335 ~~ K t ·~:1 90 Kl 1571 ~1 K COI'MON BLOCKS Ltt-GTH INFO STATION WINDS DP STATISTICS PROGRAM LENGTli 4 2 65 33 ~M LABELED COMMON LENGTH . ' 520QDB tM USED ts a7 67 7~ 161 191 202 206 212. 2~6 215 224 276 30'7 ~n~ 31-\ 3~1 339 322 3S2 343 373 375 379 384 39- 442 ~5.\ ~56 ~65 MEMBERS 278 JNSTACK 22e IN STACK 1148 228 INSTACK 1458 ~18 1138 228 INSTACI(. 638 368 INSTACK 1108 228 INS TACK 518 OPT 658 278 INS'Tt 'K • BIAS N'HECLEN6THJ 0 ID UJ 3 MONTH U) ~ IN tll ?) DO C3U o3 MWINDY Ul 0 DAYSfJP CSU .. 2728 1508 txT REFS EXT REFS ~OT INNER EXT R£fS EXT REFS. NOT INNt~R EXT REFS EXT REFS 1 INCR IU 31 SD t31) 6~ .. \UNDM (1) 31 MONOP U) PA&E .• " ... ..,... ___ . .,._..,.. R 2 lYY fl) 62 HWINDX Cl) 32 TOTHDP fll . -·---.. --~--.. -----·-<to• --·-""'"~ ...... -~ - - -,.._,_ • •• _ .. ..._._ "o' •·••#"• ........... '"'---; . .till_,...__ ~ ... ~ ......... .....,.._ .. -.......;,. .. ~ ... ,..,..... .......~--........ __ -"'~-.,...,. ..... "'"'-~ ---· -~-,__.... _,..-.. --~· t ~-..,.,, -----·--.----.. -----.. ,..."' ... ,. __ -__ ...__, ....... -.---··-~-..; ... -·---..: ... ______ .,,_.., __ -,_""' .,voo,..·~--... -c-.."~-·-·...,~-.,.y __ ..,.~------ \ SUSROUTI ~£ ~Ofii"UU.'f 141115 1 10 20 25 30 -~-··- ..... ~.ll!lt·"!!o<--· .. - C•*••••••o•o••••••••••••••••••••••••~••••~•~•~••••••••~••~•~•••**************** C•••••••~*************e••••••~••••o••••••••o•••••~••••$•••••*********•oo••••••• C•••••••••o•••••••~********************************O*************************** SUBROU1itN£ HONTHl Y C~MKON /JNFO/ lOt lMKt lTY~ ~ONTK /STATION/ !N 1 /WINDS/ DDt SOt t'lWlNOXt :MWIMDYt NPUllND IDP/Dl YSDPt 1 MONDPt lOTftDP ~~ ~ ---·-·· ·····---~ iNTEGER DIRt RHt TODAY• OJRG:S'ft tiOXRG~'!, PREVAL(2t16h l ROWt OC16)t DOtll) REAL lASTPt lit. TEMPt J .. tLllLTt I'M~AUT t A1UNDX• MliiNDY t MONTHPCt 1 ROS£U6t1') • CC8h SDC31)tfl~YSOPt311 LOGICAl. BtGINt DONEt PAS~1 .. .....__~.· ------.--.,.....' ,,....,.., ~ ...... ~· BEGIN :: •FALSE. -~. -. --------· ___ _._ ___ .,_>1 ______ ,_......, ___ < -- c c c c c DONE : aF ALSE • PASSl : eTflUE. DEVPOIN : TOT,.DP I "ttlOP DO 100 K : 1t 1& PREVALUtK) = Q PR£\<ALC:2•1U ::;; 0 no 100 KK = 1, 1 ROSECKw KK1 : 0.0 lOD CONTINUE PRINT PAGE HEADINGS. • • WRIT£ t5e1) 1 FORJUlUHi) · , 2 \IRlTEt593) lfh "ONTHt ITT . ·. ·· 3 FORMAT UH /T41, •R'f4 CONSULT ANn\, INC. •J/T31't •sUSITNA HYDRO•• 1 •ELECTRIC PRO.JECT•/IT2t•MONYHLY SUMMARY FOR •w A7t 1 • STATION•'· -~ ' ··-.. ·--·· ~ ·-··-·-·--, 2 1112t•DATA lAKEN DURING 11 tA9t 8 '1 198 .. I2///T32t•RES.•t 2 T39t 3 •5tEs.•. T.,,,.Avs.• ,Ts3, 11 MAx.•, Tso. •J~~~n.•.T9),11 DA'Y•s•ITa• ~- 3 •HAXellt 116t •KtN••t ~ T21\ t "HEAN·· T32~ 11 WIND8 t Tl9• tatUND"~~4p T~6t"Ulk0 8 tT53., •(iUSt•. 'ST£09 -•r •• "' • --•·•,••·••-• , • ..,. ..,. .,. • 5 8 GQST~eT65t5HP 9 VALtT71t •H£AN•9T17t•~EAN•, T9lt•SOLAR•If2t 6 8 DAV 8 918t•TEMPe 8 t 6116, IJ •TEMP. • .ta•, •ttMP• G' T32, •oiR. •,T39• •spn-. •, T,.s ,•spo. "~TS3t 7•DIR•••T60t 7 18 SPD.~t16Gg •OUt• ,t72t"RW1 tT18t 0 DP•tl84• •PREC1P 111 t t'93t •EN£RISY 11 t 6TlOO,t•DAV 111 1 • · -· -.......... ~-· ··•· · ··· · -·-.,.~··· -• · -..-. •••· -,·-"--· -·-·-· ,~-· .. ~, · 8T8911 DEG c••T1.6t•DtG C111 tT2\e 18 D£G C111 tT32t"DEG 18 tT39t 8 HI.S 11 v14Gt 9••us•,ts3, 9•DtG8 T60ce•M/S•tTl2t•.l•tTl'lt•DEG t 11 9TBEi·t"MH 111 T939 111 VHISQM"/" -·--·--· 912t102C1H•)) -------.. .... ---'!""'·-.. ---··-!.---- <~ -~ .;•n~·--~~lflO-.;.--. ~-.. .--·-----.,..,~ ~ -... _ ............. .,..-...... -- ---~-- -~--~-----.~ ... ~--~..__.__.... 1 ... ·------,~ ... ~~-----..,-. i REV!NO ~ NMEANT :: 8 GUSTO : 0.0 ••• ,, '"' '!! ....... ~ ... ""'"'"'"" .... '"' __ "_ .... -!'[ ... --· .. .,..,. _.,.,......,...~~-"!"'"-~-....,. ..... __ _, ... ~~··-· .. -.....-. GUSTl ;: D•O GUST_2 ___ : 0" 0 GUST3 : o.b GUST~ :: 0.0 BlGTEHP : .. 99.9 t J- _"'...,.....__.__ ---'*---,;;<_,._. W1...0--~-"'!_...,.._, ______ .....,. ___ _ l • SUBROUTINE ~ONfHLY 741175 FTN ~.8 508 £0 65 70 75 80 85 90 95 ,.. .. c c c c LILTEMP.: •99•9 BlGGUST :: •99.9 \IINDX = o.o WINDY = o.o SlGMARH : o.o SlGMAP -o.o -BIGBJGT -•99e9 -LillllT -<t99el!f -MVINDX -o.o -MWINDY -o.o -BIGBIGG : •99o9 MONlHRH : o.o MONTHPt' : o.o MIM£ANT : OeO TOTSLR: OeO flSLR ~ 0 HONSLR : 0 AVE : o.o AVE Pi ;;: o.o NROS£ : 0 t\ t~ADHtS) KEY 5 f•JRMATfAl l 1Ff£0Ff4l) 24t G E IFiKEY eNEe lHl) GO' TO "1.0 ·-~-··--• · ···· BACKSPACE 4 READ C4t7) lDAY ~ . . 1 FOP.I4ATCt~, 12) -...... _ -... .. .... ' ,_,,.,.... --.... ~ ·•<" -· - lF CBEGlNJ GO l~ 4 IDAY1 :: IDAY TODAY :: tDAY BEGIN : eTRUEe I~CIDAYl ,EQ. 11 GO TO 4 lEND : ~iDA Yl • 1 ~ · --... bO 9 K = 1• lEND WRITE «StG) Kt K 8 FORMAT tT2t tta2t T48t 8 lNFORHA'UON "lSSlNG•t T1U1• 12s2.)-· ~, .............. --""" .. 9 CONTINUE GO TO ~ --''If"" ... ----· -~ .,..~ .. - --.--.. jOO!o,-jllj. --... .... ,!b' •. ~ ""~' ,. ....,., __ ------·-___ ,.....,"'"''" . -"~-'""~"''- .,. -................ ~--....__.. ____ _ -~-··----·- . ... -.. ~-· 1 UJO t. -· ~-. ' ·-· .__"4_,,_. .. _,..,.. _,. ___ ""'-~---------· c t • ~·-"' --.,--,_ ~ ... ~ .... ...,.,._,. ..... 105 10. IF C.NOT. (S£GINU GO TO 4 BACKSPACE-..··-·-· ~-··· ---~ ·-~ ·--· -·-----,-- READ C~"ll) ItLK• TEMP• SPEEDv DIRt Rtlt PREtlPt ISLRt GUST 11 FORPiAfCT3t Ht 18• 'F5e1• T!~t F~.l~ T199 13, 1~3• 12t T26t F4e1t t·-T31t !3" T~5t F<\.1)--~--· ---..... -·--·4 --~ .. ·~--·--~------- --··-.. -·. -~=------·.-·----··----------~·--~t I ·----·' ____ ,_.._, _________ ....; lfiTEf'IIP eEG111 •9~e9J GO TO 14 lf(eNOT3 llEHP .GTe BlGTEflPJ) &0 TO 12 r-.... ---~· -------.... ·-~-.. l 110 . ~~~!~~;5.: (~i~;~;-:G~ • -;lG;;;~,;~ GO ~;;-1-2------·---·-· --···--------------·-.,...,..... ____ !. 61GB!GT : BXGTE"P • • f 12 lFt.NOT. CTEHP .t.Te t.lLTEf'P)J·Go 10~13··----· ----···-__ ...._ ____ _ . ___ ... ______ ""_~_....,__~~ .. LILTE"P : TEMP . lfleNOTa tLl!..tE,.P e(.T. LilLILTU GO TO 13 --·---~------~~-~~~~, ' • vmaR47tU1lN£ Morna.a:r 74/11! OP1::0 ltCJUND=~·•I TRACE. fTN 4al 508 • PAGt. 125 c 135 c c l<\5 c 150 c c 155 ' . • • -.., ..... -··---~-~ ... . - 165 ----· ........ ·'} 110 LILL!LT :! LILTE-~P 13 DMEANT : fBlGTEHP + LILTEHPJ I 2 14 If CSPE~D eEG. •1e0 eORe DJ.R .Ea. 999) GO ~0 15 AVE : AVE + SPEED l-1 142 AV£" : .AVEn + S~E£0 •. ·~*··-·. -·---·----·-----... -··-------- XDIR = ~IR X : SPEED $ C~SDtXDlR) Y : SPtED ~ SlNDtXOlRJ ~IND~ : VINQU • X ~JlNJ}f : WJfi!Q.y + 'f Will Nil : NWIINO + 1 ~ ~QJNDX : MMINDX + X •"WINOY = f.l{ltlNDY -+ Y NMVIND ~ MMVlNU • 1 I~fSPEED eGE. la9J 50 TO 141 K0Lf4 : 1 G<! TO 1ft'l IF4Sf'EtrD oGE11> 3,,0) ull Yt> 1~2 KOJ.Pl :; 2 GO TO t•7 IFCSPE£n aGEo 6aU GO TO 1<\3 KOL'M : 3 G.O Tt) 1~1 .... _ -~ ..... "'"" -' 143 l~tSPEEO aGE. l~aU) GO V~ 14• r•OLPI :: ~ ... __ , _____ , .... -.. -.._,__. .... -~ GO TO 1Lo\7 _ .. ---·. ---·-··-----· ~·--·----~~~---- 14-IFISPEEO aGE. 15e0) GO TO 14~ KOL" :: 5 GO TO 147 t~5 IFfSPEED .GE. 20.0) 60 iO 1.4&··-· KOU4 : 6 GC TO 147 --... ---.. ·--·-- 1~6 KOLM : 1 141 IFCDIR e&Te 11 .AND. OJR eLE. 349) GO TO 1410 ...... ., ....., ---. -... ---.,-~~>~ "'"'"""' ._ -_.,__, __ _ ROY : .... --t~---.. ··-... -__ ,.,. .... --·-......----....,_ ... ,.. %-·-· ,..,... .... ..,..., ~ -' --· --... -.... ,...__,~-.. -·-............. _ -,,_,.. .. ... -.-. -~·~"·~ ,._.,.._. ............... ___ 1410 1411 11\12 PR£VALC1t1) : PREVALC1t1) • ~ PREVALC2tl) : PR£VALC2t1J + 1 GO TO 15" -~·--c., __ ... ____ ......__~-... ·-··--· .. ··-~·· -c ··· ·- IfffJ!R ttLEs 11 .o~,. DIR eGT • 34) GO TO 1~11 ROW : 2 -· . ~ ~--........ ·~-~ -..--... -·-'''Ifill,, * ~ PREVALt1~2) = PREVAi.Ut2l + 1-~ --·--·---~·--· ... ·-· ----·· __ ,__._ __ c-.--.. -.. ~·~~~,- PREVALl2t2J = PREVALC2t2J + 1 GO TO 15 lFCDtR eLEe 34 •OR• Dift eCile 56» GO TO 1412......-....-· --·-·---··-.._,._,_ ---···--c·-, · ..... ~.--,. -----------, · ·-~ ROW :: 3 PREVALC1t3J : PRE~ALCl~l) • I PREVALl2t 3) = PREYAlC2t3)-~" 1 ·--· ·-·-~· ·-·' -. GO TO 15 IFlOIR •LEe 56 e6Re QJ~ .GT~ 79) GO 10 14J~ -_.,_.,..,._ ~-. __,__ --~·-~ .. ·--.. -. ,_ ----- _ .. '·--~-~_;",.,_ ....- ,. \ '- t • SUBROUTlfl£ "ONTHLY FTN 4e8 508 PAGE •• -·-·• .. 175 1413 180 1414 185 1~15 195 1417 --_,.., - 200 1418 205 1419 210 1420 215 1421 . ---·--'220 1422 ~----- 225 ~· -'""-·~-----. --·-· 1423 ROW : 4 PR£VAL«lt4) ~ PREVALClt~) + 1 PREVALl2t.) = PREVALC2t~) + 1 GO TO 15 JFfDJR eLEe 79 eORe DIR eGTs 101) GO TO 1414 R.OW : 5 PREYALf1t5) : PREV~Lct.~l + t PREVALC2t5l : PR£VALCit!l + 1 GO lO 15 IFCDIR elEe 101 eORe DIR eGTe 124) GO TO 1415 ROW = 6 PREVALflt6l : PREV.Lf1t6) • 1 PR£VALC2•6) : PREVALC2t6) • 1 GO TO 15 IF«OIR eLte 124 eOR. DJR eGTe 146) GO TO 1416 ROV :: 7 PREVALC1t7l = PREVALfltl) + 1 PREVA~C2t7) : PREVALi~·itl • 1 GO TO 15 IFCDiR eLE .. 146 eGRe DI~ .Gt. 169) GO TO 1417 ROV : 8 PREVALflt8l : PREVALC198) + ! PREVALC2t8) = PREVAL¢2t8l • l GO T~ 15 J:FCOIR eLEe 169 eOR. DIR oGT • 191J GO '(G 1.418 ROY : 9 PREV£LClt9) = PREVALC1t9) • 1 PREVJLf299) : PR£VALC2t~) + 1 GO TO 15 lFCDlR eLEe 191 oORo DIR -GTe 21.) SG TO 1~19 ROY : 10 PREVALf1t10J : PR£VALf1tlO» • 1 PREVALC2t10) : PREVALi2t10l • 1 GO TO 15 ·-? IffDIR el£e 214 eORe DIR. eGT. 236~ GO Ttl 1r~20 RQY : 11 PREVALUt1ll = PREVALftol1l •·t·-----· .. -. -----·-------· ·· ·~· ~· PREVALC2t11) : PREVALC2t11) • 1 GO TO 15 IFCDIR eLEe 236 oORe DIR eGTe 259) GO TO 1~21 ROW : 12 PREVALf1t12) : PR£VALC1~!2J + 1 ""' --'""~ __ ,.,.....,. . .,. _, • --· ..... ..,. ---............. ... .-~ .... ''"'!'t""""~--.. . PREVALC2t12) : PREVAL C2t12) · •-1-·--·----..,._ · -·-· ·-~-··--·-----···· ----·--·· ... -·----·-"' -· -·-------·-..-·· GO TO 15 IF~D!R eL£. 259 eORa D!R eGT. 2G1) 60 TO 1422 ROW :13 · • • ----·---·-·-··~· PREVALC1t13) : PREVALfl•l3) ~ 1 PREVALC2•!3J : PREVALC2•13) • 1 --_.,~ .. . . ! GO TO 15.' ~~~--.-~-···~"· -~--~-· .... .,. ___ ............... ,_, _____ , ____ .., ...... , __ '-*---·~-.-~ ... -··~---· ··-· ~..,~~110 "---~-----• IFCDIR eL£. 281 oORe DlR eGTe 304» GO TO 1421 ROIJ = 1_. ~ PREVAl.Clt14!: PREVAL«ltl~J ,~ l ·~·-··--"'-----~--... ----------. -·'···----~-------·- PREVALC2t1~) : PREV-LC2t14) + '1 f GO TO 15 ·· 4 IF(DJR eLEe 30~ .OR~ DtR oGle ~26) GO TO 1~21' --· -··· ----···--· -· _.._, ·~--·---·····--... -.... .._ ,._ _____ ··-----·--~··-- ROV : 15. . PREVALU•1Sl :: fREVALCltl!i) -. 1 'n ..-.·-$ ..-....--·---~----....,.....,.,...,..,. .... -..,o;-...~"''t'·"l!--.l!..,"'t-"·:__....._,.,._...,_ , ... _.._ -"""~>1>.,...1..-..~·0itr_,...,,~-~""'"" ~ ..--· ' • SUB~OUllHt ~CNTHLY OPT:O ROUND=•••/ 'fRAt. 230 235 2~0 250 255 260 265 c c c c PR£VALC2e15) : ;~EVAL(2e15J + 1 GO TO .15 PREVALClt16) : PREVALUe16) • 1 PRtVALf~t16) : PREVALC2tl6) • 1 ROW : 16 ~ ..... .. ...#-~ .. ,.,-'~----· 15 ROSECROUt KOLK) ~ ROSECROVt KOLM) ~~.o NROSE .: NRCS~ ~. 1 __ ....._...._. ··~- GOSTl : GUST2 GUST2 :: GUSTO . -.•. -----·~-~· ....... ,,,_.., ____ . __ ,._ -------'"'"' .. ~~-.. tFt~UST .NEe •leO) GO TO 1500 GUSTO : •lOOCOsO GO TO 16" 1500 Ift.NOT. CGUST eGT. BlGGUST)J GO TO 153 Bl6GUST :: GUST lf«DIR .EQ. 999) GO TO 151 DlRGSl :: DtR GO TC 152 151 OIRGST : •lODOOeO 152 lfleNOTe CBIGGUST eGT. BIGB!GG!l GO TO 153 BIGBIGG = BIGGUST ~DIRGST : CIRGST F.IRSTG : GUSTl SECGST = GUST2 NEED = 0 GO TO 155 153 IFCNE£0 o£Q. 2) GO TO 155 IFCNE£0 o£Q. ll GO 10 15~ - GUST3 : GUSY NEED : 1 GO TO 155 154 GUSt'\ : GUST NEED : 2 155 GUSTO·:: GUST ..... ~~~-k---·----··---·-·· ----· IFC.NOT. CGUST .GT• BlGGUST)) GO TO 16 81G6UST : GUST -.. _., f • • -----_ ... ~.~ -----·--~-~---- ...,. .,.,. ___ ---· .. ·-· ... _. ~ •--....-.. ..... __ ·-· ' • __ .....,....., . ....... .,. .. , DIRGST : ttR ,.. " ·· · · ·~ -·-_._ ...... -" ... , .,, _, .. , "'--.· "'""10!<-;~;: 270 275 280.- 285 c c c c IFt.~OTe CBlGGUST .sT. BIGDI66)) Ga TO 16 BJGBIG& : BIGGUST MDlRGST :-i:IRGST -·--------· ---~ -·--~-·-~--·- 16 IFCRH eEQe •1) GO TO ll' .• --·~ SIGMARH = ~lGHARH • RH NRH : NRH • 1 HOfil-tiRH z I'.ONTtiRCf + RH --·---· ~ _.., • -~--~ NMRH : NHRH + ! 17 lfCtSLR eEC. ,99) GO TO l71 TOTSUl : T CTSlR + ISLR tlSlR :::: NSl.R + 1 .. ~~-. ------·. + 171 lFCPRECIP .EQ. •l.Gl GO TO ~ lFCPfl.EClP .HE. •2•6) 60 TO 172 ......... _.,._ .. ...,_,_ .... _. ___ "",_,_,......, ............. ..,... .. ,_.., __ .. ~ .. ----... --··#---· ...... • SUBIOIJTlNE KONTl-tL Y 7-\1175 OPT:D POUND=•·•/ TR-.CL. fTN 4el 501 PA6~ •. • 29D 2~5 300 505 310 ' . 315 320 325 330 ,..._ .. _______ .. _.., 335 I c e c LASTP : 0 eO PP.ECJP = o. 0 172 IF CPAS$1 ). GO TO 19 lFfPRECIP eGte ~-l't::.TP) GO TO 18 t.ASTP : LASTP • ~uo eD 18 SIG"AP : StGHAP + CPR£CIP • LASTPJ "ONTHPC : "Q~THPC + tPRECIP • LASTPJ 19 LASTP : PRECIP PASS! : oFALSEe IFCICLK eNE. 0) GO TO ~ 2n IFCWINDY eNEe i.oJ GO TO 2000 WINDY : YINDY • o~os 2DOO THETAPI : ATAN2 r•tMDVt VINDXJ THETAD : THETAPI • taOeO I A"CON411l IFCTHETAD .GE. OeO) G~ TO 21 THETAD : T~ETAD ~ 360e0 21 RSQUARD : VlNDY ~• 2 + WlNDX •• 2 R : SQRTtRSQUARD)INWIND DIR = IF.IX CTHETADl MEANH : SIGMARH I NRH OAYSAVE = AVE I NWIND .JJJ = 0 DO 210 .JJ : lt 16 lFCJJJ eGTe PREVALtltJJJJ GO TO 210 JJ.J : PREVALfltJJJ ·-· . NN : .J.R 210 CONTINUE DO 21 DX t\KK :: 'l. t 16 ·--· PREVALtltKKKJ : 0 2101 CONTINUE .... ~--•, ...,., ...... ·--c;'t - GO TOC211t 212t 213t 21~. 21!h 216t 217e 218t 219t 220t 2219 222e 1 223t 22•• 225• 226)NN 211 IPREVAL : ~~ N GO TO 22 212 IPREVAL : !HNNE GO TO 22 213 lPRCVAL : 3HNE GO TO 22 21-\ lPREVAL : 3HENE GO TO 22·~ ... --· .. 215 IPREVAL : 3H E GO TO 2:! -,... . ""-· .... ----.-.... __ ...,.. ... _ _,_ -- 2.16 IPREVAl. : :!HESE ·-------·-·--··-••· ... ·--· GO TO 22 217 !PREVAL : 3HS£ -~,__....._,_, .... -~ -. """"""-... •·· .. • ..,. ___ '""!'"" ~ .......... , ____ -~-......... .___ ... "" ....... --' --No'-~ -'""""""·•-...:-,..........,.----~~----~fl'!lo-eA< ~ ----~ l' .. --· so· ·to 22 ~ --·· -4 ··· ·10M·---~--.-............. ,_,..~ .... ---~-~---. ...... ______ ..,..------·---.-.---·~--·· "t,·fi;+~-,..-.... _~ ..... ~-- 21& lPREVAL : 3HSS£ l GO TO 22 219 IPREVAL: 3H S---··-·· -·-·~··-··--·--------·--·-----------------~-----------..- 220 GO TO 22 j IPREVAL : 3HSSV . GO TO 22·--·· ····---· -··-·----·-------·---·-----------------......... ___ ____, ---·-qo 3-\o· " -~---~-· ...... .. . 221 IPR EVA\. : ~HSV GO '1'0 22 r·......._........_ __ -··--· .. -.............. , ,._. ·~-... , ...... , .. , .... ~ ... ...-~-... ·----~---·' .._ ---· .,_.,.__,, __ _ l i .. • 3~5 350 ' -.............. _ 355 360 365 370 37:5 l 380 385 390 ..... ,., ... .._ __ < ..... ~ _..., ...... 395 SUBROUTINE HONTHLY 222 IPREVAL : 3flWSW GO TO 22 223 IPREVAL ~ ~H V GO TO 22 22~ IPREVAL : 3HWN~ GO TO 2.2 225 IPREVAL : 3HNV GO TO 22 226 IPREVAL ~ 3HNNW 22 ISOLR : tTOTSLR I .NSLR~ 6 2'0-'"· ··---· •· TOTSLR : o.o NSLR : 0 ptO:NSLR : MONStR -o tSOU~---------·----· ··-·-· --· ----~----.·· WRlT£€59231 TODAY, BlGTEHPt LILTEHPt DMEANTt Dlftt Rt DAYSlVEt 1 DIRGS1t BIGGUSTt IPREVAlt KEANHt DAYSfJPlTObAYh SIGHAPt ISOLRt .2 TtU:JAY ~ --· 23 FORHATtlH t T2t 12.2, T8t F5e1t Tl69 FS.It T24t F5olt T32t l3o3t 1 T3~hflh1tl~6tF~ •1• T53t 13.3, T60 tf4 ol,.T66 tA3 t T72 tl2t T77, . 2F5a1tTB5tF4.1 .. T94t l4t T101t . · ' · -~ •·· ---•· 2 I2o2) HHEANT : M~EANT + DHEANT NMEANT = N~EANT + 1 lUGTEP'IP = •99.9 l •. IL TEMP : +99c 9 B!GGUST : •99&9 llli':DX :: OeO WINI)Y = OoO SIGlllfARH = OoO SIGI~AP : GeO Nvnm = o NRH : -0 "'· AVE : OoO TODAY : IDAY IF!DCNE) GO TQ 25 GO TO ~ ---~ .. -..... ,... ~ "' ..... ~ 25 IflTODAY .rQ. 31) GO TO 251 .PAGt • .., ........... -~--~_... ____ .----~ .... ·---~-._, __ _ -· ...... _ .. _______ ~---___., ______ _ -----·------.-.--_.._ __ . .__....,_. --·- , -,. ___ ~ ........ _ ... .,. .. _ .... _ ~ ... , ... _ .... ~ ---'-.c. IBGIN = TODAY + 1-· u --~·---· ···-~··-._, __ ---• ·-·-··---·-~·-•. ~ ..... ~ ----·----·-----------.. ----·· DO 250 K ~ lBGINe 31 WR zn:: C5t8l K., K 250 CONTINU£ • GO TO 251 GO TO 251 24 DONE :: .ntUtei· --·--·----------···-------- GO TO 20 251 XMYINDY : MUINDY IF CXHiiiNOT .Ntv OoOl GO TO 2511 - XHillNOY : XHWJNOY + OeOS 2511 X~WlNDX :: HlliNDX THrTAPt :: ATAN2 fXHUINDYw .XMYlNDiU .,.> THETAO : THETAPI • 180.0 I AHCONC11) lFtTt!ETAO .G£. O•vi GO TO 2£ TH£TAD = T1iETAO +•360.0 --... ·· ... ·-•· ··""----" -...... _" 26 RSQUXRD = MWlNDY ** 2 -&-HWJNDX **2 A.VG\llNO : AV£M I NftlYtNO R : 8QRTCftSQUAROJ I NHWIND DIR :: IFIXCTH£TADJ HEANH :: KONTHRH I NHRH ~ .. -· ,_ -,..,.;. ""'• ...... .,_.,.. ___ ,... ... ~~ l --~-----· -.<II' .,.._ ot· *--jj..-~~ .. _,~ --·»~---~,~~............,_. ....,_..,._, ~-~_.......... I ... "'---">',... IU#•·-,...,.. ·II'""' ~ • .. ,.._....,..._• """"'*"'-"!!-• __ .. """ """'"---~ ....... ~->'' ,.._.,._....._~,~~'l'"t--.'~~0>~• __ ._,..........._, ___ ... ___ ..__....,._~.-·----------"1 l .. ----·""" --~ • Y>ll'·'-· .. _...ioli< ...... ""';··-~ ,,~,.,....,.., t~~ • 405 uo ~15 "25 430 ( 455 ~· I SLBROUll~t ~ONTHLY 14/175 f4fl!£AMT :: MfiEANT I Ht'£ANT JJJ = 0 DO 2&Q JJ : lt 16 JFCJJJ eGTe PREVALC2tJJ)) GO TO 26D JJJ : PREVALf2tJJJ NN : JJ 260 CONTINUE GO TO «261t 262t 263t 264t 265o 2£6t 267t 268t 269t 270t 271t 272t 1 273o 274• 275• 276) NN 261 MPREVAL : :fl N GO TO 211 262 .f>tPftEVAL : 3HNNE · GO TO 277 263 ~PREVAL : 3HNE GO tO 277 264 MPREVAL : 3HENE GO TO 277 265 MPREVAL : 3H E GO TO 277 266 MPREVAL : 3HESE GO !0 277 267 "PREVAL = !HSE GO TO 277 268 MPREVAL : 3HSSE GO TO 271 269 MPR£VAL : 3H S GO TO 277 270 ~PREVAL : ~HSSV GO. TO 211 .271 MPREV!l = 3MSU GO TO 277 272 MPREVAL : ~HWSW GO TO 277 273 MPREVAL : 3H V GO TO 277 274 '1PR£VAL : !HWN"' GO TO 277 275 P4PREVAL = 3HNV GO TO 277 276 f'PREVAL : 3~NNW 277 YRIT£C5•21JSlGBIGT, LlllJLTt HMEANt, DIRt R• AVGWINO~ MOIRGSTt 1 B!GBIGGt t1PREV.ALt MEANHtDEWPOINt hONTHPCt MONSLR· 27 fORHATUif /l2t"HONTH"tTSt F5.1t T16t ·FS•h T2~t F5elt T32• t3.3,--~· 1Tl9tF~•ltT~6tF4eltTS3.J3.StT60tF~.1ti6GtA3tT72t I2tT77eF5e1t 2 T84oF5.lt T92t 16J VRITEC5t2700JFlRSTGt SEtGSTt GUST3t GUST~ --· 2700 FORMATe• •JYla,•GUST VEL. AT ~AXo GUST HlNUS 2 INTERVALS•, 1T59tF5el/T1St•GUST VELe AT riAX• GUST f1tNUS 1. UITERVAt.•.,T59t 2F5"1/Tl8t•EOST VEL• .lT MAXo GUST PlUS t tNTERVAL•tT59tF5.1J--·---............ ·--· 3TU't,•GUST VEL. AT MAX • GUSf PLUS 2 INTER.VALS"tT59tF5 .1) WRlTE«Stll • •--, lool•-.,., • .,..... 1;0 " . .. ~--·~--~ ......... --~ " ... •'.!t .....,., ,,-,. \lRYTE(!it~8J lNt MONTMt IYY' ~. --· · . ., ...• ···--·~-.--···--····---... ~ ... ···~-~-·, .... _, -·----·-.. ~----·-~--- 2;8 fORfU.TUH JJ.I//T26t •R&" CONSULTANTS~ tNe.•liT21t 1 •SUSlT.NA HVDROE:ltCTRlC PRO.JECT"IIIT2t•tUND •, 2 •FREQUENCY SUMMARY FOR •tA7t" STATlDN"/1129-------··----~-·---· -·-·· ----" ----~~ 3 •OATA TAKEN OURlNG 111 'tA9t•t t9•tl2///132t•VELOCITY•I ~ 'T13t 111 LEss•, T21t •t. 0llft T29t •3. a.•, 1~1, •G.o•, _, ___ ~,..,-_,_. ___ .,.__ ~ ..... ., .... •"'-··-'I'll _,,.;, ___ -·---~----.... '"' • SUBR~UTt~E ~ONTHLY 1'4/1?5 fTN-4e8 5.06 460 ~65 c "10 ~80 "85 c 490 { 500 505 S 1'44t •10e0 111 t 152• •tSeO•o T59t.•GRE~TtR•/T1St 6 •TttAPJ.,, T22t SI 11 T0 11 t6Xh T6D,. aT~AN 11 /I~~ 7 •otRECTION•t T14t •too•, T21t ~3s0 11 t T~9t 8 •£.o•, 136, •1o.o·~ T44t •ts~o•, T52t •2o.o•, 8 vs~, •2o.o•, 9 T68t ~TOTAL•IT2t 71C1HDI) 0.0 29 KK : ·1, 7 ~ --... ·--· •n'" CUo!iK) : GaO DO 29 K : !9 16 ROSECKto KKl = lROS£CK9 KKJ/NROSEl * 100 .• '0'. 29 CONTINU[ TOTAL :: o .. :u .• 0(1) = 3H ~ 0(2) : 3HNNE 0(3) = 3HNE' DC") = 3MEN£ OCSJ = 3H E 0(6) : 3HESE 0(7) : 3iiSE OCiU : 3HSSE 0¢9) : '3H S DUD) = 3HSSW l>Cl.l) : 3MSW Slt12) : 3HVSV 1H13) = 3H W OU~l = -!IH\IN\1 DU5) = 3HNW DC16l : 3HNNV _.-,,..,.,..,' -----, __ .., "" ·---'-.---- llC '32 .K :: 1., 16 ·---·--·-·--·· ---· ·----· ----.. ----- 00 3G KK : lt 7 C«XKl : CCkK) + RnSE«K• «KJ TOTAL = TOTAL + ROSECKt KI(J 30 CONTINUE era:. : tt3) + TOTAL "RITECSt:Sl) DUUi' CROSECkt 'KIOt KK'w::•·t-,-·n, TOTAL---·- :n FORPIATUH /T5t A3t T12o 8W5e2t 3X)) TOTAL : 0<,,0 32 corn INUE: · "RIT£C5t!3) 33 FORMATUlt t l12t 8f.5H ... -••t 3X)) VRITEf5t3"l (ClKlt K : "1•.-·tn ··-· --·--~-~...__---~~ ·-~-·- Sif FORHATUH "' T"t •TOTAL•, 8f2XtF6.2)///T2t •NOT£: ALL •, 1 •FREQUENCIES £XPRESSEO IN PERCENT.•) IIRITECSt35-~NROSE"'"-~ . ---·--·-·--· ·---··-···-.. ··· ------·---· ·-•. 35 FORMATe• •!T2tl6t• VALID WUlil OBSERVATIONS USED TO DEVELOP•• 1 M FREQUENCY SUMMARY•) RETURN --~~ · ~-····--·--~--·····-·--·· . END __ --..:.,.__ -".- ~ "'-• ......._ ___ .,.. . ..,. .. _,._..,._"...,.-~.,.·----•-.. ----•--c---·-•------~-'<:-.of-t".rit:~ CARD NRe SEVERITY DETAILS DIAGNOSIS OF P~OBLEM • • ...• ~----.... - I THERE IS NO PATH TO THIS STATEPIENT• _,_ ·-..-• .,~ .. ·-· .... ~ ..... t .. -~~ .. -'* -----• ~..,............. ---· ----, ~ .....,._ * ... ~· -' ''If' ~-• . . .. ~ ~ .... _______ ...._.__, . ._.........._ .,..>1:1,...._·~---------- __ """i:_...,_._. •• --· ....... ,........... ..... -<:;~-,. .. .,., ----- ---~ .............__ ' ' { { SU8ROUTIH£ MONTHLY 7'1/115 OPT:O ROUN0:::4·••1 TRACE:. F'TN 'tel $08 8110!/20• 12e15e~8 SYMBOLIC R£F£R.E~C£ ~A"P fR="3l ENTRY POINTS 2 MONTHLY VARlABLES SN 2sa~ -''YE 262~~ AVEM 2672 AVGV!ND 2573 BEGIN 2.616 BIGBJGG 2615 atGBIGT 2610 BlGGUST ~607 BI&TEHP 3135 c 2735 D 2660 DAYSAVE 0 OAT SOP 0 00 2576 DE\IPOIN 2560 DIR 2St»3 DlRGST 261f 0 DltEANT 25llf DUNE 26o\6 fiRSTG 2637 GUST 2602 GUSTO 2603 GUST! 2604 GUST2. 2~05 GUST3 2606 GUSTif 2667 IBG!~ 2632 ICLK.- 0 ID 2627 lOAY 2&3 o· IDAYr·-- 2631 lEND 1 IKM --.. 0 "IN_,_. ~ 2665 IPR.EVAL 2636 ISLR 2666 XSOLR -~-~ ·2 lYY"" -· 26b2 JJ .. DEF LJN£ If TYPE REAL P.E.\l RE:Al LOGICAL REAL REAl.. REAL REAL REAL INltGER REAL REAL. INTEGER REAL INTEGER INTEGER REAL LOGICAL REAL· REAL REAL REAl REAL REAL REAL . I.NTE.GER INT£G£R--~ lNTEGER 1NTEt1ER UITEGER. INT£GER IN1~EGER INTEGER l~TEGER INTEGER INTEGER REFERENCES . 50!5 ARRAY AR({AY ARRAY ARRAY RELOCATION DP WINOS REFS REFS REFS REFS REFS REFS \1EFS DEFINED REFS DEFINED REFS 492 REFS l\71f 482 REFS REFS REFS REFS 120 121 440 12 251 110 2~5 59 108 57 lC:: s o\75 o\83 356 5 3 REFS a 2•176 2•181 .. 2•216 2'•221 DEFINED 104 REFS 8 268 . --~' .. REFS 356 REFS 12 REFS 445 ~ REf'S 242 267 DEFINED REFS 241 REFS 251f REFS 240 REF$ • tl\ .. 5 · REFS 4lt5 REFS 380 309' 396 DEFINED 89 269 .... 0 251 21\6 110 1\;9 489 o\93 476 lf8~ DEFINED 10 8 DEFINED 119 2•.).86 2•226 307 253 ~63 376 t3EFU.IED 20\5 :l04 DEFINED DEFlM:D 396 102 "lifO DEFINED 252 267 111 365 ~92 OEFl~r.o 471 o\85 309 356 16 122 2•191 247 398 271 DEFINED DEFINED ... 254 2~6 DEFINED 52 • DEFINED 53 255 OEFll-J~~ DEFINED · ·· · 55· DEFINED 56 DEFINED 379 '75 76 DEFINED DEFINED 64 266 367 116 499 •iTO 478 2•156 2•196 a•s · · 356 116 lo\ -2o\3 240 51\ 260 -· 263 1211 121 . 13 68 . 111 269 356 DEFINED 2•ls! 2•201 . 2.68 DEFINED 385 263 265 21ft 37&\ ""'92 • ,._, ................ L 252 270 21e '3.5G ~ ·· . 172 o\80 2•166 2•206 356• 24li 265 ---.. '1-171 2~211 ii\ll-0 -·-· -250 -·---~--.. --·--· REFS 295 · DEFINED · l 0 o\ -INFO REFS 5 REFS 90 91 ----·REFS • 93· ~ · 94 375 DEFINED • 94 DEFINED 90 87 ~--1<-·-'*">-¥--"-------~-~-· -...---..... 1 INFO STATION· REF'S 95 DEFINED REFS 5 REFS_., ___ .. S· --.--28 · 451 ·~·-_.._ __ _........,._ -..---... ~~-"-- REFS !56 DEFINED 321 323 325 327 329 I 331 333 335 337 339 341 3~3 :,45 -------·---···-· 347-----3'19 ____ 3st··---·-·~-~-·-·-··---·----------.-........ ·----....,...,..._., REFS 281 282 DEFINED 104 i INTEGER--·~-·--. -· lNFo·--REFS 355 356 DEFIN£0 352 ~ t REFs-----·-s-....._·-· 28.·--" 4St-··-----~ -·----------. .._.. ______ ....._ lNJEGER KtEFS 312 313 311t ~03 404 o\05 .,. \ \ • SUIIIIOUlUE MONTHLY ABLES SN 'i'YP£ ?661 JJ~ 2577 K 2626 KEY 26CC . KK ~ 2 f.(," KtU( 2645 KOU\ 2566 LASTP 2S70 l.U .. LILT ,567 LILTEMP 2564 HOlRG$T 2£57 MEANH 2571 fi"EANT 37 t"'ONOP ~622 MONSLR "" MONTH ' ". 2572 r-ONTHPC 2617 HDNTHRH 267! 11PREVAL 76 MWINDlC 77 ~\liNDY"· 2£50 NEED 2601 NH£ANl . 2G52 NMRH 100 NHIIINO 2663 NN 2651 NRH 2625 NROS£ 2621 NSLR 26lt4 N'UNO 2575 PASS! 2635 PRECIP 2675 PREVAL ~~~6 R 2;;61. RH 275!5 ROSE. . -. - INTE:GER ,..INTEGER INTEGER INTEGER INTEGER INTEGER REAL REAL REAL INTEGER INTEGER REAL INTEGER INTEGER INTEGER REilL INTEGER INTEGER REAL REAL INTEGER INTEGER INTEGER INTEGER INTEGE.R INTEGER INTEGER INTEGER INTEGER LOGICAL REAL INTEGER REAl lfnEGER REAL 74/115 OPT:a aowo=•·•l 1Rlct. · RELOCATION · FTN·,.a SOB OEFII~ED 311 REFS 312 REFS 18 o\90 2•493 487 "99 402 403 19 499 DEFINED 310 401 414 21 2•96 OEFIN£0 -.. -17 ~ H 2•466 48.9 3ao-·-4s5-...... __ _ REFS 85 DEfiNED --· --· ---....... ~--~'REFS ... ~-·--21_._. ··--460\-· 81 2•466 488 316 '132 3•489 ~--·-· 490.:_.. -· o\93 DEF!NED 20 463 REFS 317 DEFINED REFS. 2•238-DEFINED 136 152 .155 REFS 10 289 290 ··--------DEFINED ·-"286 --~ · · '290"' 293 · ... 291 140 .... -' 1~4 ·--··~ 1.4a--... -- 292 .. .. -... .,_ .... __ .,.. .. ,., ____ ... _...__ .. - ARRAY ARRAY DP INFO lliNDS REFS 10 ll't ~-\0 DEFINED REFS 10 112. 114 115 DEFINED -56 ··-w· -· 113 -· · " 366 RtFS B 440 DEFJNED 253 REFS 356 ~40 DEFINED 308 • ·-·-.. ltt:FS" •. 10 363 ·400 440 400 RtFS 5 REFS 355 • REFS 5 REFS· 10 REFS 277 REFS 440 419 421 435 437 REFS 5 [):;FINED 66 16 -t\0 . 28 292 399 DEFINED /t23 43~ 10 128 DEFINED 451 440 DEFINED 409 ~25 128 7~ DEFINED 69 411 ,.27 liiiNDS -·-·-REFs-·.····~·· ~'5 ' 10 -~ '129 --· 390 "387 ~ ·~· DEFINED 67 REFS 258 REFS-· ·-· -· · 36~ REFS 278 WINDS REFS 5 ·--· ·--·-R£Fs-·--·-··.s1 •J -· ·---· · REFS 276 REFS 239 REFS· ''283 REFS 127 REFS 12 129 259 DEFINED , 400 · DEFINED 399 DEFINED 130 396 ~07--··· DEFINED-· 308 DEFINED a)66 502 352' DEFINED 306 309 288 DEFINED 25£ 51' 278 397 314' ·~ 276 DEFINED 73 DEFINED 15 65 11fi, 271 399 DEFINED 355 ' • 70 2.77 . - 413 429 395. 395. 261 364 DEFINED 405. 373 77 2e3 127 29~ REFS·... 284 ·- DE~!NED 104 285 289 291 ~·--~ 292 ,_ ... 287 115 35£ 292 415 431 130 -........... -... ,~~·--.-.-,.. ..... _ 239 354 372 293---~ --·-- REFS 8 163 164 168 169 ~--·-· 173... 174···- 193 191\ 158 17s·-- 19a 218 312·-·· 1!'9 179 ., 183 ·~ .. · 184 .--..... tae--'la"CJ----. 213 21- 231-·-· ,., 232 DEFtNED 18 169 173 189--~-· 193 __ .. 209. 213 229· 231 -~-·· .•. -----·. REFS -356' REFS 8 REFS 10 •t9 174 199 219 313 . 158 -194 ~-·-· ~ 178 198 218 214 232 440-. 274 238 317 DEFINED. 275 466 203 20" 208 209 223 224 228 229 'l03 404 -··~ ------... -___,_., ... 159 163 164 l6S 179 183 l.S4 188 199 h-~·-· · · 203--204_. __ .... 2os·-- 219 ' 223 224 228 -.. 3.06 •••••-397 ·-~ • ~·• • ·• -""' • ··-w~ 277 DEFI~EO 10~ 489 490 493 ... -!i' .......... .-~ ...... ,..~'-;>.11< ___ :~--. ..... , ' t l l • SUBROIJ'UfiE KO~THLY !ABLES SN T't'Pt 7~1115 OPT:O ROUND:•••/ TRA~£. RELOCATION . DEFINED 21 2565 ROW INTEGER REFS fl .. 177 182 • 21.7 . 222 2655 RSQUARO R~lL REFS 306 37 SD REAL ARRAY WINDS REFS 5 2647 SECGST RtAL REFS 445 ?61" SIGHAP REAL RCFS 291 2613 SIGI"lRH lt£Al REF'S 275 263-sPe;:a-REAL REFS 119 139 143 2633 TEMP REAL REFS 107. DEFINED 104 265~ THETAD REAL REFS 303 DEFINED 302 2653 THE'fAPl RFAL REFS 3 02 2562 TCnAY INTEGER REFS 8 2£74 TOTAL RE:AL Rt:FS 490 4\0 TOT MOP REAL DP REFS 5 2620 lOTSLR REAL REFS 282 2611 WtNOX REAL REFS 125 2612 WINDY REAL REFS 126 DEFINED 61 2642 X REAL REFs· 125 26-\1 XtllR ~~At. fiEFS 123 2671 XHWINDX REAL REFS 391 2£70 XMWINDY REAL REFS 388 26-\3 y REAL REFS 12£ FILE NAHES HOOt TAP£4 FKT REACS~ 81 B7 .. TAPES FtU U~ITtS 26 28 4~1 1;93 497 EXTERNALS TYPE ARGS REfEREnCES AHCON REAL 1 -302 392 ATAN2 REAL 2 liBRARY 301 391 coso REAL 1 LIBRARY 123 EOF' REAL 1 83 SINO REAL 1 LIBRARY 124 S(lftf REAL 1 LIBRARY 30& 3.9'1 .. lNLINE fUNCTIONS TYPE ARGS -DEF LINE REFERENCES ....... - !FIX l~TEGER 1 INTRJN 307 398 STUEHENT LABELS ·- 2002 1 FMT 0 2 ---2012. 3".- 132 4 2131 5 ---· -· 0. 6. 2141 7 2150 8 175 10 ?173 11 FHT FKT FHT FH! INACTIV£ DEF LIN£ 21 28 29' 81 82 a~ at 91 98 102 105 REFERENCES".... · .26 450 89 81 .91 93 96 381 95 -· ----·~-~ < 85 104 • FTN 4•8 508 23.8 466 2•238 DEft NED 187 192 . 227 233 397 DEFIMED 1C DEFINED 255 . 356 DEFINED 308 DEFINED 120 121 14:7 151 108 109 301; .307 301; 392 392 DEfiNED 3•35, 378 492 493 1£ 352 DEFINED 301 305 299 300 126 300 128 DEFt NED 124 DEFINED DEfiNED 390 3.89 391 129 DEFINED " 104 MOTION 96 356 499 502 . <· ~ 157 197 1&2 202 305 395 63 62 123 DEFINED 112 393 391t 301 379 DEFINED 72 DEFINED 301 369 123 122 291 275 124 104 113 394 !91 DEFINED 46.9 282 60 305 - -PAGE 167 ~07 • 172 212 _.,. .. ,.. "' ... _ ._.. __ _,.......,; ........ _...._ "'4c:: .......... ._ •• - 371 37D "131 -1!5 ~~~ .. --. _,AA-"'"---~-"'~ 398 -.., .......... -... -""1:1<• .... ~ . 91 375 490 4l95 -~$ -n¥_..,_ ~......-.' 353 125 368 ... "'~:"-...,.,...,. ------~~ DEFINED 12~ 387 389 50 381 . -· 86 . ' 440 "103-.... "'"'' .... ,~ . -·--- lto\5 ~50 -.... -~ _... . ... , --'*-"" ~ ............ ..., 102 295 377 .-._""1 ____ _. ...... ...-c ....... -_, .. _:~---..--,..---· .. ·-----~__... .... __ --------. . l r-·· . --•.•.. -. ..._. --"' ., .... ~~«-"""' ... ·-· _ .. _ .. _.,.._,..,.,._ ..... _,.. _ .. _ ... ,.,... ..... ~~ .... ~-..... ...,_ ... ,..~ .. ~ ... ·--· ~tly·~,~-"""'"'~""'-..-.'~-~-""'""*'--· ....,.....----. ~ ·'-' ; . \ ..... -~-·• . ·- • SUBROtiTIN£ fEl'-EPlT LABELS 220 12 ~· 232 13 236 H £45 15 763 16 771 17 1031 1& l(i~l 19 1050 20 1072 21 1267 22 ~ .. 2225 23 1364 24 1345 25 1~16 26 2271 2.7 2360 28 0 29 0 30 2445 31 0 32 2 .. 54 33 241&-3-\ 2502 35 0 100 312. 141 320 1-\2 326 1153 334 1~>\ 342. titS 3!;0 146 35~ 147 71)1 151 70~ 152 722 153 735 l5o\ 742 155 . 1007 17,:. 2C21 172 1130 21D 1170 211 117~ 212 1200 213 1201\ 214 1210 215 2 214 21, 1220 217 1220\ 218 1.230 219 123-\ 220 121f0. 221 1244 222 1250 223 1254 2~~ 1260 225 FP'tT fKT FMT FMT FKT FHT FMT f'ICNTHLY 7~/175 CPl:O ROUND=~·•/ TRAC~ CEF LINE REFERENCES 112 108 110 116 112 114 11.9 107 238 119 . 160 205 266 ~7- 281 291 293 295 305 352 359 385 378 395 44\2 452 467 491 494 496 t\98 500 503 22 135 139 143 147 151 155 !56 2.50 251 258 263 26S 28~ 288 315 200 244 274 289 288 386 303 322 34[1.~ 356 83 "376 393 t\40 451 463 488 493 487 497 499 502 17 131 135 139 o\65 2Q 143 . w •• ~ - 147 151 133 247 249 137 245 ~-----251--- 259 257 258 -281 285 • 3.11 J12 165 2UI 269 • 14.1 • 262 FTN 4.8 5.019 170 215 145 ·- 175 22D 149 - &1/05120o 12e15.48 !80 225 153" 185 .. 230 319'---- 319 321. 323 --.-..... ~---... ----· --~~-"'---~~ .... --n--------.-...";'""- 325 327 . 329 331 333"~·--· 335 337 319 319"-... . . ... ·-' •. ~11] 31.9 319"-"-- 319 319 .... "'". 339 319-.. --__ , --- --· " .......... """" ........ ------"'!!O:l·-~-.,J>t.,.~-..,..,..._~;~ ,.,;,1111. ___ .,_,..,~ 3.1 343 345~ -347 3.9 319' ~i9 319-'""' ....... -··'" .• 319 319 ... -··"" . .,. ....... --•. "''"' .. .,. .. ' . 190 --·· ·- ~·· --., .. ·~~-----· ""'."' ........ !.~ '"""'~··--" -------!, ':;: t ! -- ",.. .......... <1\'l' .... j • SUBflOUTINE ft:f'tf-:T l.4B£LS 1264 226 MONTHLY 0 250 13157 251 1457 26D l~U.O 261 151~ 262 1520 263 ,,52~ 26~ 1530 26.5 1534 266 :ts-o 267 154't 268 1550 269 1554 270 1560 271 1564 272 1570 273 1574 271.1 1600 275 1604 276 1607 277 366 l'tlO 402 1-\11 416 llf12 432 11Jl3. 41\6 1414 . ·-462 1415 476 1416 512 1~17 526 H18 51f 2 H19 556 1420 572 1421 606 1422 62~ !423 636 1421\ 66(, 1500 1055 2000 0 2101 -· 1377 2511 2316 27D~ LOOPS .LiiBEL 16 100 24 100 166 9 1116 210 ·-1135 2101 1354 250 1445 2&0 1621 29 ·- 1625 29 170tl 32 1706 30 1733 Ff1T JNCEX K KK .1< JJ .ICKK K Ju KK i( k KiC KK :_ -~' . .. :' ' . •. li . .. . . '. . : .... -. ~. ' • • : . , • .. If: ' • • f 741175 CP1=0 ROUPJO!!:+••I 'fRACEJI.'. fTN ')•8 508 81/05/20~ 12.15.48 PAGE. DEF LINE REF£1\ENCIES ... 351 319 382 380 3a7 378 illl6 402 409 ~07 t\11 4 07 413 407 415 407 417 407 419 ~07 421 0\07 ~23 407 425 407 's27 407 ~29 o\07 383 403 . 4l3l 407 ".~.,---• 433 's07 435 407 ~37 <\07 435 -\07 44Q 410 428 156 161 166 171 17~ 161 166 171 176 181 186 191 196 201 206 211 216 . 181 .•. ----~ 221 226 231 2,5 301 31e.·· 390 o\t\6 FROM• TO 17 22 20 2~. 95 98 186 191 196 ~-·-··-·--~ 2('11 206 211 216 2~1 226 -·--_ ....... 2.~2 299 31E·--.. --·. 388 445 LENGTH 17.6 68 -· 58 PROPERTIES NOT INNER l NSTAC~ ·-· -• • - EXT REFS 158 INSTACK ... . .. ,.. __ ,. .... -· ..._. "" - ..... sa-·INSTACK---.. --·---------=·~·-· 58 EXY REFS 15£ lNSTACK 178 -------·-NOT I NN£R -'·""~-····---- ,JOB INSTACK ll68 Ext REF$ NOT INNER ~20 i\3.8 <1t22 ____ ..... "' -.•--·-·""" 1<'> ~ --.... ~- ... $: "-_..._ ' .. :lll'o .._....,_, .___ ---- -~'-" ·~ ~--_,.,.. . ·--"--"' 311 315 316 318'- 380 38~ ~02 o\Q6 't63 467. 465 ,67 487 o\96 488 491 '693 "93 " 14'8._.... •• ~INSTACec------· ---~ -------··-·· ··-------·-· · ........ ~---... ---·..,.-··--·--- lOB EXT REfS SUB FlOUT UiE "ONTHL ~ BLOCKS INFO STAT JON WINDS DP STATISTICS PROGR AH LEI\!GTfJ L[NGTH 4 1 65 CM llBEL£0 CO~MON LENGTH S2DOOS Cft USED 74/175 '1EMBERS OPT:a ROUND:•••/ TltAC~. ~ BIAS ~AMEfLENGTHl D tD UJ J HCNTH U) 0 JN U) a OD " t31J n 63 H\llND\' U l 31~58 1478 0 DAYSOP C31~ 1637 103 31 SD 64 Nl'!\flND 31 MONDP -... -_,_ -·-·"' ·---···-=--.--.,., _....._.._ -....... ___ ...,...,_ ·---__ ...,..,.,. sae (1) CSlJ (1) UJ 2 lYY lU 32 TOTMDP UJ l -.... ---.. _......._ .. -"'' ... __ -----·~-~·---~---- ---~·-...,·~ .,._. ... ,._, ""'"-~ -"'I'• ·--, -.c-·· --T .... -... _ _,._._,,_..__ ..... _, --~-----~--·------- • 1 5 10 15 20 iS 30 35 SUBROUTINE NOTES OPl:a ROUND••••/ TRAC~ FTN 4o!J SOR C••••••~•••••••••••~••a~****************~*******************••a•••••••••••••••a C••••••••••••o••••••••o••••••••~*6**~*************~******~*************0******6 C••••••~•••••••••••••••••~~~•••••~•••••***********~**********************•••~•• SUBROUTINE NOTES c c c c c CO~MON/PF~ERRS/HESSAG£(5)/ENDFJEOF Dl~ENSJDN FITC~DJ lN7"£Gtft 'tEXT C8) LOGICAL EOJ: EXTERN4L Dl\ EOF : .FALSE. CALL PFG£:TC5LTAPE8, 7LFTNOTES, Ot Ot l'v Gt IERR) IFC!ERR •£;• DJ GO TO 2 WRITE«2t1J IERRt fHESSAGE(d)t J: 1o5J 1 FORMAT(• PERMANENT FILE ERRCR NUMBER •• I2t •tNCOUNTER£0°/ t• WHEN TRY JNG TC •GET" PERHA :lENT FILE 'FTNOTES• .•/SA10) RETURN· 2 YRI TE (593') 3 FORMATUHl) WRITEfSto\) ~ f'ORtiATUK l/l/'ll60t•N 0 T E S•/T60e••---..... ·••8 ) N :: 0 THE CDC. RECORDS HENAGER SYSTEM WILL BE USED 'TO READ lN ARBI• YRARIL Y LONG· RECORDS (80 CHARACTERS MAlCIMUKJ SO THAT THEY CAN BE WRITTEN BACK OUTa • • CALL FU.ESQ lFt T •3L.lfth5L TAPES t2LRTt1LZ 92LBT tl LCt3Ut~Lt80 t2LDX,Oit) CALL ~PENMCF1lf3Ll•0) - S CALL GETCFlltT!XT! IFCEOFl GO T020 WRITtCSr;:;) fTEXTfdl~J=lt8l ----"'" S FORHATClH 9T35t8Al0l N = N+ 1 !F(N ·LT. 45) 60 TO 5 N : 0 ........ ~ .. ,..., .. ..... .. YIUT£C5t3) YRIT£(5, 7J ·-........ ~-·-· ;....-..... -... , ..... -----.... -"'--···· ~ -- 7 FORMATUH Ill//) GO TO S 20 RETYRN END PAGE. t ~ ----........ ,. ~- .. -""' "(-··-~ '""""" _____ ,_- "'--.. ,._,...,. .... .. --~ ·~"!"OI,"IO<Q: ~-.... _.~_,__ --· ---...... _, ______ -·-·--·--~ ... ~-"' ..,.._.._---,... ~ ,.....,__ --~-· ,_... ·-.. '"' .... _...,..,. -.... ,. __ -------,.,.--------.. ,., SYMBOLIC REfER£~CE HAP (R:~) FNTRY POINTS 2 PlOTtS OEF llN£ 4 REFERENCEs·-·-·-------· __ ., -··· ~---·-· 16 o\0 \fl RlASLE'S '~-SN T~P'E • C EQF LOGICAl 171 FiT REAL ARRAY -• -.. ~~ "lE£ lERil lNTEGER ----·---- <"-• J 1£7 d INTEGER 0 f'IESSAGt INTE.GER A.RRAY PfMEJUlS 5 8 30 6 27 28 . t·l-..... ~·-~-···12'-.. ~---·"' 13 ....... ---- DEF1'NED 29 13 31 D£FJNE'O 5 13 10 ---------------------, f( • SUBROUtiNE NOTES V iSLES s .. TYPE ' 170 N INT·EG£R 241 TEXT INTEGER FILE NA"E.S 810.0£ TAPE2 FMT TAP£5 FHT EXTERNALS TYPE ox FILES II GET OPENJ1 PfG£T. STATEfolENT LABELS 113 1 FHT 15 2 132 3 FHT 1:57 4 FPIT 30 5 151 6 FtH 162 7 Ft1T 53 20 • COrutON BLOCKS PFMERRS ENOF STATI.STICS PR O!iRAr't LENGTH LENGTH s 1 .. CM lABElED CO~HO .. LENGTH 52.000B. CM USED ~---.. ---__ .. __ ,.,... .. ,., 71\/17~ OP'i:O ROUND:• .. •/ TRACE. RELOCATIDtw ARRAY . ARGS 0 . 11 2 2 7 DEF LINE 14 17 12 2C 29 32 3B ,.0 VR!t£,$ WRITES -. ~ '""'"' -..... REFERENCES 9 27 29 28 11 REFERENCES .. '13 12 17 19 3t\ 31 37 3fl REFS REFS 13 17 .. 27 39 P.EHBERS • BIAS NAKE(LENGTHl 0 M£SSAGE.C5) 2776 6'8 IJ EOr CU 191 -6 .. 33 7 19 FTH ~.8 508 81105/20. 11.t •15o 4 8 PAGE. 3~ DtFIN£0 21 33 35 29 31 36 37 ;lt''/" ~~-·-·--- •·r.~· _fill-._..,,-~""'."""~- -... -.. --!I'll- ~ ....... ·I!'" _ _,_ ··--~-~ ...... _ ........... ""!" ----·-··"' • --.... -, •• •• ..........__..~.-._, _____ ... --~ ~-.... ... ___ , .. _,.._ --·~'-""'!"" -.i> ..... ---"' ~"""' ' ~ .... , ..... -·-··-· -·-< :<. ........... """--·~ --·~ --~>!);! .... +'1"-l> ... ~ -- ·--·-~ . ,...~,. -... ___ ..,. .,.. ---~ .... ,_ ·--ot .. -..__..,_ .. "'' ··--· -~ ----·· ' ' .... _,... ..~_ .... ,.._ ··~~-..... --.................... __ ..... It---.. . .~., .... _,.. ..... --'"'""'" '-~ " ,. -..... ,,_ -. ... .... ~ -·· Jlo w:..;., ..,.., ........ ---... -~--- ( • SUBROUTINE OX ""'115 1 t••a••~•••••••••••••••••••••••••••••••••••••••••••••••~•••••••••••••~••••~•••• C•••••&••••o••••••o••••~•••••••••••~••••••••••••••••************~•••~•••••••••••o C•••~***********************•************~********************************** SUBROUTINE DX ·--· 5 tOMMCN /ENtF/EOF. LOGICAL EOF EOF : •TR.UEe - RETURN END SYMBOLIC REFERENCE NAP CR=3J ENTRY POINTS 2 ox VARIABLES 0 EOF OEF LINE • SN TYPE LOGICAL ~~f.~Rf:NC[S 8 RELOCATIO~ ENDF :' ·-· . ~ .. ··--.... . .. REFS 5 COMMON BLOCKS ENDF LENGTH MEMBERS • BIAS NAMEILENGTH) 1 STATISTICS PR OGRAH LENGTH CK lABELEn COMMON LENGTH 520008 CM USED 0 EOF U) 68 lB · 6 1 ... ~--... -~ ..... -,..,.,._ .. .... 4• ~ ...... ~ -·• 6 DEFINED 1 PAGE·· .. f • .......... ~-_,,. ____ .... _.,.-.......... . l \... --.. ----.... .. ...._ .. -· -·--"' _ _, __ . ----... '-.. .... .., ..... ,.,_ .... -"'~ -·---------.. ---___ _._,~ ,.. ___ .,., __ __, ___ ~~-----.. _.._,.,_"'~-"'-~ -·-;r.-------~-,~~ ....... ,-.,...~. ---- -............. -...... .,. ... _ --..... -...... -,_ ·-· .~ ~ ----.____, ·--------~-·· -----~---·-------.... _--. . ..,.., __ _......_ .. .--..,....,. ~ ..,., _____ _ c ( ---... -..... -':--___ ,.,.,..,.~..,~ ~~ " .. ~ • ._,..,__....,.,. --_. ___ , _____ ,_. --___ ,. __ , -----'¥""""~---------.. _ ... ., __ _,..,_. ------------------------!, .. . l t 1 ... • . .._.....,.} -,__,__..,. ---__ .._,.._ ... ___ ,, --,..----~.....,.._., ... -·---·-----------... -""" ....... ~--- f, .... -l \. • (_ ( ( ( l • SUB~CUTINE YRAPUP 14/175 OPt:O ROUND=•••/ TRACE. ftN. 4.8 508 . PAGE • -·· -~ "'·- 1 5 10 lS 20 25 C•••••~•*************•**************8************•••••••••••••••••••******* Ce**********************e************O********•**~***~********************* t··~······································································· SUBROUTINE \JRAPUP .. -. ' ·---·-.. - . -• . . ~ . ,. . ---· ... ·----· -------- COMMON IPF"ERRSIKESSAGEt5) REWIND a\ CALL PFREPLC CSll.&Pt~, 5LTAPE4• h lJ., 1h 09-IER~J'--- R£VIND 4 IFCI~RR .EQ. 0) GO TO 2 -. ~------. -·--·-. -~--------- YRIT£(2t1) !ERR• lHESSAG[(,Jl• .J : lt5) ·-.. -~~ . --· "-·----·--..., -·------~ .. --------------· 1 FCR~ATC•PERMANENT FILE ERROR NUMBER ••12•• DETECTED WHILE a, 1 m. ATTEMPTING TO REPLACE •TAPE 4V 8 /5AUI) 2 REVIND 5-. -· -· • ·---· _. ---. ------. -· ----- IERR : D CALL PFR£PLC C5LTAPE5t 5LTAP£5• at 0• 0• 0~ l£RR) REWIND 5 .. IFUERR' .EQe 0) GO TO ·4•w-· ---·-·-· ----~-··· ·--------···--·· •· VR.!T£.f2t3l IERRt tHESSAGECJlt J : lt5) 3 FORH.\Tt•PERHANENT F.ILE EilROP. tJUHDER •• 12• •oEYECT,ED UHtlE~. 1 • ATTEMPTING TO REPLACE "TAPE s••LSAUU RETURH 4 \lRlTEt2t5l 5 FtUUUTt•PRCCESSING COMPLETE. SEE 1 TAPE 5 1 FOR SUMMARIES.•) RETURN END .. .,.,..,. ___ .... ..,. ____ .,. ____ , ................. ..,.;>.;.--'-(_ .. _________ _ ... .. "' •ot 1 -... ~-----·- ! ' . ___ ... ._ .. __ ... _,.......,..,....,.,...,..,~ ... _,.,.,,., _._. ' ........ -... "U_, ~~~ .. ---- SYMBOLIC REFERENCE MlP IR:3) ENTRY PCINTS DEF LINE 2 VRAPUP 4 ... ,. .. ·-~ -· VA~UBLES SN TYPE . 136 IERR INTEGER 137 J iNTEGER c HE.SSAG£ INTEGER . . . ' ..... - Fll\: NAHES MODE TAP£2 FHT .. -,--)'"""._ TAP£4 TAPES E•TERNAlS .•. TYPE PFREPLC STATEMENT LABELS' 66 1 FHT 16 2 UO 3 Fffr· 3. 4 12:6. 5 FMT .,. --..... ~·~ REFERENCES 23 26 ·-.. ------...-.....-_ ........... ---:----...... , _ _..,. .. ___ _ RELOCATION REfS 7 DEFINED . 14 -· REFS 10 ARRAY PfM£RRS-REFS 5 ,.. "_'""',..., ... . .... __ .. _._...,.... -·--~ ~·-- WRITES 10 20 ~'lOTION. &-·--~-a~·---.. ARGS 7 DEF'l.JNE 11 13. 21 2lt 25 MOTION 13 REi=ERENCEs·-~--·---·-···-- . l 15 REFERENt£.$-···~ • 10 9 20" 19 24 lE ........ _ _._. __ 1'11>1<'·>11,.,_ .... ~--' ..... --- 9 10 15 19 20 20 DEFINED 10 20. 10 20 0 .. ~ ""'"~ . -.., ~ ""~'"' "'l--~-· ..... .,.-... _ .... ,_,.*_ ... '""--..-~-~--- 24 __ ...... - .... '<f<· ...... ... "" .,. ..... -~ ~·-_,~,. .. ~~A!'-~ ..... """'_.. .. .,. ,. -.. *. lf';J """""-'"'-·~! .,., ___ -....,,..,_,~ _._ .. ____ ,....._ ____ ,...,., __ .. ___ ....,..~ "" .. "'"" "'--~ .. --,_ ,. ....... -'·- ( • ~ ~ ... o t ~ -. • ..... ,.,., ('J • ,o.' <(' I * ' ,a' • • • ' • t t ... • • ... ~ •' ' ".. I , : • •.. • ~ -, ' • ' • •' • ,.' -<I' • ' .... l • t' • ' • o -• ' I ' " SU8ROUTI~t WRAPU~ BLOCKS PFPlt'tRS STATISTICS PROGRAM LENGT .. L£tlGTti 5 CH LABELED COHHON LENGTH 52001JB CH USED ---... -.. --·---~ ,__ 7t\/1i'5 f1EHBERS • 1~08 58 0 OPT:D ROUftD:•••/ TRAC~ !lAS NAMEtLENGTH) MESSAGEfSJ 10-\ 5 508 81/0512Do PAGE ·-·---------,,-------~ -··---... -~-... .,_ ..... .. f -~ .. __ , _____ ,..,,. '---..... ~ ---··-·--::! ____ _ --..... -.. ,-..,.,.., ........... ..,_ -... --·~~~-"""""'.,....,...__ __ ,. -... ~ .,...._......_,.. _____ ~$~, -~----- ----.·-~-----._ • .,...,.., ·----.. ----·-~---· ..... -~--..... _____ , ______ ,,_?">; • APPENDIX E liSTING~ OF PROCEDURE AND ROUTE FILES • • • •~--------~--~~ • • • ... ).-... _....,__-_.,....... ---..... ·-·------______________ ....._ ---·-... ~·--·- ~ ~;~!~"---6-0-CC_U_R-RE_N_C_ES_. _o_F_P-HR_A_S_E_F_O_UN_D_. _____________________________________ __.l FILER,CM2SOOOOrP10. USER·Rl1E204,NUYR. JIM LANDMAN 276-4888/PlS HOLD 24 HR. THEN DISPOSE. ROUTE PROGR.f\."'! TO ADl) ATJlJITIONAL FilES TO PR.9l!Ili01JLSY -~~~~~~7*!~£·;n:.:l.6oo;?o;Aw;"LJ-;v'SN;s34643rFI=GL61B,si~GtACiER;oN-;999~9i: --~---CRE.I\TE~9-TPJ\C~TAP':~,-----------------~f , COPYCGL61BrTAPEr1). I ..___euRGE!.§L~ta ·----· -----· !JS':· SEQIJE~CE-FROM-TERMI~Ak-IS-AS-FOlb.OWS~:-------'' OLD•GlolC. LABEL<TAPE',C.hFt=GL61C,SI=GLAC(t:R.ON=9999). 1, LOG ON --~3:~~~~~!i~:APE,l).-. --·-·-----· . -----· ------··-·2.-CALL-lJp. FILE·-~AME -IJSING..!'OLlh::JE:t:]IJ,.lEstHffiAMJt1E~·~1f-· -------, ~. OLDttGL6lD. 3 I SEND FILE OFF FOR OFF-LI~E BATCH PROCESS!~ SY i U~HEL (TAPE, w' F I=GL6 t D' SI=GLAC1ER' GN,.,_=...:-9--..99~9-"-)-"-. -------------______ tlsr::oF-ROl''TJ::_ .•. roM~'-' . .n.·l lJ·AS-FO'·LOWS·!-. ------------"' -COF'Y<GL610rTAPE;i>-·-·-·----:J t::-t t "1a:1 r.:. - PURGE' GL61D. .,ROIJT!:( FllENAME ,DC:= I NJ JJ~t=RJENil) II : -~~~~r7~!~E-wrFI=uL61E,·sr=uLACIER•£U·i=9 9 99>. •• -· · -··-· -4. SYSTEM RESPO~SE WILL q~:--------.. --.. ---··--·-. j CU.PY<GLo. 1£, TAPE•l>. • ..Y:L}.J:jJi_f.JJIL _l:lli_,J!1li....~L FILE .. EJ,LE!$!J1E IS i LJ:..U~§.E.qL 6 lE. NOW~JO~ FTTQ-xxv__ n OLDrHL61F • --" ·~ LA~EL(TAf-'ErLhFI=GL61F.Sl=GLACIER,QN=9999>. s·; AS JOf:\ PROGR~SSES nmotJGH SYSTEM, ITS PROS.~SS !{ -CQEY<!3l,6 1f•TAfE·:l~. ---------------·------· -·-f'4J\Y-~E FOLLOWET) BY .IISE·QF-THE-}'FINJ)'!-CQrtlt;\~---.. I PURGE .. GL61F. } DLllrGL6tG. WHIO! IS ttSPl AS FOLLOWSt "FI~m~mg~_;n L-LA:BELL~£E,. w tf.l ::GLJU.GLSI :.GLACIERr GN=999'f ·-6 :-sYSTJ:t4, RESPO~\SE. HI LL-l3E: · .... .. COPY<GLblG•TAPE,l>• PURGE, GlolG. ST=t:J<Sl MPJ=I~l .J::U:L,_MM_,_ll_ ~-~~i~~~~~~:~~~I:~~~iH,si~GLAci£·ii;-a~999·>. ---------~·.--·---~---:;.-:~R~~C~~o"iY-~M~sis E.'<s oPE!lAno~ Is THAT I -~~~~:{~~:;.~: · · .. _ ··------·--·---,·--·-~--lMfll~l)IATELY-1\FTER ·R0 1 JTE~StJqMISSlO!h-11-IE-J~--------' F.XIr.u. FTI~ xxx . ~ILL NOT HAVE PROGRESSED SllfFIC!E~TLY _MYEILE.!DAY ,#___ · ---~· -,---.-----FOR T4E FHl!}··CDMM.A~T} TO-LOCATE· iT-AMU~ HtE ~ESSAG'!-. REPLACE•DAY. -END OF INFORMA'fiON-~to JOlHS) FOU~t:J WILL APPEAR. THIS SHOUUl SE ~ ----------·--------l}ISREGARDE!1.-SHG€ESSFIJl:-·EXEGHllOM-OF-lHl5-fll:.E-! WILL NORMALLY TN<E 15 ro 45 MINIJTES .. DEPEN'DING O'i 13CS-COMP'fFE!t-CENTER WORKLOAI}. l 8 I ,~FTE:R COM~ LETT O't, THE FILE I DAY I SHOfJUl RE w-l ·------·~ ---------...;..---------«EV.IEWSJ.l-19-ASSIJRE---THE-OPERATOR-T~AT-AI:t:;-~S1RE.1l---' ~ .... ""'( ___ , ... "_,.,- """-~--.. -.. --------~--------· --------·--~ ·-----~·-·------·- OPERATIO~lS HAVE TAKE~t PLACE SATISFACTORilY, T'-!IS ---------------------15-1\CCOrrtPll-SHED FROM-TLJE·-lER.'1I "IAL-A$--FOP~t'MS.-. ----- 110Lll.,TIP-Y" --~------~---------------------------------------------------------------------~"~I£TJ9R ~H~~~-----~-------------------------~ ! . ~ -~ ~ • ! I i ... ' ... 1 :· __ ,_,:..,.._ .. _ ..,_,_.,.,._,'*"",.... """"'"'"'-'""""" •. ...,._,,.-_....... ----·---......----· ---------------------~----------------"1 '"::' ;J· • • • ----,. .. -, ... .. .... ..,. -· --... -------·----------~---· .. -·-<t"-"---.: "'' .. __ ...., ·-_ ....... --.. -~--. -.. ""-.*" _.. BYE 81/03/17. 10.39.48. selec~ des1red service: EKSl -E~~{2 ~~;~:N~~o~:2;6 ii-·a 1-1-o3/is:r.s:.o 03:42 .-35-;-8-1 -103-11?·;---------EX.i\~PLE,-flF-·JlAYFIL':-'1ESSAGEs-GE"iER.J\'fEtl-liSH!G-TAP"""'E-------tl , a•••••••~•~••••M•••••••••••• CRE.I\TION PROGR.l\M l ,_JERti.INAL-~ -··~-5.6L_TU_ -------------~------------------·'"------------__.....l . RECOVER/USER IO: TASK3 ---*** WICHITA f'HONE CHANGE MARCH 28TH::.-::SEE .t1SG.tWlCHlTfh ***-·-~· . ~--. ·--·-~··-------------· **• ENHANC~rtENfS TO TE){T MODE MARCH 15TH• SEE MSG,TEXT•*** ***CRAY AND CYBE~ DATASET MAPPING CHANGE. SEE MSGrHAPPING•*** 1 ' _.tD:;OLDrt•AY_ .... _ -· _ -~·4 ·~·------------------------------------------------__1 N>LIST ·-· 81/03/lZ· t0.40.3U. PROuRAH UAY L-! a· o~.!..!~tf-IL~~ ~ Ch2§0QQO •.f.: 19. L4~~GE:lEBAIE!LAIJ.LJE....L.r= .. ELlS~L 1IF.M-!3L11~Ml!!::SCR12II.O~OE .. ALLCQ.,-rRQI __ _. !::g~:!::!*************************************** CARD IM.",GES PROCESSED gy TJ.IE SYSTEM IN ITS SESSJml., ACCOMPANIED~ !~HERE ~tEDEllo' .-HhQ2.t6~* H ~ r L_l_tf_Ji.-.:t .. N.£_9_ft_ .. !11LT_r_Q.N.* __ .av SY.STEM ~EsPo~·iSES.JO.THOSE.cnM~tl\~ms~---.. ·-___ __ i 18.02.16.*····~·································* 1 . 18.02.16.* * . _ _..18 • 02.16, * NAME ----·JIM. LMU•MML2Z6.:;488EL •. -·--* --·-·--· .. ---··--·------ 18,02.16·* PHONE -PLS HDLD 24 HR• THEN DISPOS* 18.02.16.* HAIL TO -* ·----· -"''>~--................ ---101 .. -~,.~._-------~---------- " ·--i~:~~:~!:!*********.*******:~**********iiii*******: ~-----· -· ----" ""·-·~-~ ·-' ·---~-·--l 18.02.16.* _18.~.02 t..l~tUSER r.RM!:20~.L.t.---> ~ Jltt .lANl:atiAH...2Z6::!1fJ8.W-L---'"~·· ---------------------------------" 19.02.1.6.LS HOLD 24 HR, THiN DISPOSE. 18.02.16. CHARGE LIMITS OVERRIDDEN -18t,0;!.16· -' ---· ..... --------------- ___ ,,_ ______ ,_ -------·-""'--18.02.1~,. JOB ENTR'( 81./03/16. 18•02 .. 13. 18.02.t9.0LD,GL61A. ~JL02t21Jl .. ~~ghtrnP.!;t_Q=l~09•E:.Q::A!.ltfi=GL6t!l!.S.I=G!-AC .L~~El~~C0!1r11\~IS_IHF E!<SLSYSTt:M'S.CO~l\:t!JIH.lC!LlS...!JSffi..IO...ACCESS_t"J\Gu.;:-:;........_ ~::g~:;~:l~~;~~~;!sn~ii-ING _ SAVE TAPE. or· NT. NETic TAP~s. IN THis Ci\SE~ THE t'QN=l" sPECIFJCtTIO!I IN THE E~!l oF THE ·L~BEL" -19 .. 0~1~.2.. Tl'fS~fHS.t ~GLACIER. •. -----~·'-GN:::..__t! SIA.tEt1E~iT-lS,. USEU_TOJ~SlTlO~LIHEJAP.t....l\lJHE..ElRSI ~O~!LEOSillO!LOtUHE.,.IAeE . ._, . 18 •19 •30 • NT6bASSIGNED TO TAPE , v'i:H-I=S 34643 • ~IHE.N WRITING ON TAPES., otJLY THE FURST FILE WRin EN 1S IDENTIFIED I!~ THIS ~AY--11' 18.19.35.COPY(GL61A?TAPEr1). • --1Bu.~~.lZ.........EOLEMCotJNIERE!lt..--All S!J9SEQUL:1t FILES MUSL.Bl:JiRll1ELAL.flN=9999:.. ~ 18~19,37.* VERIFY,GL61A~TAPE,ArR,L=OUTPUT,N=O. • 18.19.39. VERl'FY GOOD, SINCE THIS IS THE FiRST TIME T~AT TJiiS PARTIC 1 JLA~ T.'\PE HAS l3EE~ ACCESSE'l~ NO -···i:~i::!~:~~~~~t_~i:!A , ·--------~---VS!'f-(·VOLUME·SERIAL·NJJWlEP.)-HAS ~'=EM-ASS-lG'iE1l;--~~!:lTE~·THAT·THE-SYST81-RESPDNS!-l..---,. 18, t9.41.LABEL<TAPErF!=GL6tB.S!=GLACIER,QN=9999) • INCLUl)ES T~E REMARK "VS"~=534543 11 , TJ.JIS IS THf~. ~ JM13ER BY ~iHICH BCS Will IOE~!TII:Y -----lS t 19 i 4 2 t-Tl1S=..Itf.S..._EXrufi~IliD--'LSJ.l:S;Hll 43 , QT= NIt tH fS-P!\RFI €lJI:AP.-REEI:-BF-lAPE;-'4HH£-THE-VS~fS-i(}T-~1!:9lE!l-ffrS'Jl3SEOtJE!tT-OPEM'fw---! 18.19~42. THS-THS. SLACIER , GN• 1. 19.08.21. NT60tASSIGNED TO TAPE , VSN=S34643. IONS 1)lJRINCi T~IS S~SSIO~., IT WILL HF. USE1J .l\T TJ.!E ~Elil"INI~G OF E.~CH F 1 JPJ~E _ ....... 12.tll.fh21t _NQ "WRUE . .:ENitDL.E.r ._TAP.IW:\~ 1SESSIO!'h-·-.. ----------------------., 19.08.21. SECURE MEMORY• DUHP DISABLED. I 19.08.22.EXITTU• 1 --~.av~a • 22 .J!A'!E'JLE.r.llA¥· ---------\~HEN-.ffiEMPflMG-TEHOMPI:'Mtfflf-T~E-tA~EI:-ff.:f:11lESr t-1Ant:-At-1R.-1q.;LJi"sA•rERROR--' JOB PROCESSING ccus 2.(~14 HAS DETECTE~ .~ND FIJRTH~R PROO:SSlf.JG HAS ~tOT 1\TT~~IPTED. l ' -llYf:_Sl./03/1'l •.. "10 •.. 41.5Z.a.--------------.-------..... -----------------------------------:.t ~ l ~ . • ___________ __,~ :; L-lHtl.cct den r:~~ ~i.G..r:L-...-~ -------------------------------------·--.~ .. , J • • '' .._-=s-=-e~~~!.!~d service; Et<Sl ____________________ ___..: ____ __.._~-------------------..___. at/oJ/17. to.42.ta. EX.t\MPLE OF TER:'1l~AL SESSION IJSED TO S1JSMIT TAPE-CREATION El\51 17SG.N0501.25 A 81/03/15.DS-O 03.42.35. Bl/0,=.31:....:1:::..::7-=·~-----J013 ·FOR .l3,l\TCH-EXE£1JTI0~'f------------------------, llllllllllillll.llilllllllllllll!lllll. --·-~ TERMINAL 56 p TTY LOG ON RECOVER/U§ER 10: T~_S_K.....;..3-~- **~ WICHITA PHONE CHANGE MARCH 28TH--SEE MSG,.WICHITA. *** ~ *** ENHANCEJ'!ENTS ro TEXT MODE .MARfft_~§.T'!!-!?EE :!1S~·TE;~T !~*~ . =···SY.STEM-GE~JFO.J\IEI}-"11=SSAGt;S··OF -Ik'TERt=s.T TQ...;SYSTJ:M I'SERS ---------. . ***CRAY ANO CYBER DATASET MAPPING CHANuE. SEE MSG,MAPPING.*** l ' -i"\t\ '"" •il • ti-'1 r l N>OLD•FILER CALLING UP OF FILE TO BE SUBMITTED FOR BATCH PROCESSING i N>ROUTECFlLER~nctnN,UN=RJEAN1> USE OF "'ROUTE" COMMAND TO SEND FILE OFF FOR PROCESSH~G l --8i.to3i'l7 ;· 10.43 • .!5. ··t-.lLE-FILER ·Is-· NOW Joa-·FTTOHTv:-svsTEM. RESPC>NSE-SHOWING--JOB·· IDENTifi'C'ATtON ASSIGNED N>FIN£hFTf(lHTV USE OF "FINDl: COMMAND TO CHECK JOB STATUS ' i ·---ST=Et\Sl. -~-.. ... . . 10.43.47 NO JOBCS) FOUND. EXAMPLE OF ERRONEOUS OUTPUT FROM SYSTEM i_Nlf.!tl~!.fTf!lHTV ·-··------·· ------··-__ ST•Et\Sl MID•Hl 10.44.09 ___ ,_ . ...-.-------~ --- _______ ...,.__ .. ____ , 1 ----------·~~---.,.,..., ··---·-·---------"""'· F~fOf-t!.Y._ ! N_~ T_! HEll(EVEt!~-~OLLOUT • =FYP I CAL RESPONSE~ WHEN SYSTEM RECOGN !ZES -JOB 1 S ·PRESENCE.;-,BUT·-CORE/PER I PHERAL-SPACE-·---·--~ " N>BYE . IS LIMITED SO THAT NO WORK CAN BE DONE ON JOB, . JOB PROCESSING CCUS 5.156 -I«v£~at/o37li7 1o:46.36-.-·. ··-.. ·---tos=OEE "-· ,,_ ~···--·----~-.. ~ ---·-------------·-------------------------------------------, '~-------···---~----··-··_. ____ _ .--·--__ _. . .., ... , ____ . .........,_..,._.,.,.,. '-~------- _ ____ __. __ ._. ______ ._....__. _______________________ ~ ...___ ___ ._ .... ~-·---··-------------------....;._------------------ ·--~ -·· ... ~-~------·---. __ ,_ .. ..-......._,,_ .. ~,-......,_,.,_ -------·--·----·-... ___ _..,. .. __, .. _....._ ____________________ --, --··--·· -~--· I : , + .. . --·--·"'"''·' ,,., ------·· ~., __ ............. ___________________________________ ___,.._____,1 ; ------