-20- 
HARANA 
87/12/17. 
C 
C 
C 
C 
C 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
PROGRAM HARANA(INPUT,OUTPUT,TAPE60,TAPE70,TAPE80,TAPE62) 
PANSCH, HARMONISCHE ANALYSE VON GEZEITEN UNO GEZEITENSTROEME N, 
GERUFEN VON CCL-PROCEDUR HARANA. 
UNTERPROGRAMMSATZ FUER HARMONISCHE ANALYSEN ‘HAMANA’ WIRD GERUFEN, 
SOURCE-PROGRAMME AUF FILE ‘PANPROG/UN = HYPAN‘ , 
UE8ERSETZTER UNTER-PROGRAMMSATZ AUF REL-FILE "HYLIB/UN = HYL'IB‘ 
UEBERSETZTES HAUPTPROGRAMM AUF FILE *PAN RELB/UN = HYPAN * . 
FUER DIE BEOBACHTUNGSDATEN SIND 2 STRUKTUREN MOEGLICH, 
(SIEHE SU8R. INPUT): 
1. GENORMTE DATENSAETZE FUER GLEICHABST AENDI GE BEOBACHTUNGEN, 
KLEINSTMOEGLICHES DELTA-T (DT) IST 1 MINUTE, 
EINLESEPROGRAMM IST SU8R . RDJR , 
BESCHREIBUNGEN DER DATENSAETZE SIEHE DORT. 
SOLCHE DATENSAETZE ENTSTEHEN Z.8. BEI DER DIGITALISIERUNG VON 
PEGELBOEGEN AM * MOP-DIGIPLAN * GERAET UEBER DAS PROGRAMMSYSTEM 
*JAHRPG‘ , * SUBR . STDOUT*. 
2. SONDERFORMAT FUER BEOBACHTUNGEN AUS SPANIEN, 
(SIEHE SUBR. INPUT): 
UMSCHALTUNG AUF DIE RICHTIGE DATENSTRUKTUR GESCHIEHT 
MITTELS PARAMETER * F M * VON DER CCL-PROC. ‘HARANA ‘ 
HARANA IST SO KONSTRUIERT, DASS BEOBACHTUNGEN FUER HOECHSTENS 1 
KALENDERJAHR EINGELESEN WERDEN. WENN BEOBACHTUNGSREIHEN VORLIEGEN, 
IN DENEN EIN JAHRESWECHSEL VORKOMMT, IST ES ZWECKMAE SS I G , DEN EIN 
GABETEIL VON HARANA (Z.B. UEBER SUBR. INPUT) ENTSPRECHEND ZU 
AENDERN ODER SUBR. HAMANA DIREKT ZU BENUTZEN. 
PARAMETER WIE: 
PEGELNR., NAME DER EINGABEDATEI, DEREN USER-NR., ANFANGSDATUM, 
FORMATPARAMETER, SEITENZAHLEN DER J/V-TAFEL FUER DIE PARTIALTIDEN 
WERDEN UE8ER DEN FILE *INPUT‘, AM BESTEN MITTELS DER 
CCL-PROC. ‘HARANA’ VOM PROGRAMM UEBERNOMMEN. 
HIERFUER ENTHAELT DAS PROGR. FOLGENDE READ-STATEME NTS, DIE VON 
DER CCL-PROC. ERFUELLT WERDEN (NFMT IST DER FORMAT-SCHALTER): 
C INPUT STATIONSNR. MITTLEREN WASSERSTAND IN METERN, NAME DES EINGA 
C FILES UND DESSEN USER-NR. 
READ’, ISTN, XMT.JF.UN 
READ *, NA, NE 
C READ ANFANGSDATUM DER MESSUNG 
READ * , JA , MA, ITA , ISA , IMINA 
105 N = N ♦ 1 
READ 110, ENDE, IPG(N), NFMT 
110 FORMAT(A3,6X,I3,2 8 X,12) 
IF(ENDE.NE.TENDE) GOTO 105 
BEDEUTUNG EINIGER PARAMETER: 
NMAX = ANZAHL DER EINGELESENEN BEOBACHTUNGEN 
NMAX MUSS UNGERADE SEIN 
NA, NE = ANFANG UND ENDE DES AUSDRUCKS 
NUR WENN NA.GT.NE IST, GIBT ES EINE FEHLERVERTEILUNG, 
WOBEI DANN JEDOCH DER ARRAY DER BEOBACHTUNGEN ZER- 
STOERT WIRD. 
DT = ABSTAND DER MESSUNGEN IN MINUTEN 
IPG(N) = TIDEN UEBER SEITENZAHL DER J/V TAFEL IDENTIFIZIERT 
WEITERE DATEN ZUR STEUERUNG 
DURCH PARAMETER NFMT ( = FM 
SUBROUTINE INPUT. 
DES INPUTS WERDEN GESTEUERT 
IN PROCEDUR HARANA), VGL. 
DIE DIMENSIONIERUNG REICHT FUER: 
61 PARTIALTIDEN, 18500 BEOBACHTUNGEN 
!!!!!! KEINE SICHERUNG GEGEN UEBERLAUF !!!!!!! 
OUTPUT : 
AMPLITUDEN UND PHASEN WERDEN MITTELS VO+V UND J AUF HARMONISCHE 
KONSTANTEN UMGERECHNET 
SIGMA: WINKELGESCHW. IN GRD/STD, WIRD VON HAMANA BERECHNET 
DIE ASTRONOMISCHEN KONSTANTEN (VO+V) UND J WERDEN IM PROGRAMM 
HAMANA BERECHNET UND VON HARANA AUSGEGEBEN FUER DAS ANFANGSJAHR 
DER BEOBACHTUNGSREIHE. 
DRO, DR, DPHI : FEHLER 
VV : FEHLER EINER MESSUNG 
LISTE DER HARM. KONST. UND HISTOGRAMM DER FEHLER UEBER TAPE80 
TAPE70 GIBT HARM.KONSTANTEN SOWIE VO»V UND J IM GENORMTEN 
FORMAT "BIRKNER” AUS. 
TAPE70 BEKOMMT RECORDNAMEN UND KOMMENTARZEILEN 
KOMMENTARZEILEN DEFINIERT DURCH .* AM ANFANG, 
TAPE70 KANN UEBER CCL - PROC . *HARANA‘ AUF FILE GESAMMELT WERDEN. 
HARANA 
1 
HARANA 
2 
HARANA 
3 
HARANA 
4 
HARANA 
5 
HARANA 
6 
HARANA 
7 
HARANA 
8 
HARANA 
9 
HARANA 
10 
HARANA 
11 
HARANA 
12 
HARANA 
13 
HARANA 
14 
HARANA 
15 
HARANA 
16 
HARANA 
17 
HARANA 
18 
HARANA 
19 
HARANA 
20 
HARANA 
21 
HARANA 
22 
HARANA 
23 
HARANA 
24 
HARANA 
25 
HARANA 
26 
HARANA 
27 
HARANA 
28 
HARANA 
29 
HARANA 
30 
HARANA 
31 
HARANA 
32 
HARANA 
33 
HARANA 
34 
HARANA 
35 
HARANA 
36 
HARANA 
37 
EHARANA 
38 
HARANA 
39 
HARANA 
40 
HARANA 
41 
HARANA 
42 
HARANA 
43 
HARANA 
44 
HARANA 
45 
HARANA 
46 
HARANA 
47 
HARANA 
48 
HARANA 
49 
HARANA 
50 
HARANA 
51 
HARANA 
52 
HARANA 
53 
HARANA 
54 
HARANA 
55 
HARANA 
56 
HARANA 
57 
HARANA 
58 
HARANA 
59 
HARANA 
60 
HARANA 
61 
HARANA 
62 
HARANA 
63 
HARANA 
64 
HARANA 
65 
HARANA 
66 
HARANA 
67 
HARANA 
68 
HARANA 
69 
HARANA 
70 
HARANA 
71 
HARANA 
72 
HARANA 
73 
HARANA 
74 
HARANA 
75 
HARANA 
76 
HARANA 
77 
HARANA 
78 
HARANA 
79 
HARANA 
80 
HARANA 
81