-:IBJodor 4000		' Programmname und Pufferlnge
*D      ' Dimensionierungen
mi 1500 ' maximale Anzahl von Intervallen der Fahnenfunktionen
mp 12   ' maximal 12 Probanden
nw  1   ' nur 1 Windrichtungssektor
nz  400 ' Anzahl der vertikalen Intervalle
zp  1.5 ' Hhe der Aufpunkte ber Grund
*
*A      ' Festlegung der Aufpunkte
np 12   ' Tatschliche Anzahl der Probanden
xp  1079  1004   929   854   779   705   630   555   480   405   331   256
yp   922   916   911   906   901   895   890   885   880   875   869   864
*
*Q           ' Flchenquelle (2 Stlle) 58*100 m, um 75 Grad gedreht
xq   40.79   ' X-Koordinate eines Eckpunktes
yq  -40.90   ' Y-Koordinate eines Eckpunktes
aq   58.00   ' Lnge eines Stalles
bq  100.00   ' Breite der beiden Stlle zusammen
rq   75.00   ' um 75 Grad gegen den Uhrzeiger gedreht
hq    0.00   ' Unterkante der Emission ist am Erdboden
cq    5.00   ' Emissionsgebiet reicht bis in 5 m Hhe
eq  141000   ' Quellstrke in GE/s (=507 MGE/h)
lq    5.00   ' Vorgabe fr die Aufrasterung der Quelle
li    1.00   ' Diskretisierung der Fahnenfunktionen
ni    1500   ' Anzahl der Intervalle
*
*P          ' Unvernderliche Parameter
nu    1     ' Nur 1 Untersektor
ha   10	    ' Anemometerhhe
tm  600     ' Begehungszeit ist 10 Minuten
z0    0.033 ' Rauhigkeitslnge
gs    1.5   ' Feldgeruchsschwelle 
al    0     ' Voll implizit rechnen
			' Vertikales Raster mit variabler Maschenweite
zk  0 0.5132 1.029 1.548 2.07 2.596 3.124 3.655 4.189 4.727 5.267 5.811 6.357 6.907 7.46 8.016 8.576 9.139 9.704 10.27 10.85 11.42 12 12.58 13.17 13.76 14.35 14.95 15.55 16.15 16.76 17.37 17.98 18.6 19.22 19.84 20.47 21.1 21.73 22.37 23.02 23.66 24.31 24.96 25.62 26.28 26.95 27.62 28.29 28.97 29.65 30.33 31.02 31.71 32.41 33.11 33.81 34.52 35.23 35.95 36.67 37.39 38.12 38.86 39.59 40.34 41.08 41.83 42.59 43.35 44.11 44.88 45.65 46.43 47.21 47.99 48.78 49.58 50.38 51.18 51.99 52.8 53.62 54.44 55.27 56.1 56.94 57.78 58.63 59.48 60.34 61.2 62.07 62.94 63.81 64.7 65.58 66.47 67.37 68.27 69.18 70.09 71.01 71.93 72.86 73.8 74.74 75.68 76.63 77.59 78.55 79.51 80.49 81.46 82.45 83.44 84.43 85.43 86.44 87.45 88.47 89.49 90.52 91.56 92.6 93.65 94.7 95.76 96.83 97.9 98.98 100.1 101.2 102.2 103.4 104.5 105.6 106.7 107.8 109 110.1 111.3 112.4 113.6 114.7 115.9 117.1 118.3 119.5 120.7 121.9 123.1 124.3 125.6 126.8 128.1 129.3 130.6 131.8 133.1 134.4 135.7 137 138.3 139.6 140.9 142.2 143.6 144.9 146.3 147.6 149 150.4 151.7 153.1 154.5 155.9 157.3 158.8 160.2 161.6 163.1 164.5 166 167.5 168.9 170.4 171.9 173.4 175 176.5 178 179.6 181.1 182.7 184.2 185.8 187.4 189 190.6 192.2 193.8 195.5 197.1 198.7 200.4 202.1 203.8 205.4 207.1 208.9 210.6 212.3 214 215.8 217.6 219.3 221.1 222.9 224.7 226.5 228.3 230.2 232 233.8 235.7 237.6 239.5 241.4 243.3 245.2 247.1 249.1 251 253 254.9 256.9 258.9 260.9 263 265 267 269.1 271.1 273.2 275.3 277.4 279.5 281.7 283.8 286 288.1 290.3 292.5 294.7 296.9 299.1 301.4 303.6 305.9 308.2 310.5 312.8 315.1 317.4 319.8 322.1 324.5 326.9 329.3 331.7 334.1 336.6 339 341.5 344 346.5 349 351.5 354.1 356.6 359.2 361.8 364.4 367 369.6 372.3 374.9 377.6 380.3 383 385.7 388.5 391.2 394 396.8 399.6 402.4 405.2 408.1 411 413.9 416.8 419.7 422.6 425.6 428.5 431.5 434.5 437.5 440.6 443.6 446.7 449.8 452.9 456 459.2 462.4 465.5 468.7 472 475.2 478.5 481.7 485 488.3 491.7 495 498.4 501.8 505.2 508.6 512.1 515.5 519 522.5 526.1 529.6 533.2 536.8 540.4 544 547.7 551.4 555.1 558.8 562.5 566.3 570.1 573.9 577.7 581.5 585.4 589.3 593.2 597.1 601.1 605.1 609.1 613.1 617.2 621.3 625.4 629.5 633.6 637.8 642 646.2 650.5 654.7 659 663.3 667.7 672 676.4 680.9 685.3 689.8 694.3 698.8 703.3 707.9 712.5 717.1 721.8 726.5 731.2 735.9 740.7 745.5 750.3 755.1 760 764.9 769.8 774.8 779.8 784.8 789.8 794.9 800
*
*P   run    ' Aktuelle meteorologische Parameter (USAT-Messungen)
dw   600    ' Dauer der Situation
re   220    ' Windrichtung in Grad gegen Nord
ua     6.44 ' Windgeschwindigkeit
lm  -387.6  ' Monin-Obukhov-Lnge
hm   800.0  ' Mischungsschichthhe
sv     0.78 ' Horizontale Windfluktuation
sw     0.42 ' Vertikale Windfluktuation
*
** ## 24.08.92 10:00  ' Setzen einer Marke im Protokoll-File
*
*L    pnt   ' Auflistung der Werte an den Aufpunkten
*E          ' Ende des Rechenlaufes
