source: palm/trunk/SCRIPTS/NCL/.ncl.config.default @ 876

Last change on this file since 876 was 782, checked in by heinze, 13 years ago

Bugfix concerning setting of font size in legends.

File size: 69.6 KB
RevLine 
[418]1;*********************************************************
2; Copying .hluresfile in the home directory
3;*********************************************************
4
5command = "ksh 'if [ ! -f $HOME/.hluresfile ]; then; "+\
6          "cp $PALM_BIN/NCL/.hluresfile $HOME; fi'"
7system(command)
8   
9;*********************************************************
10
11
[190]12begin
13
14;*********************************************************
[194]15
16script=which_script
[526]17
18   ;******************************************************
19   ; BE AWARE: NCl uses double quotes (") to denote strings
20   ;       to retrieve the double quote character - use dq:
21
22    dq=str_get_dq()
23
24   ;******************************************************
[190]25   
26;*********************************************************
[194]27   
[190]28   ;******************************************************
29   ; parameters used by CROSS_SECTIONS
30   ;******************************************************
31   
[194]32   if (script .EQ. "cross_section")then
[190]33   
34      ;***************************************************
35      ; REQUIRED --file_1-- INPUT FILE
36      ;
[418]37      ; input file produced by PALM; if there is more than one file for
38      ; all timesteps
39      ; of a job chain,
40      ; declare path and file name without cycle number and ".nc" (first and
41      ; last cycle numbers are given with the parameters 'start_f' and
42      ; 'end_f');
[218]43      ; otherwise declare path and full file name
[190]44      ;
45      ; data type: string
46      ;
[418]47      ; example: file_1 = "/path_to_file/file_xy_av"      if you use more than
48      ;                                                   one cycle number
49      ;          file_1 = "/path_to_file/file_xy_av.4.nc" if you use one file
50      ;                                              (e.g. with cycle number 4)
[218]51      ;
[190]52      ; default:   "File in"
53      ;***************************************************
54      if(.not. isvar("file_1"))then
[194]55
56
[267]57         file_1 = "File in"
[190]58         
[194]59         
[190]60      end if
61      ;***************************************************
[513]62      ; OPTIONAL/REQUIRED if more than one file of a job chain
[418]63      ;          --start_f-- START OF CYCLIC NUMBER
[190]64      ;
[418]65      ; if there is more than one file for all timesteps of a job chain,
66      ; declare the first cyclicnumber which contains timesteps
67      ; you'd like to use
[218]68      ;
69      ; data type: integer
70      ;
[418]71      ; example:   start_f = 3 (if first file: example_xy_av.3.nc) and
72      ;            start_f = 0 (if first file: example_xy_av.nc)
[218]73      ;
74      ; default:   -1 
75      ;***************************************************
76      if (.not. isvar("start_f"))then 
77     
78         
79         start_f = -1
80         
81         
82      end if
83      ;***************************************************
[513]84      ; OPTIONAL/REQUIRED if more than one file of a job chain
85      ;          --end_f-- END OF CYCLIC NUMBER
[218]86      ;
[513]87      ; if there is more than one file for all timesteps of a job chain,
88      ; declare the last cyclicnumber which contains timesteps you'd like
89      ; to use
[218]90      ;
91      ; data type: integer
92      ;
[418]93      ; example:   end_f = 48 (if last file: example_xy_av.48.nc) and
94      ;            end_f = 0 (if last file: example_xy_av.nc)
[218]95      ;
96      ; default:   -1 
97      ;***************************************************
98      if (.not. isvar("end_f"))then 
99     
100         
101         end_f = -1
102         
103         
104      end if
105      ;***************************************************
[190]106      ; OPTIONAL --format_out-- OUTPUT FORMAT
107      ;
[418]108      ; format of the output file;
[532]109      ; supported file formats: x11, pdf, ps, eps, epsi ncgm or png
[190]110      ;
111      ; data type: string
112      ;
[218]113      ; example: format_out = "pdf"
114      ;
[190]115      ; default:   "x11"
116      ;***************************************************
117      if(.not. isvar("format_out"))then 
118     
119     
120         format_out = "x11"
121         
122         
123      end if
124      ;***************************************************
125      ; OPTIONAL --file_out-- OUTPUT FILE
126      ;
[218]127      ; path and name of the output file
[190]128      ;
129      ; data type: string
130      ;
[218]131      ; example: file_out = "/home/path_to_output/test_cs"
132      ;
[194]133      ; default:   "~/test_cs"
[190]134      ;***************************************************
135      if(.not. isvar("file_out"))then   
136     
137     
138         file_out = "~/test_cs"
139         
140         
141      end if     
142      ;***************************************************
143      ; OPTIONAL --var-- OUTPUT VARIABLES
144      ;
[526]145      ; names of output variables;
146      ; inidcate them with one comma before and after each variable;
147      ; if the name contains double quotes (") use dq and the '+' operation to
148      ; concatenate the strings
[190]149      ;
150      ; data type: string
[218]151      ;
[342]152      ; example: var = ",u,v,w,"
[190]153      ;
[218]154      ; default:   "all" (all available variables are plotted)
[190]155      ;***************************************************
156      if(.not. isvar("var"))then
157     
158         
159         var = "all"
160         
161         
162      end if     
163      ;***************************************************
164      ; OPTIONAL --start_time_step-- FIRST TIME STEP
165      ;
[418]166      ; first time step of plot; there is no need to specify a precise time
167      ; value from the input file,
[218]168      ; 'start_time_step' is rounded to the next existent time step
[190]169      ;
170      ; data type: double; dimension: [hour]
171      ;
[418]172      ; example:   start_time_step = 0.5d
[218]173      ;
[190]174      ; default:   -1.d (first available time step)
175      ;***************************************************
176      if(.not. isvar("start_time_step"))then
177     
178         
179         start_time_step = -1.d
180         
181         
182      end if     
183      ;***************************************************
184      ; OPTIONAL --end_time_step-- LAST TIME STEP
185      ;
[418]186      ; last time step of plot; there is no need to specify a precise time
187      ; value from the input file,
[218]188      ; 'end_time_step' is rounded to the next existent time step
[190]189      ;
190      ; data type: double; dimension: [hour]
191      ;
[418]192      ; example:   end_time_step = 2.0d
[218]193      ;
[190]194      ; default:   -1.d (last available time step)
195      ;***************************************************
196      if(.not. isvar("end_time_step"))then       
197     
198     
199         end_time_step = -1.d
200         
201         
202      end if     
203      ;***************************************************
204      ; OPTIONAL --xs-- MINIMUM X-AXIS
205      ;
[513]206      ; value for minimum of x-axis, selectable if there are
[566]207      ; NO preset layers
[418]208      ; for x (as for XY or XZ 2D-DATA);
209      ; there is no need to specify a precise meter value from the input file,
210      ; it is rounded to the next existent value
[190]211      ;
212      ; data type: double; dimension: [meter]
213      ;
[418]214      ; example: xs = 150.0d
[218]215      ;
[190]216      ; default:   -1.d (minimum of range)
217      ;***************************************************
218      if(.not. isvar("xs"))then     
219     
220     
221         xs = -1.d
222         
223         
224      end if     
225      ;***************************************************
226      ; OPTIONAL --xe-- MAXIMUM X-AXIS
227      ;
[513]228      ; value for maximum of x-axis, selectable if there are
[566]229      ; NO preset layers
[418]230      ; for x (as for XY or XZ 2D-DATA);
231      ; there is no need to specify a precise meter value from the input file,
232      ; it is rounded to the next existent value
[190]233      ;
234      ; data type: double; dimension: [meter]
235      ;
[418]236      ; example: xe = 300.0d
[218]237      ;
[190]238      ; default:   -1.d (maximum of range)
239      ;***************************************************
240      if(.not. isvar("xe"))then     
241     
242     
243         xe = -1.d
244         
245         
246      end if     
247      ;***************************************************
248      ; OPTIONAL --ys-- MINIMUM Y-AXIS
249      ;
[513]250      ; value for minimum of y-axis, selectable if there are
[566]251      ; NO preset layers
[418]252      ; for y (as for XY or YZ 2D-DATA);
253      ; there is no need to specify a precise meter value from the input file,
254      ; it is rounded to the next existent value
[190]255      ;
256      ; data type: double; dimension: [meter]
257      ;
[418]258      ; example: ys = 150.0d
[218]259      ;
[190]260      ; default:   -1.d (minimum of range)
261      ;***************************************************
262      if(.not. isvar("ys"))then     
263     
264     
265         ys = -1.d
266         
267         
268      end if     
269      ;***************************************************
270      ; OPTIONAL --ye-- MAXIMUM Y-AXIS
271      ;
[566]272      ; value for maximum of y-axis, selectable if there are NO preset layers
[418]273      ; for y (as for XY or YZ 2D-DATA);
274      ; there is no need to specify a precise meter value from the input file,
275      ; it is rounded to the next existent value
[190]276      ;
277      ; data type: double; dimension: [meter]
278      ;
[418]279      ; example: ye = 300.0d
[218]280      ;
[190]281      ; default:   -1.d (maximum of range)
282      ;***************************************************
283      if(.not. isvar("ye"))then   
284     
285         
286         ye = -1.d
287         
288         
289      end if     
290      ;***************************************************
291      ; OPTIONAL --zs-- MINIMUM Z-AXIS
292      ;
[513]293      ; index for minimum of z-axis, selectable if there are
[566]294      ; NO preset layers
[418]295      ; for z (as for XZ or YZ 2D-DATA);
[513]296      ; you cannot specify a meter value from the input file due to
297      ; grid stretching 
[190]298      ;
299      ; data type: integer
300      ;
[218]301      ; example: zs = 0
302      ;
[190]303      ; default:   -1 (minimum of range)
304      ;***************************************************
305      if(.not. isvar("zs"))then     
306     
307     
308         zs = -1
309         
310         
311      end if     
312      ;***************************************************
313      ; OPTIONAL --ze-- MAXIMUM Z-AXIS
314      ;
[513]315      ; index for maximum of z-axis, selectable if there are
[566]316      ; NO preset layers
[418]317      ; for z (as for XZ or YZ 2D-DATA);
[513]318      ; you cannot specify a meter value from the input file due to
319      ; grid stretching 
[190]320      ;
321      ; data type: integer
322      ;
[218]323      ; example: ze = 15
324      ;
[190]325      ; default:   -1 (maximum of range)
326      ;***************************************************
327      if(.not. isvar("ze"))then
328     
329           
330         ze = -1
331         
332         
333      end if     
334      ;***************************************************
[566]335      ; OPTIONAL --no_columns-- NUMBER OF COLUMNS
336      ;
337      ; number of plots in one row
338      ;
339      ; data type: integer
340      ;
341      ; example: no_columns = 1
342      ;
343      ; default:   1
344      ;***************************************************
345      if(.not. isvar("no_columns"))then 
346     
347     
348         no_columns = 1
349         
350         
351      end if     
352      ;***************************************************
353      ; OPTIONAL --no_rows-- NUMBER OF ROWS
354      ;
355      ; number of plots in one column
356      ;
357      ; data type: integer
358      ;
359      ; example: no_rows = 2
360      ;
361      ; default:   2
362      ;***************************************************
363      if(.not. isvar("no_rows"))then     
364     
365     
366         no_rows = 2
367         
368         
369      end if     
370      ;***************************************************
371      ; OPTIONAL --sort-- TYPE OF SORTING
372      ;
373      ; sequence of plots; sorting either by time step [="time"] or
374      ; by layer/height [="layer"]
375      ;
376      ; data type: string
377      ;
378      ; example: sort = "layer"
379      ;
380      ; default:   "layer"
381      ;***************************************************
382      if(.not. isvar("sort"))then       
383     
384     
385         sort = "layer"
386         
387         
388      end if     
389      ;***************************************************
[190]390      ; OPTIONAL --mode-- TYPE OF PLOT
391      ;
[418]392      ; isoline plots [="Line"], contour plots [="Fill"] or both [="Both"]
393      ; can be choosen
[190]394      ;
395      ; data type: string
396      ;
[218]397      ; example: mode = "Fill"
398      ;
[190]399      ; default:   "Fill"
400      ;***************************************************
401      if(.not. isvar("mode"))then       
402     
403     
404         mode = "Fill"
405         
406         
407      end if     
408      ;***************************************************
409      ; OPTIONAL --fill_mode-- TYPE OF FILLING
410      ;
[418]411      ; area fill [="AreaFill"], raster fill [="RasterFill"] or
412      ; cell fill [="CellFill"] can be choosen
[190]413      ;
414      ; data type: string
415      ;
[218]416      ; example: fill_mode = "AreaFill"
417      ;
[517]418      ; default:    "RasterFill"
[190]419      ;***************************************************
420      if(.not. isvar("fill_mode"))then   
421     
422     
[517]423         fill_mode = "RasterFill"
[190]424         
425         
426      end if     
427      ;***************************************************
428      ; OPTIONAL --shape-- ASPECT RATIO
429      ;
[218]430      ; aspect ratio of axis is kept [=1] or not[=0]
[190]431      ;
432      ; data type: integer
433      ;
[218]434      ; example: shape = 1
435      ;
[190]436      ; default:   1
437      ;***************************************************
438      if(.not. isvar("shape"))then
439     
440         
441         shape = 1
442         
443         
[218]444      end if
[190]445      ;***************************************************
[218]446      ; OPTIONAL --font_size-- FONT SIZE OF STRINGS
447      ;
448      ; font size can be changed to fit to the current plot
449      ;
450      ; data type: float
451      ;
452      ; example: font_size = 0.04
453      ;
454      ; default:   0.04
455      ;***************************************************
456      if(.not. isvar("font_size"))then
457     
458         
459         font_size = 0.04
460         
461         
462      end if
463      ;***************************************************
464      ; OPTIONAL --font_size_legend-- FONT SIZE OF LEGEND STRINGS
465      ;
466      ; font size of the legend can be changed to fit to the current plot
467      ;
468      ; data type: float
469      ;
[517]470      ; example: font_size_legend = 0.04
[218]471      ;
[517]472      ; default:   0.04
[218]473      ;***************************************************
474      if(.not. isvar("font_size_legend"))then
475     
476         
[517]477         font_size_legend = 0.04
[218]478         
479         
480      end if   
481      ;***************************************************
[418]482      ; OPTIONAL --legend_label_stride-- REDUCTION OF THE NUMBER
483      ;                                  OF LABELS IN THE LEGEND
[218]484      ;
[418]485      ; if legend_label_stride is set to 1 every label is shown;
486      ; if set to 2 every second, ...
[218]487      ;
488      ; data type: integer
489      ;
490      ; example: legend_label_stride = 2
491      ;
492      ; default:   2
493      ;***************************************************
494      if(.not. isvar("legend_label_reduction"))then
495     
496         
497         legend_label_stride = 2
498         
499         
500      end if
501      ;***************************************************
[513]502      ; OPTIONAL --axes_explicit--
503      ;          EXPLICIT SETTINGS OF X- AND Y-AXES ARE SWITCHED ON
[218]504      ;
[418]505      ; to use several parameters to set up the axes, 'axes_explicit'
506      ; must be switched on [=1]; if switched off [=0] units of axes are [m]
[218]507      ;
508      ; data type: integer
509      ;
510      ; example: axes_explicit = 0
511      ;
512      ; default:   0
513      ;***************************************************
514      if(.not. isvar("axes_explicit"))then
515     
516         
517         axes_explicit = 0
518         
519         
520      end if
521      ;***************************************************
[418]522      ; OPTIONAL if axes_explicit = 1 --major_ticks_x--
523      ;                              NUMBER OF MAJOR TICK MARKS AT X-AXIS
[218]524      ;
[418]525      ; major_ticks_x can be set to any integer, best segmentation of x-axis
526      ; can be achieved, if
527      ; (number of gripdpoints in x-direction)/(major_ticks_x-1)=INTEGER,
528      ; e.g. 128/8 = 16 -> major_ticks_x should be set to 9
[218]529      ;
530      ; data type: integer
531      ;
532      ; example: major_ticks_x = 6
533      ;
534      ; default:   6
535      ;***************************************************
536      if(.not. isvar("major_ticks_x"))then
537     
538         
539         major_ticks_x = 6
540         
541         
542      end if
543      ;***************************************************
[418]544      ; OPTIONAL if axes_explicit = 1 --major_ticks_y--
545      ;                              NUMBER OF MAJOR TICK MARKS AT Y-AXIS
[218]546      ;
[418]547      ; major_ticks_y can be set to any integer, best segmentation of y-axis
548      ; can be achieved, if
549      ; (number of gripdpoints in y-direction)/(major_ticks_y-1)=INTEGER,
550      ; e.g. 128/8 = 16 -> major_ticks_y should be set to 9
[218]551      ;
552      ; data type: integer
553      ;
554      ; example: major_ticks_y = 6
555      ;
556      ; default:   6
557      ;***************************************************
558      if(.not. isvar("major_ticks_y"))then
559     
560         
561         major_ticks_y = 6
562         
563         
564      end if
565      ;***************************************************
[418]566      ; OPTIONAL if axes_explicit = 1 --norm_x--norm_y--norm_z--
567      ;                              NORMALISE X-, Y- and Z-AXES
[218]568      ;
[513]569      ; normalising the axes with the given value;
570      ; units can explicitly be set;
[418]571      ; by default no normalising is used and units are [meter]
[218]572      ;
573      ; data type: float
574      ;
[418]575      ; default:   1.0
[218]576      ;***************************************************
577      if(.not. isvar("norm_x"))then     
578         
[418]579         norm_x = 1.0   
[218]580         
581      end if
582      if(.not. isvar("norm_y"))then     
583         
[418]584         norm_y = 1.0   
[218]585         
586      end if
587      if(.not. isvar("norm_z"))then     
588         
[418]589         norm_z = 1.0   
[218]590         
591      end if
592      ;***************************************************
[418]593      ; OPTIONAL if axes_explicit = 1 --unit_x--unit_y--unit_z--
594      ;                              UNITS OF X-, Y- and Z-AXES
[218]595      ;
[418]596      ; units of the axes can be set; by default no units are given,
597      ; if norm_x, norm_y or norm_z are unequal 1., otherwise units are [meter]
[218]598      ;
599      ; data type: string,
600      ;
601      ; example: unit_x = "m/s"
602      ;
603      ; default:   " "
604      ;***************************************************
605      if(.not. isvar("unit_x"))then     
606         
607         unit_x = " "   
608         
609      end if
610      if(.not. isvar("unit_y"))then     
611         
612         unit_y = " "   
613         
614      end if
615      if(.not. isvar("unit_z"))then     
616         
617         unit_z = " "   
618         
619      end if
620      ;***************************************************
[190]621      ; OPTIONAL --vector-- VECTOR PLOT
622      ;
[218]623      ; a vector plot for one defined vector is switched on [=1] or off [=0]
[190]624      ;
625      ; data type: integer
626      ;
[218]627      ; example: vector = 0
628      ;
[190]629      ; default:   0
630      ;***************************************************
631      if(.not. isvar("vector"))then
632     
633         
634         vector = 0
635         
636         
637      end if     
638      ;***************************************************
639      ; REQUIRED IF vector=1 --vec1, vec2-- VECTOR FOR VECTOR PLOT
640      ;
[418]641      ; variables for the vector, vec1 hast to be set to component 1 and
642      ; vec2 to component 2;
[218]643      ; inidcate them with one comma before and after each variable;
[190]644      ;
645      ; data type: string
646      ;
[218]647      ; example: vec1=",u,"
648      ;          vec2=",v,"
649      ;
[190]650      ; default:   vec1 = "component1", vec2 = "component2"
651      ;***************************************************
652      if(.not. isvar("vec1"))then     
653         
654         vec1 = "component1"
655         
656      end if
657      if (.not. isvar("vec2"))then
658     
659         vec2 = "component2"     
660         
661      end if     
662      ;***************************************************
663      ; OPTIONAL --plotvec-- VARIABLE FOR EXTRA VECTOR PLOT
664      ;
[418]665      ; the vector plot can be combined with other plots of variables;
666      ; if this is desired inidcate the variables,
667      ; where a vector plot shall overlay; inidcate them with one comma
668      ; before and after each variable
[190]669      ;
670      ; data type: string
671      ;
[218]672      ; example: plotvec = ",u,w,"
673      ;
[513]674      ; default:   "plotvec" (no combining,
675      ;                       the vector plot is created seperately)
[190]676      ;***************************************************
677      if(.not. isvar("plotvec"))then
678     
679         
680         plotvec = "plotvec"
681         
682         
683      end if     
684      ;***************************************************
685      ; OPTIONAL --ref_mag-- REFERENCE VECTOR
686      ;
687      ; length of the reference vector in a vector plot
688      ;
689      ; data type: float
690      ;
[218]691      ; example: ref_mag = 0.05
692      ;
[190]693      ; default:   0.05
694      ;***************************************************
695      if(.not. isvar("ref_mag"))then
696     
697         
698         ref_mag = 0.05
699         
700         
701      end if             
702      ;***************************************************
[194]703
[190]704   end if
705
706   ;******************************************************
707   ; parameters used by PROFILES
708   ;******************************************************
709   
[194]710   if (script .EQ. "profiles")then
711
[190]712      ;***************************************************
[218]713      ; REQUIRED --file_1-- 1ST INPUT FILE
[190]714      ;
[418]715      ; 1st input file produced by PALM; if there is more than one file for
716      ; all timesteps of a job chain, declare path and file name without
717      ; cycle number and ".nc" (first and last cycle numbers are given with
718      ; the parameters 'start_f' and 'end_f');
[218]719      ; otherwise declare path and full file name
[190]720      ;
721      ; data type: string
722      ;
[418]723      ; example: file_1 = "/path_to_file/file_pr"     
724      ;                     if you use more than one cycle number
725      ;          file_1 = "/path_to_file/file_pr.4.nc"
726      ;                     if you use one file (e.g. with cycle number 4)
[218]727      ;
[190]728      ; default:   "File in"
729      ;***************************************************
[218]730      if(.not. isvar("file_1"))then
731
732
[267]733         file_1 = "File in"
[218]734         
735         
736      end if
737      ;***************************************************
[566]738      ; OPTIONAL/REQUIRED --start_f-- if more than one file of a job chain
[513]739      ;                    START OF CYCLIC NUMBER OF THE 1ST INPUT FILE
[218]740      ;
[418]741      ; if there is more than one file for all timesteps of a job chain,
[513]742      ; declare the first cyclicnumber which contains timesteps
743      ; you'd like to use
[218]744      ;
745      ; data type: integer
746      ;
[418]747      ; example:   3 (if first file: example_pr.3.nc) and
748      ;            0 (if first file: example_pr.nc)
[218]749      ;
750      ; default:   -1 
751      ;***************************************************
[566]752      if (.not. isvar("start_f"))then 
[190]753     
[218]754         
[566]755         start_f = -1
[218]756         
757         
758      end if
759      ;***************************************************
[566]760      ; OPTIONAL/REQUIRED --end_f--  if more than one file of a job chain
[513]761      ;            END OF CYCLIC NUMBER OF THE 1ST INPUT FILE
[218]762      ;
[418]763      ; if there is more than one file for all timesteps of a job chain,
[513]764      ; declare the last cyclicnumber which contains timesteps
765      ; you'd like to use
[218]766      ;
767      ; data type: integer
768      ;
[418]769      ; example:   48 (if last file: example_pr.48.nc) and
770      ;             0 (if last file: example_pr.nc)
[218]771      ;
772      ; default:   -1 
773      ;***************************************************
[566]774      if (.not. isvar("end_f"))then 
[190]775     
[218]776         
[566]777         end_f = -1
[190]778         
779         
780      end if
781      ;***************************************************
782      ; OPTIONAL --format_out-- OUTPUT FORMAT
783      ;
[532]784      ; supported file formats: x11, pdf, ps, eps, epsi, ncgm or png
[190]785      ;
786      ; data type: string
787      ;
788      ; default:   "x11"
789      ;***************************************************
790      if (.not. isvar("format_out"))then         
791     
792     
793         format_out = "x11"
794         
795         
796      end if     
797      ;***************************************************
798      ; OPTIONAL --file_out-- OUTPUT FILE
799      ;
[218]800      ; declare path and name of the output file
[190]801      ;
802      ; data type: string
803      ;
[194]804      ; default:   "~/test_pr"
[190]805      ;***************************************************
806      if (.not. isvar("file_out"))then 
807     
808       
809         file_out = "~/test_pr"
810         
811         
812      end if     
813      ;***************************************************
[566]814      ; OPTIONAL --var-- OUTPUT VARIABLES
815      ;
816      ; names of output variables;
817      ; inidcate them with one comma before and after each variable
818      ; if the name contains double quotes (") use dq and the '+' operation to
819      ; concatenate the strings
820      ;
821      ; data type: string
822      ;
823      ; example: var = ",u,v,w,w*pt*,w"+dq+"pt"+dq+",wpt,"
824      ;
825      ; default:   "all" (all available variables are plotted)
826      ;***************************************************
827      if (.not. isvar("var"))then
828     
829         
830         var = "all"
831         
832         
833      end if
834      ;***************************************************
835      ; OPTIONAL --start_time_step-- FIRST TIME STEP
836      ;
837      ; first time step of plot; there is no need to specify a precise
838      ; time value from the input file,
839      ; 'start_time_step' is rounded to the next existent time step
840      ;
841      ; data type: double; dimension: [hour]
842      ;
843      ; example:   start_time_step = 0.5d
844      ;
845      ; default:   -1.d (first available time step)
846      ;***************************************************
847      if (.not. isvar("start_time_step"))then   
848     
849       
850         start_time_step = -1.d
851         
852         
853      end if     
854      ;***************************************************
855      ; OPTIONAL --end_time_step-- LAST TIME STEP
856      ;
857      ; last time step of plot; there is no need to specify a precise
858      ; time value from the input file,
859      ; 'end_time_step' is rounded to the next existent time step
860      ;
861      ; data type: double; dimension: [hour]
862      ;
863      ; example:   end_time_step = 2.0d
864      ;
865      ; default:   -1.d (last available time step)
866      ;***************************************************
867      if (.not. isvar("end_time_step"))then
868     
869         
870         end_time_step = -1.d   
871         
872         
873      end if
874      ;***************************************************
875      ; OPTIONAL --time_stride-- TEMPORAL STRIDE
876      ;
877      ; temporal stride for the plots; if time_stride=1 all the profiles
878      ; between first_time_step and end_time_step are plotted
879      ; (including first_time_step and end_time_step),
880      ; if time_stride=3 every third time step between start_time_step and
881      ; end_time_step is plotted
882      ;
883      ; data type: integer
884      ;
885      ; example:   time_stride = 3
886      ;
887      ; default:   1
888      ;***************************************************
889      if (.not. isvar("time_stride"))then       
890     
891       
892         time_stride = 1
893         
894         
895      end if
896      ;***************************************************
897      ; OPTIONAL --xs-- MINIMUM X-AXIS
898      ;
899      ; value for minimum of x-axis
900      ;
901      ; data type: float; dimension of variable
902      ;
903      ; example: xs = 300. (e.g. if var=",pt")
904      ;
905      ; default:   -1. (minimum of range)
906      ;***************************************************
907      if (.not. isvar("xs"))then   
908     
909         
910         xs = -1.
911         
912         
913      end if     
914      ;***************************************************
915      ; OPTIONAL --xe-- MAXIMUM X-AXIS
916      ;
917      ; value for maximum of x-axis
918      ;
919      ; data type: float; dimension of variable
920      ;
921      ; example: xe = 302. (e.g. if var=",pt")
922      ;
923      ; default:   -1. (maximum of range)
924      ;***************************************************
925      if (.not. isvar("xe"))then 
926     
927         
928         xe = -1.
929         
930         
931      end if     
932      ;***************************************************
933      ; OPTIONAL --min_z-- MINIMUM Z-AXIS
934      ;
935      ; value for minimum height of z-axis
936      ;
937      ; data type: double; dimension: [meter]
938      ;
939      ; example: min_z = 0.0d
940      ;
941      ; default:   -1.d (related to the minimum of z-axis in input file)
942      ;***************************************************
943      if (.not. isvar("min_z"))then   
944     
945         
946         min_z = -1.d
947         
948         
949      end if     
950      ;***************************************************
951      ; OPTIONAL --max_z-- MAXIMUM Z-AXIS
952      ;
953      ; value for maximum height of z-axis
954      ;
955      ; data type: double; dimension: [meter]
956      ;
957      ; example: max_z = 1000.0d
958      ;
959      ; default:   -1.d (related to the maximum of z-axis in input file)
960      ;***************************************************
961      if (.not. isvar("max_z"))then   
962     
963         
964         max_z = -1.d
965         
966         
967      end if     
968      ;***************************************************
969      ; OPTIONAL --start_x-- STARTVALUE IN X-DIRECTION 
970      ;
971      ; if 3D data is used for profiles you can choose a startvalue
972      ; in x-direction for horizontal averaging
973      ;
974      ; data type: integer; dimension [grippoint]
975      ;
976      ; example: start_x = 0
977      ;
978      ; default:   0 (minimum of range)
979      ;***************************************************
980      if (.not. isvar("start_x"))then   
981     
982         
983         start_x = 0
984         
985         
986      end if
987      ;***************************************************
988      ; OPTIONAL --end_x-- ENDVALUE IN X-DIRECTION 
989      ;
990      ; if 3D data is used for profiles you can choose an endvalue
991      ; in x-direction for horizontal averaging
992      ;
993      ; data type: integer; dimension [grippoint]
994      ;
995      ; example: end_x = 200
996      ;
997      ; default:   -1 (maximum of range excluding ghostpoint)
998      ;***************************************************
999      if (.not. isvar("end_x"))then   
1000     
1001         
1002         end_x = -1
1003         
1004         
1005      end if
1006      ;***************************************************
1007      ; OPTIONAL --start_y-- STARTVALUE IN Y-DIRECTION 
1008      ;
1009      ; if 3D data is used for profiles you can choose a startvalue
1010      ; in y-direction for horizontal averaging
1011      ;
1012      ; data type: integer; dimension [grippoint]
1013      ;
1014      ; example: start_y = 0
1015      ;
1016      ; default:   0 (minimum of range)
1017      ;***************************************************
1018      if (.not. isvar("start_y"))then   
1019     
1020         
1021         start_y = 0
1022         
1023         
1024      end if
1025      ;***************************************************
1026      ; OPTIONAL --end_y-- ENDVALUE IN Y-DIRECTION 
1027      ;
1028      ; if 3D data is used for profiles you can choose an endvalue
1029      ; in y-direction for horizontal averaging
1030      ;
1031      ; data type: integer; dimension [grippoint]
1032      ;
1033      ; example: end_y = 200
1034      ;
1035      ; default:   -1 (maximum of range excluding ghostpoint)
1036      ;***************************************************
1037      if (.not. isvar("end_y"))then   
1038     
1039         
1040         end_y = -1
1041         
1042         
1043      end if     
1044      ;***************************************************
[218]1045      ; OPTIONAL --no_columns-- NUMBER OF COLUMNS
[190]1046      ;
1047      ; number of plots in one row
1048      ;
1049      ; data type: integer
1050      ;
1051      ; default:   1
1052      ;***************************************************
1053      if (.not. isvar("no_columns"))then         
1054     
1055     
1056         no_columns = 1
1057         
1058         
1059      end if     
1060      ;***************************************************
[218]1061      ; OPTIONAL --no_rows-- NUMBER OF ROWS
[190]1062      ;
1063      ; number of plots in one column
1064      ;
1065      ; data type: integer
1066      ;
1067      ; default:   2
1068      ;***************************************************
[218]1069      if (.not. isvar("no_rows"))then   
[190]1070     
1071       
[218]1072         no_rows = 2
[190]1073         
1074         
1075      end if     
1076      ;***************************************************
[566]1077      ; OPTIONAL --log_z-- LOGARITHMIC SCALE OF Z-AXIS
[190]1078      ;
[566]1079      ; logarithmic scale for z-axis is switched on [=1] or off [=0]
1080      ;
1081      ; data type: integer
1082      ;
1083      ; example: log_z = 0
1084      ;
1085      ; default:   0
1086      ;***************************************************
1087      if (.not. isvar("log_z"))then
1088     
1089           
1090         log_z = 0
1091         
1092         
1093      end if     
1094      ;***************************************************
1095      ; OPTIONAL --norm_z-- NORMALISING Z-AXIS
1096      ;
1097      ; value for normalising the z-axis
1098      ;
1099      ; data type: float
1100      ;
1101      ; example: norm_z = 1.
1102      ;
1103      ; default:   1. (no normalising)
1104      ;***************************************************
1105      if (.not. isvar("norm_z"))then
1106     
1107           
1108         norm_z = 1.
1109         
1110         
1111      end if     
1112      ;***************************************************
1113      ; OPTIONAL --over-- OVERLAYING
1114      ;
1115      ; predefined overlaying of standard variables is switched
1116      ; on [=1] or off [=0];
1117      ; this feature cannot be used with statistic regions
1118      ;
1119      ; data type: integer
1120      ;
1121      ; example: over = 0
1122      ;
1123      ; default:   0
1124      ;***************************************************
1125      if (.not. isvar("over"))then
1126     
1127         
1128         over = 0
1129         
1130         
1131      end if     
1132      ;***************************************************
1133      ; OPTIONAL --combine-- COMBINING
1134      ;
1135      ; combining of two or three individual variables is possible and
1136      ; switched on [=1] or off[=0]
1137      ;
1138      ; data type: integer
1139      ;
1140      ; example: combine = 0
1141      ;
1142      ; default:   0
1143      ;***************************************************
1144      if (.not. isvar("combine"))then 
1145     
1146         
1147         combine = 0
1148         
1149         
1150      end if     
1151      ;***************************************************
1152      ; REQUIRED IF combine=1 --number_comb-- NUMBER FOR COMBINING
1153      ;
1154      ; number of variables for combining; 2 or 3 is valid
1155      ;
1156      ; data type: integer
1157      ;
1158      ; example: number_comb = 2
1159      ;
1160      ; default:   -1
1161      ;***************************************************
1162      if (.not. isvar("number_comb"))then
1163     
1164           
1165         number_comb = -1
1166         
1167         
1168      end if     
1169      ;***************************************************
1170      ; REQUIRED IF combine=1 --c_var-- VARIABLES FOR COMBINING
1171      ;
1172      ; names of variables;
[418]1173      ; inidcate them with one comma before and after each variable
[526]1174      ; if the name contains double quotes (") use dq and the '+' operation to
1175      ; concatenate the strings
[190]1176      ;
[566]1177      ; data type: string
[190]1178      ;
[566]1179      ; example: c_var = ",u,v,w,w*pt*,w"+dq+"pt"+dq+",wpt,"
1180      ;
1181      ; default:   "c_variables"
[190]1182      ;***************************************************
[566]1183      if (.not. isvar("c_var"))then
[190]1184     
[566]1185           
1186         c_var = "c_variables"
[190]1187         
1188         
[566]1189      end if     
1190      ;***************************************************
1191      ; OPTIONAL --black-- BLACK OR COLOR LINES
1192      ;
1193      ; colored [=0] or black and white [=1] plots
1194      ;
1195      ; data type: integer
1196      ;
1197      ; example: black = 0
1198      ;
1199      ; default:   0
1200      ;***************************************************
1201      if (.not. isvar("black"))then
1202     
1203           
1204         black = 0
1205         
1206         
1207      end if     
1208      ;***************************************************
1209      ; OPTIONAL --dash-- DASHED LINES
1210      ;
1211      ; use of different line patterns [=1] or continous lines [=0]
1212      ; for different time steps
1213      ;
1214      ; data type: integer
1215      ;
1216      ; example: dash = 0
1217      ;
1218      ; default:   0
1219      ;***************************************************
1220      if (.not. isvar("dash"))then     
1221     
1222       
1223         dash = 0     
1224         
1225         
[219]1226      end if
1227      ;***************************************************
[566]1228      ; OPTIONAL --font_size-- FONT SIZE OF STRINGS
1229      ;
1230      ; font size can be changed to fit to the current plot
1231      ;
1232      ; data type: float
1233      ;
1234      ; example: font_size = 0.02
1235      ;
1236      ; default:   0.02
1237      ;***************************************************
1238      if(.not. isvar("font_size"))then
1239     
1240         
1241         font_size = 0.02
1242         
1243         
1244      end if
1245      ;***************************************************
[219]1246      ; OPTIONAL --legend-- SWITCHES ON A LEGEND
1247      ;
1248      ; a legend is switched on [=1] or off [=0]
1249      ;
1250      ; data type: integer
1251      ;
1252      ; example: legend = 1
1253      ;
1254      ; default:   1
1255      ;***************************************************
1256      if (.not. isvar("legend"))then
1257     
1258         
[236]1259         legend = 1
[219]1260         
1261         
[190]1262      end if   
1263      ;***************************************************
[566]1264      ; OPTIONAL --font_size_legend-- FONT SIZE OF LEGEND STRINGS
1265      ;
1266      ; font size of the legend can be changed to fit to the current plot
1267      ;
1268      ; data type: float
1269      ;
[782]1270      ; example: font_size_legend = 0.02
[566]1271      ;
[782]1272      ; default:   0.02
[566]1273      ;***************************************************
1274      if(.not. isvar("font_size_legend"))then
1275     
1276         
[782]1277         font_size_legend = 0.02
[566]1278         
1279         
1280      end if     
1281      ;***************************************************
[190]1282      ; OPTIONAL ---no_files-- NUMBER OF INPUT FILES
1283      ;
[418]1284      ; up to 6 input files of different runs can be used; all input files
1285      ; must contain the same variables and dimensionalties;
[218]1286      ; identical variables are merged in one plot;
[190]1287      ; combining or overlaying of any variables is not feasible;
[418]1288      ; an extra legend (besides the time step legend) is drawn where you
1289      ; can explicitily name the items
[190]1290      ;
1291      ; data type: integer
1292      ;
1293      ; default:   1
1294      ;***************************************************
1295      if (.not. isvar("no_files"))then
1296     
1297         
1298         no_files = 1
1299         
1300         
1301      end if     
1302      ;***************************************************
1303      ; OPTIONAL --name_legend_1-- 1st LEGEND ITEM
1304      ;
1305      ; if no_files > 1: name of 1st item in extra legend
1306      ;
1307      ; data type: string
1308      ;
1309      ; default:   "File 1"
1310      ;***************************************************
1311      if (.not. isvar("name_legend_1"))then
1312     
1313           
1314         name_legend_1 = "File 1"
1315         
1316         
[218]1317      end if
[190]1318      ;***************************************************
[218]1319      ; REQUIRED if no_files > 1 --file_2-- 2ND INPUT FILE
[190]1320      ;
[418]1321      ; 2nd input file produced by PALM; if there is more than one file
1322      ; for all timesteps of a job chain,
1323      ; declare path and file name without cycle number and ".nc" (first and
[513]1324      ; last cycle numbers are given with the parameters
1325      ; 'start_f' and 'end_f');
[218]1326      ; otherwise declare path and full file name
[190]1327      ;
1328      ; data type: string
1329      ;
[418]1330      ; example: file_2 = "/path_to_file/file_pr"     
1331      ;                    if you use more than one cycle number
1332      ;          file_2 = "/path_to_file/file_pr.4.nc"
1333      ;                    if you use one file (e.g. with cycle number 4)
[218]1334      ;
[190]1335      ; default:   "File in"
1336      ;***************************************************
[218]1337      if(.not. isvar("file_2"))then
1338
1339
1340         file_2 = "File in"
1341         
1342         
1343      end if
1344      ;***************************************************
[513]1345      ; OPTIONAL/REQUIRED --start_f_2-- if more than one file of a job chain
1346      ;                       START OF CYCLIC NUMBER OF THE 2ND INPUT FILE
[218]1347      ;
[418]1348      ; if there is more than one file for all timesteps of a job chain,
[513]1349      ; declare the first cyclicnumber which contains timesteps
1350      ; you'd like to use
[218]1351      ;
1352      ; data type: integer
1353      ;
1354      ; example:   3 (if first file: example_ts.3.nc)
1355      ;
1356      ; default:   -1 
1357      ;***************************************************
1358      if (.not. isvar("start_f_2"))then 
[190]1359     
1360         
[218]1361         start_f_2 = -1
[190]1362         
1363         
[218]1364      end if
[190]1365      ;***************************************************
[513]1366      ; REQUIRED --end_f_2-- if more than one file of a job chain
1367      ;                      END OF CYCLIC NUMBER OF THE 2ND INPUT FILE
[218]1368      ;
[418]1369      ; if there is more than one file for all timesteps of a job chain,
[513]1370      ; declare the last cyclicnumber which contains timesteps
1371      ; you'd like to use
[218]1372      ;
1373      ; data type: integer
1374      ;
1375      ; example:   48 (if last file: example_ts.48.nc)
1376      ;
1377      ; default:   -1 
1378      ;***************************************************
1379      if (.not. isvar("end_f_2"))then 
1380     
1381         
1382         end_f_2 = -1
1383         
1384         
1385      end if             
1386      ;***************************************************
[190]1387      ; OPTIONAL --name_legend_2-- 2nd LEGEND ITEM
1388      ;
1389      ; if no_files > 1: name of 2nd item in extra legend
1390      ;
1391      ; data type: string
1392      ;
1393      ; default:   "File 2"
1394      ;***************************************************
1395      if (.not. isvar("name_legend_2"))then   
1396     
1397         
1398         name_legend_2 = "File 2"
1399         
1400         
[218]1401      end if
[190]1402      ;***************************************************
[218]1403      ; REQUIRED if no_files > 2 --file_3-- 3RD INPUT FILE
[190]1404      ;
[418]1405      ; 3rd input file produced by PALM; if there is more than one file
1406      ; for all timesteps of a job chain,
1407      ; declare path and file name without cycle number and ".nc" (first and
[513]1408      ; last cycle numbers are given with the parameters
1409      ; 'start_f' and 'end_f');
[218]1410      ; otherwise declare path and full file name
[190]1411      ;
1412      ; data type: string
1413      ;
[418]1414      ; example: file_3 = "/path_to_file/file_pr"     
1415      ;                     if you use more than one cycle number
1416      ;          file_3 = "/path_to_file/file_pr.4.nc"
1417      ;                     if you use one file (e.g. with cycle number 4)
[218]1418      ;
[190]1419      ; default:   "File in"
1420      ;***************************************************
[218]1421      if(.not. isvar("file_3"))then
1422
1423
1424         file_3 = "File in"
[190]1425         
1426         
[218]1427      end if
[190]1428      ;***************************************************
[513]1429      ; OPTIONAL/REQUIRED --start_f_3-- if more than one file of a job chain
1430      ;                        START OF CYCLIC NUMBER OF THE 3RD INPUT FILE
[190]1431      ;
[418]1432      ; if there is more than one file for all timesteps of a job chain,
[513]1433      ; declare the first cyclicnumber which contains timesteps
1434      ; you'd like to use
[190]1435      ;
[218]1436      ; data type: integer
[190]1437      ;
[218]1438      ; example:   3 (if first file: example_ts.3.nc)
1439      ;
1440      ; default:   -1 
[190]1441      ;***************************************************
[218]1442      if (.not. isvar("start_f_3"))then 
[190]1443     
[218]1444         
1445         start_f_3 = -1
[190]1446         
1447         
[218]1448      end if
[190]1449      ;***************************************************
[513]1450      ; OPTIONAL/REQUIRED --end_f_3-- if more than one file of a job chain
1451      ;                    END OF CYCLIC NUMBER OF THE 3RD INPUT FILE
[190]1452      ;
[513]1453      ; if there is more than one file for all timesteps of a job chain,
1454      ; declare
[418]1455      ; the last cyclicnumber which contains timesteps you'd like to use
[190]1456      ;
[218]1457      ; data type: integer
[190]1458      ;
[218]1459      ; example:   48 (if last file: example_ts.48.nc)
1460      ;
1461      ; default:   -1 
[190]1462      ;***************************************************
[218]1463      if (.not. isvar("end_f_3"))then 
[190]1464     
[218]1465         
1466         end_f_3 = -1
[190]1467         
1468         
[218]1469      end if   
[190]1470      ;***************************************************
[218]1471      ; OPTIONAL --name_legend_3-- 3rd LEGEND ITEM
[190]1472      ;
[218]1473      ; if no_files > 2: name of 3rd item in extra legend
[190]1474      ;
1475      ; data type: string
1476      ;
[218]1477      ; default:   "File 3"
[190]1478      ;***************************************************
[218]1479      if (.not. isvar("name_legend_3"))then
[190]1480     
[218]1481           
1482         name_legend_3 = "File 3"
[190]1483         
1484         
[218]1485      end if
[190]1486      ;***************************************************
[218]1487      ; REQUIRED if no_files > 3 --file_4-- 4TH INPUT FILE
[190]1488      ;
[418]1489      ; 4th input file produced by PALM; if there is more than one file for
1490      ; all timesteps of a job chain,
1491      ; declare path and file name without cycle number and ".nc" (first and
[513]1492      ; last cycle numbers are given with the parameters
1493      ; 'start_f' and 'end_f');
[218]1494      ; otherwise declare path and full file name
[190]1495      ;
1496      ; data type: string
1497      ;
[418]1498      ; example: file_4 = "/path_to_file/file_pr"     
1499      ;                     if you use more than one cycle number
1500      ;          file_4 = "/path_to_file/file_pr.4.nc"
1501      ;                      if you use one file (e.g. with cycle number 4)
[218]1502      ;
[190]1503      ; default:   "File in"
1504      ;***************************************************
[218]1505      if(.not. isvar("file_4"))then
1506
1507
1508         file_4 = "File in"
[190]1509         
1510         
[218]1511      end if
[190]1512      ;***************************************************
[513]1513      ; OPTIONAL/REQUIRED --start_f_4-- if more than one file of a job chain
1514      ;                          START OF CYCLIC NUMBER OF THE 4TH INPUT FILE
[190]1515      ;
[418]1516      ; if there is more than one file for all timesteps of a job chain,
[513]1517      ; declare the first cyclicnumber which contains timesteps
1518      ; you'd like to use
[190]1519      ;
[218]1520      ; data type: integer
[190]1521      ;
[218]1522      ; example:   3 (if first file: example_ts.3.nc)
1523      ;
1524      ; default:   -1 
[190]1525      ;***************************************************
[218]1526      if (.not. isvar("start_f_4"))then 
[190]1527     
[218]1528         
1529         start_f_4 = -1
[190]1530         
1531         
[218]1532      end if
[190]1533      ;***************************************************
[513]1534      ; OPTIONAL/REQUIRED --end_f_4-- if more than one file of a job chain
1535      ;                   END OF CYCLIC NUMBER OF THE 4TH INPUT FILE
[190]1536      ;
[418]1537      ; if there is more than one file for all timesteps of a job chain,
[513]1538      ; declare the last cyclicnumber which contains timesteps
1539      ; you'd like to use
[190]1540      ;
[218]1541      ; data type: integer
[190]1542      ;
[218]1543      ; example:   48 (if last file: example_ts.48.nc)
1544      ;
1545      ; default:   -1 
[190]1546      ;***************************************************
[218]1547      if (.not. isvar("end_f_4"))then 
[190]1548     
[218]1549         
1550         end_f_4 = -1
[190]1551         
1552         
[218]1553      end if 
[190]1554      ;***************************************************
[218]1555      ; OPTIONAL --name_legend_4-- 4th LEGEND ITEM
[190]1556      ;
[218]1557      ; if no_files > 3: name of 4th item in extra legend
[190]1558      ;
1559      ; data type: string
1560      ;
[218]1561      ; default:   "File 4"
[190]1562      ;***************************************************
[218]1563      if (.not. isvar("name_legend_4"))then   
[190]1564     
[218]1565       
1566         name_legend_4 = "File 4"
[190]1567         
1568         
[218]1569      end if
[190]1570      ;***************************************************
[218]1571      ; REQUIRED if no_files > 4 --file_5-- 5TH INPUT FILE
[190]1572      ;
[418]1573      ; 5th input file produced by PALM; if there is more than one file for
1574      ; all timesteps of a job chain,
1575      ; declare path and file name without cycle number and ".nc" (first and
[513]1576      ; last cycle numbers are given with the parameters
1577      ; 'start_f' and 'end_f');
[218]1578      ; otherwise declare path and full file name
[190]1579      ;
1580      ; data type: string
1581      ;
[418]1582      ; example: file_5 = "/path_to_file/file_pr"     
1583      ;                     if you use more than one cycle number
1584      ;          file_5 = "/path_to_file/file_pr.4.nc"
1585      ;                     if you use one file (e.g. with cycle number 4)
[218]1586      ;
[190]1587      ; default:   "File in"
1588      ;***************************************************
[218]1589      if(.not. isvar("file_5"))then
1590
1591
1592         file_5 = "File in"
[190]1593         
1594         
[218]1595      end if
[190]1596      ;***************************************************
[513]1597      ; OPTIONAL/REQUIRED --start_f_5-- if more than one file of a job chain
1598      ;                     START OF CYCLIC NUMBER OF THE 5TH INPUT FILE
[190]1599      ;
[418]1600      ; if there is more than one file for all timesteps of a job chain,
[513]1601      ; declare the first cyclicnumber which contains timesteps
1602      ; you'd like to use
[190]1603      ;
[218]1604      ; data type: integer
[190]1605      ;
[218]1606      ; example:   3 (if first file: example_ts.3.nc)
1607      ;
1608      ; default:   -1 
[190]1609      ;***************************************************
[218]1610      if (.not. isvar("start_f_5"))then 
[190]1611     
[218]1612         
1613         start_f_5 = -1
[190]1614         
1615         
[218]1616      end if
[190]1617      ;***************************************************
[513]1618      ; OPTIONAL/REQUIRED --end_f_5-- if more than one file of a job chain
1619      ;END OF CYCLIC NUMBER OF THE 5TH INPUT FILE
[190]1620      ;
[418]1621      ; if there is more than one file for all timesteps of a job chain,
[513]1622      ; declare the last cyclicnumber which contains timesteps
1623      ; you'd like to use
[190]1624      ;
[218]1625      ; data type: integer
[190]1626      ;
[218]1627      ; example:   48 (if last file: example_ts.48.nc)
1628      ;
1629      ; default:   -1 
[190]1630      ;***************************************************
[218]1631      if (.not. isvar("end_f_5"))then 
[190]1632     
[218]1633         
1634         end_f_5 = -1
[190]1635         
1636         
[218]1637      end if     
[190]1638      ;***************************************************
[218]1639      ; OPTIONAL --name_legend_5-- 5th LEGEND ITEM
[190]1640      ;
[218]1641      ; if no_files > 4: name of 5th item in extra legend
[190]1642      ;
1643      ; data type: string
1644      ;
[218]1645      ; default:   "File 5"
[190]1646      ;***************************************************
[218]1647      if (.not. isvar("name_legend_5"))then
[190]1648     
[218]1649           
1650         name_legend_5 = "File 5"
[190]1651         
1652         
[218]1653      end if
[190]1654      ;***************************************************
[218]1655      ; REQUIRED if no_files > 5 --file_6-- 6TH INPUT FILE
[190]1656      ;
[418]1657      ; 6th input file produced by PALM; if there is more than one file for
1658      ; all timesteps of a job chain,
1659      ; declare path and file name without cycle number and ".nc" (first and
[513]1660      ; last cycle numbers are given with the parameters
1661      ; 'start_f' and 'end_f');
[218]1662      ; otherwise declare path and full file name
[190]1663      ;
1664      ; data type: string
1665      ;
[418]1666      ; example: file_6 = "/path_to_file/file_pr"     
1667      ;                     if you use more than one cycle number
1668      ;          file_6 = "/path_to_file/file_pr.4.nc"
1669      ;                     if you use one file (e.g. with cycle number 4)
[218]1670      ;
[190]1671      ; default:   "File in"
1672      ;***************************************************
[218]1673      if(.not. isvar("file_6"))then
1674
1675
1676         file_6 = "File in"
[190]1677         
1678         
[218]1679      end if
[190]1680      ;***************************************************
[513]1681      ; OPTIONAL/REQUIRED --start_f_6-- if more than one file of a job chain
1682      ;                     START OF CYCLIC NUMBER OF THE 6TH INPUT FILE
[190]1683      ;
[418]1684      ; if there is more than one file for all timesteps of a job chain,
[513]1685      ; declare the first cyclicnumber which contains timesteps
1686      ; you'd like to use
[190]1687      ;
[218]1688      ; data type: integer
[190]1689      ;
[218]1690      ; example:   3 (if first file: example_ts.3.nc)
1691      ;
1692      ; default:   -1 
[190]1693      ;***************************************************
[218]1694      if (.not. isvar("start_f_6"))then 
[190]1695     
[218]1696         
1697         start_f_6 = -1
[190]1698         
1699         
[218]1700      end if
[190]1701      ;***************************************************
[513]1702      ; OPTIONAL/REQUIRED --end_f_6-- if more than one file of a job chain
1703      ; END OF CYCLIC NUMBER OF THE 6TH INPUT FILE
[190]1704      ;
[418]1705      ; if there is more than one file for all timesteps of a job chain,
[513]1706      ; declare the last cyclicnumber which contains timesteps
1707      ; you'd like to use
[190]1708      ;
[218]1709      ; data type: integer
[190]1710      ;
[218]1711      ; example:   48 (if last file: example_ts.48.nc)
1712      ;
1713      ; default:   -1 
[190]1714      ;***************************************************
[218]1715      if (.not. isvar("end_f_6"))then 
[190]1716     
[218]1717         
1718         end_f_6 = -1
[190]1719         
1720         
[218]1721      end if                     
[190]1722      ;***************************************************
[218]1723      ; OPTIONAL --name_legend_6-- 6TH LEGEND ITEM
[190]1724      ;
[218]1725      ; if no_files > 5: name of 6th item in extra legend
[190]1726      ;
1727      ; data type: string
1728      ;
[218]1729      ; default:   "File 6"
[190]1730      ;***************************************************
[218]1731      if (.not. isvar("name_legend_6"))then
[190]1732     
[218]1733           
1734         name_legend_6 = "File 6"
[190]1735         
1736         
[218]1737      end if             
[190]1738      ;***************************************************
1739   end if
[194]1740
[190]1741   ;******************************************************
1742   ; parameters used by SPECTRA
1743   ;******************************************************
1744   
[194]1745   if (script .EQ. "spectra") then
1746
[190]1747      ;***************************************************
1748      ; REQUIRED --file_1-- INPUT FILE
1749      ;
[418]1750      ; input file produced by PALM; if there is more than one file for
1751      ; all timesteps of a job chain,
1752      ; declare path and file name without cycle number and ".nc" (first and
[513]1753      ; last cycle numbers are given with the parameters
1754      ; 'start_f' and 'end_f');
[218]1755      ; otherwise declare path and full file name
[190]1756      ;
1757      ; data type: string
1758      ;
[418]1759      ; example: file_1 = "/path_to_file/file_sp"     
1760      ;                     if you use more than one cycle number
1761      ;          file_1 = "/path_to_file/file_sp.4.nc"
1762      ;                     if you use one file (e.g. with cycle number 4)
[218]1763      ;
[190]1764      ; default:   "File in"
1765      ;***************************************************
[218]1766      if(.not. isvar("file_1"))then
1767
1768
1769         file_1 = "File in"
1770         
1771         
1772      end if
1773      ;***************************************************
[513]1774      ; OPTIONAL/REQUIRED if more than one file of a job chain
[418]1775      ;           --start_f-- START OF CYCLIC NUMBER
[218]1776      ;
[418]1777      ; if there is more than one file for all timesteps of a job chain,
[513]1778      ; declare the first cyclicnumber which contains timesteps
1779      ; you'd like to use
[218]1780      ;
1781      ; data type: integer
1782      ;
[418]1783      ; example:   start_f = 3 (if first file: example_sp.3.nc) and
1784      ;            start_f = 0 (if first file: example_sp.nc)
[218]1785      ;
1786      ; default:   -1 
1787      ;***************************************************
1788      if (.not. isvar("start_f"))then 
[190]1789     
1790         
[218]1791         start_f = -1
[190]1792         
1793         
[218]1794      end if
[190]1795      ;***************************************************
[513]1796      ; OPTIONAL/REQUIRED if more than one file of a job chain
[418]1797      ;          --end_f-- END OF CYCLIC NUMBER
[218]1798      ;
[418]1799      ; if there is more than one file for all timesteps of a job chain,
[513]1800      ; declare the last cyclicnumber which contains timesteps
1801      ; you'd like to use
[218]1802      ;
1803      ; data type: integer
1804      ;
[418]1805      ; example:   end_f = 48 (if last file: example_sp.48.nc) and
1806      ;            end_f =  0 (if last file: example_sp.nc)
[218]1807      ;
1808      ; default:   -1 
1809      ;***************************************************
1810      if (.not. isvar("end_f"))then 
1811     
1812         
1813         end_f = -1
1814         
1815         
1816      end if
1817      ;***************************************************
[190]1818      ; OPTIONAL --format_out-- OUTPUT FORMAT
1819      ;
[418]1820      ; format of the output file;
[532]1821      ; supported file formats: x11, pdf, ps, eps, epsi, ncgm or png
[190]1822      ;
1823      ; data type: string
1824      ;
[218]1825      ; example: format_out = "pdf"
1826      ;
[190]1827      ; default:   "x11"
1828      ;***************************************************
1829      if (.not. isvar("format_out"))then       
1830     
1831       
1832         format_out = "x11"
1833         
1834         
1835      end if     
1836      ;***************************************************
1837      ; OPTIONAL --file_out-- OUTPUT FILE
1838      ;
[218]1839      ; path and name of the output file
[190]1840      ;
1841      ; data type: string
1842      ;
[218]1843      ; example: file_out = "/home/path_to_output/test_sp"
1844      ;
[194]1845      ; default:   "~/test_sp"
[190]1846      ;***************************************************
1847      if (.not. isvar("file_out"))then 
1848     
1849       
1850         file_out = "~/test_sp"
1851         
1852         
[566]1853      end if   
[190]1854      ;***************************************************
[566]1855      ; OPTIONAL --var-- OUTPUT VARIABLES
[190]1856      ;
[566]1857      ; names of output variables;
1858      ; inidcate them with one comma before and after each variable
1859      ; if the name contains double quotes (") use dq and the '+' operation to
1860      ; concatenate the strings
[190]1861      ;
[566]1862      ; data type: string
[218]1863      ;
[566]1864      ; example: var = ",u,v,w,"
[190]1865      ;
[566]1866      ; default:   "all" (all available variables are plotted)
[190]1867      ;***************************************************
[566]1868      if (.not. isvar("var"))then
[190]1869     
[566]1870         
1871         var = "all"
[190]1872         
1873         
1874      end if     
1875      ;***************************************************
[566]1876      ; OPTIONAL --start_time_step-- FIRST TIME STEP
[190]1877      ;
[566]1878      ; first time step of plot; there is no need to specify a precise
1879      ; time value from the input file,
1880      ; 'start_time_step' is rounded to the next existent time step
[190]1881      ;
[566]1882      ; data type: double; dimension: [hour]
[190]1883      ;
[566]1884      ; example:   start_time_step = 0.5d
1885      ;
1886      ; default:   -1.d (first available time step)
[190]1887      ;***************************************************
[566]1888      if (.not. isvar("start_time_step"))then
[190]1889     
1890         
[566]1891         start_time_step = -1.d
[190]1892         
1893         
1894      end if     
1895      ;***************************************************
[566]1896      ; OPTIONAL --end_time_step-- LAST TIME STEP
[190]1897      ;
[566]1898      ; last time step of plot; there is no need to specify a precise
1899      ; time value from the input file,
1900      ; 'end_time_step' is rounded to the next existent time step
[190]1901      ;
[566]1902      ; data type: double; dimension: [hour]
[190]1903      ;
[566]1904      ; example:   end_time_step = 2.0d
1905      ;
1906      ; default:   -1.d (last available time step)
[190]1907      ;***************************************************
[566]1908      if (.not. isvar("end_time_step"))then
[190]1909     
1910         
[566]1911         end_time_step = -1.d
[190]1912         
1913         
[566]1914      end if   
[190]1915      ;***************************************************
1916      ; OPTIONAL --height_level-- HEIGHT LEVELS
1917      ;
[418]1918      ; defines if all levels or selected levels are output;
1919      ; a 1D array with up to 100 elements
[218]1920      ; from 0 to 99 must be indicated
[190]1921      ;
1922      ; data type: integer array
1923      ;
[218]1924      ; example: height_level=(/0,3,7/)
1925      ;
1926      ; default:   (/-1/) (all levels are output)
[190]1927      ;***************************************************
1928      if (.not. isvar("height_level"))then
1929     
1930         
1931         height_level = (/-1/)
1932         
1933         
1934      end if     
1935      ;***************************************************
1936      ; OPTIONAL --sort-- TYPE OF SORTING
1937      ;
[418]1938      ; defines if all heights [="height"] or all timesteps [="time"]
1939      ; are merged in one plot
[190]1940      ;
1941      ; data type: string
1942      ;
[218]1943      ; example: sort = "height"
1944      ;
[190]1945      ; default:   "height"
1946      ;***************************************************
1947      if (.not. isvar("sort"))then
1948     
1949         
1950         sort = "height"
1951         
1952         
1953      end if     
1954      ;***************************************************
[566]1955      ; OPTIONAL --no_columns-- NUMBER OF COLUMNS
[190]1956      ;
[566]1957      ; number of plots in one row
[190]1958      ;
[566]1959      ; data type: integer
1960      ;
1961      ; example: no_columns = 1
[190]1962      ;
[566]1963      ; default:   1
[190]1964      ;***************************************************
[566]1965      if (.not. isvar("no_columns"))then         
[190]1966     
[566]1967     
1968         no_columns = 1
[190]1969         
1970         
1971      end if     
1972      ;***************************************************
[566]1973      ; OPTIONAL --no_rows-- NUMBER OF ROWS
[190]1974      ;
[566]1975      ; number of plots in one column
[190]1976      ;
[566]1977      ; data type: integer
1978      ;
1979      ; example: no_rows = 2
[190]1980      ;
[566]1981      ; default:   2
[190]1982      ;***************************************************
[566]1983      if (.not. isvar("no_rows"))then
[190]1984     
1985         
[566]1986         no_rows = 2
[190]1987         
1988         
1989      end if     
1990      ;***************************************************
[218]1991      ; OPTIONAL --log_x-- LOGARITHMIC SCALE X-AXIS
[190]1992      ;
[218]1993      ; logarithmic scale for x-axis is switched on [=1] or off [=0]
[190]1994      ;
1995      ; data type: integer
1996      ;
[218]1997      ; example: log_x = 1
1998      ;
[190]1999      ; default:   1
2000      ;***************************************************
[218]2001      if (.not. isvar("log_x"))then   
[190]2002     
2003         
[218]2004         log_x = 1
[190]2005         
2006         
2007      end if     
2008      ;***************************************************
[218]2009      ; OPTIONAL --log_y-- LOGARITHMIC SCALE Y-AXIS
[190]2010      ;
[218]2011      ; logarithmic scale for y-axis is switched on [=1] or off [=0]
[190]2012      ;
2013      ; data type: integer
2014      ;
[218]2015      ; example: log_y = 1
2016      ;
[190]2017      ; default:   1
2018      ;***************************************************
[218]2019      if (.not. isvar("log_y"))then   
[190]2020     
2021         
[218]2022         log_y = 1
[190]2023         
2024         
2025      end if     
2026      ;***************************************************
[566]2027      ; OPTIONAL --norm_height-- NORMALISING X-AXIS WITH HEIGHT
[190]2028      ;
[566]2029      ; normalising the x-axis with the height of each spectra
2030      ; is switched on [=1] or off [=0]
[190]2031      ;
[566]2032      ; data type: integer
[190]2033      ;
[566]2034      ; example: norm_height = 0
[218]2035      ;
[566]2036      ; default:   0 (no normalising)
[190]2037      ;***************************************************
[566]2038      if (.not. isvar("norm_height"))then   
[190]2039     
2040         
[566]2041         norm_height = 0
[190]2042         
2043         
[566]2044      end if     
[218]2045      ;***************************************************
[566]2046      ; OPTIONAL --norm_x-- NORMALISING X-AXIS
[218]2047      ;
[566]2048      ; value for normalising the x-axis
[218]2049      ;
[566]2050      ; data type: float
[218]2051      ;
[566]2052      ; example: norm_x = 1.
[218]2053      ;
[566]2054      ; default:   1. (no normalising)
[218]2055      ;***************************************************
[566]2056      if (.not. isvar("norm_x"))then   
[218]2057     
2058         
[566]2059         norm_x = 1.
[218]2060         
2061         
[566]2062      end if
[190]2063      ;***************************************************
[218]2064      ; OPTIONAL --norm_y-- NORMALISE Y-AXIS
[190]2065      ;
2066      ; value for normalising the y-axis
2067      ;
2068      ; data type: float
2069      ;
[218]2070      ; example: norm_y = 1.
2071      ;
[190]2072      ; default:   1. (no normalising)
2073      ;***************************************************
[218]2074      if (.not. isvar("norm_y"))then     
[190]2075     
2076       
[218]2077         norm_y = 1.
[190]2078         
2079         
[218]2080      end if
[190]2081      ;***************************************************
[218]2082      ; OPTIONAL --unit_x--unit_y-- UNITS OF X-, Y-AXES
2083      ;
[513]2084      ; unit of the x-axis can be set if norm_x is unequal 1,
2085      ; otherwise the unit is [1/m]; by default no unit is set for the y-axis
[218]2086      ;
2087      ; data type: string,
2088      ;
2089      ; example: unit_x = "100/m"
2090      ;
2091      ; default:   " "
2092      ;***************************************************
2093      if(.not. isvar("unit_x"))then     
2094         
2095         unit_x = " "   
2096         
2097      end if
2098      if(.not. isvar("unit_y"))then     
2099         
2100         unit_y = " "   
2101         
2102      end if
2103      ;***************************************************
[566]2104      ; OPTIONAL --black-- BLACK OR COLOR LINES
2105      ;
2106      ; colored [=0] or black and white [=1] plots
2107      ;
2108      ; data type: integer
2109      ;
2110      ; example: black = 0
2111      ;
2112      ; default:   0
2113      ;***************************************************
2114      if (.not. isvar("black"))then
2115     
2116           
2117         black = 0
2118         
2119         
2120      end if     
2121      ;***************************************************
2122      ; OPTIONAL --dash-- DASHED LINES
2123      ;
2124      ; use of different line patterns [=1] or continous lines [=0]
2125      ;
2126      ; data type: integer
2127      ;
2128      ; example: dash = 0
2129      ;
2130      ; default:   0
2131      ;***************************************************
2132      if (.not. isvar("dash"))then   
2133     
2134         
2135         dash = 0
2136         
2137         
2138      end if
2139      ;***************************************************
[218]2140      ; OPTIONAL --font_size-- FONT SIZE OF STRINGS
2141      ;
2142      ; font size can be changed to fit to the current plot
2143      ;
2144      ; data type: float
2145      ;
2146      ; example: font_size = 0.02
2147      ;
2148      ; default:   0.02
2149      ;***************************************************
2150      if(.not. isvar("font_size"))then
2151     
2152         
2153         font_size = 0.02
2154         
2155         
2156      end if
2157      ;***************************************************
2158      ; OPTIONAL --font_size_legend-- FONT SIZE OF LEGEND STRINGS
2159      ;
2160      ; font size of the legend can be changed to fit to the current plot
2161      ;
2162      ; data type: float
2163      ;
[534]2164      ; example: font_size_legend = 0.02
[218]2165      ;
[534]2166      ; default:   0.02
[218]2167      ;***************************************************
2168      if(.not. isvar("font_size_legend"))then
2169     
2170         
[534]2171         font_size_legend = 0.02
[218]2172         
2173         
2174      end if     
2175      ;***************************************************
[190]2176     
2177   end if
[194]2178
[190]2179   ;******************************************************
2180   ; parameters used by TIMESERIES
2181   ;******************************************************
2182
[194]2183   if (script .EQ. "timeseries") then
2184
[190]2185      ;***************************************************
2186      ; REQUIRED --file_1-- INPUT FILE
2187      ;
[418]2188      ; input file produced by PALM; if there is more than one file for
2189      ; all timesteps of a job chain,
2190      ; declare path and file name without cycle number and ".nc" (first and
[513]2191      ; last cycle numbers are given with the parameters
2192      ; 'start_f' and 'end_f');
[218]2193      ; otherwise declare path and full file name
[190]2194      ;
2195      ; data type: string
2196      ;
[418]2197      ; example: file_1 = "/path_to_file/file_ts"     
2198      ;                      if you use more than one cycle number
2199      ;          file_1 = "/path_to_file/file_ts.4.nc"
2200      ;                      if you use one file (e.g. with cycle number 4)
[218]2201      ;
[190]2202      ; default:   "File in"
2203      ;***************************************************
[218]2204      if(.not. isvar("file_1"))then
2205
2206
[267]2207         file_1 = "File in"
[218]2208         
2209         
2210      end if
2211      ;***************************************************
[513]2212      ; OPTIONAL/REQUIRED if more than one file of a job chain
[418]2213      ;          --start_f-- START OF CYCLIC NUMBER
[218]2214      ;
[418]2215      ; if there is more than one file for all timesteps of a job chain,
[513]2216      ; declare the first cyclicnumber which contains timesteps
2217      ; you'd like to use
[218]2218      ;
2219      ; data type: integer
2220      ;
[418]2221      ; example:   start_f = 3 (if first file: example_ts.3.nc) and
2222      ;            start_f = 0 (if first file: example_ts.nc)
[218]2223      ;
2224      ; default:   -1 
2225      ;***************************************************
2226      if (.not. isvar("start_f"))then 
[190]2227     
2228         
[218]2229         start_f = -1
[190]2230         
2231         
[218]2232      end if
[190]2233      ;***************************************************
[513]2234      ; OPTIONAL/REQUIRED if more than one file of a job chain
[418]2235      ;           --end_f-- END OF CYCLIC NUMBER
[218]2236      ;
[418]2237      ; if there is more than one file for all timesteps of a job chain,
[513]2238      ; declare the last cyclicnumber which contains timesteps
2239      ; you'd like to use
[218]2240      ;
2241      ; data type: integer
2242      ;
[418]2243      ; example:   end_f = 48 (if last file: example_ts.48.nc) and
2244      ;            end_f = 0 (if last file: example_ts.nc)
[218]2245      ;
2246      ; default:   -1 
2247      ;***************************************************
2248      if (.not. isvar("end_f"))then 
2249     
2250         
2251         end_f = -1
2252         
2253         
2254      end if
2255      ;***************************************************
[190]2256      ; OPTIONAL --format_out-- OUTPUT FORMAT
2257      ;
[418]2258      ; format of the output file;
[532]2259      ; supported file formats: x11, pdf, ps, eps, epsi, ncgm or png
[190]2260      ;
2261      ; data type: string
2262      ;
[218]2263      ; example: format_out = "pdf"
2264      ;
[190]2265      ; default:   "x11"
2266      ;***************************************************
2267      if (.not. isvar("format_out"))then         
2268     
2269     
2270         format_out = "x11"
2271         
2272         
2273      end if     
2274      ;***************************************************
2275      ; OPTIONAL --file_out-- OUTPUT FILE
2276      ;
[218]2277      ; path and name of the output file
[190]2278      ;
2279      ; data type: string
2280      ;
[218]2281      ; example: file_out = "/home/path_to_output/test_ts"
2282      ;
[194]2283      ; default:   "~/test_ts"
[190]2284      ;***************************************************
2285      if (.not. isvar("file_out"))then 
2286     
2287       
2288         file_out = "~/test_ts"
2289         
2290         
[566]2291      end if
2292 ;***************************************************
[190]2293      ; OPTIONAL --var-- OUTPUT VARIABLES
2294      ;
[526]2295      ; names of output variables;
2296      ; inidcate them with one comma before and after each variable
2297      ; if the name contains double quotes (") use dq and the '+' operation to
2298      ; concatenate the strings
[190]2299      ;
2300      ; data type: string
[218]2301      ;
[526]2302      ; example: var = ",umax,vmax,wmax,w"+dq+"pt"+dq+"0,"
[190]2303      ;
[218]2304      ; default:   "all" (all available variables are plotted)
[190]2305      ;***************************************************
2306      if (.not. isvar("var"))then
2307     
2308         
2309         var = "all"
2310         
2311         
2312      end if     
2313      ;***************************************************
2314      ; OPTIONAL --start_time_step-- FIRST TIME STEP
2315      ;
[418]2316      ; first time step of plot; there is no need to specify a precise
2317      ; time value from the input file,
[218]2318      ; 'start_time_step' is rounded to the next existent time step
[190]2319      ;
2320      ; data type: double; dimension: [hour]
2321      ;
[418]2322      ; example:   start_time_step = 0.5d
[218]2323      ;
[190]2324      ; default:   -1.d (first available time step)
2325      ;***************************************************
2326      if (.not. isvar("start_time_step"))then
2327     
2328         
2329         start_time_step = -1.d
2330         
2331         
2332      end if     
2333      ;***************************************************
2334      ; OPTIONAL --end_time_step-- LAST TIME STEP
2335      ;
[418]2336      ; last time step of plot; there is no need to specify a precise
2337      ; time value from the input file,
[218]2338      ; 'end_time_step' is rounded to the next existent time step
[190]2339      ;
2340      ; data type: double; dimension: [hour]
2341      ;
[418]2342      ; example:   end_time_step = 2.0d
[218]2343      ;
[190]2344      ; default:   -1.d (last available time step)
2345      ;***************************************************
2346      if (.not. isvar("end_time_step"))then
2347     
2348         
2349         end_time_step = -1.d
2350         
[267]2351
[566]2352      end if             
[190]2353      ;***************************************************
2354      ; OPTIONAL --over-- OVERLAYING
2355      ;
[513]2356      ; predefined overlaying of standard variables are switched
2357      ; on [=1] or off [=0];
[190]2358      ; this feature cannot be used with statistic regions
2359      ;
2360      ; data type: integer
2361      ;
[218]2362      ; example: over = 0
2363      ;
[190]2364      ; default:   0
2365      ;***************************************************
2366      if (.not. isvar("over"))then
2367     
2368         
2369         over = 0
2370         
2371         
[218]2372      end if
2373      ;***************************************************
2374      ; OPTIONAL --norm_t-- NORMALISING X-AXIS OF TIMESERIES PLOTS (T-AXIS)
2375      ;
[513]2376      ; normalising the x-axis with the given value;
[566]2377      ; the unit can be set explicitly;
[418]2378      ; by default no normalising and unit is set to [s]
[218]2379      ;
2380      ; data type: float
2381      ;
[418]2382      ; example: norm_t = 3600.
[218]2383      ;
2384      ; default:   1.
2385      ;***************************************************
[513]2386      if(.not. isvar("norm_t"))then
[218]2387     
2388         
2389         norm_t = 1.
2390         
2391         
2392      end if
2393      ;***************************************************
2394      ; OPTIONAL --unit_t-- UNIT OF X-AXIS OF TIMESERIES PLOTS (T-AXIS)
2395      ;
2396      ; unit of the x-axis can be set; by default unit is set to [s]
2397      ;
2398      ; data type: string
2399      ;
2400      ; example: unit_t = "h"
2401      ;
2402      ; default:   " "
2403      ;***************************************************
[513]2404      if(.not. isvar("unit_t"))then
[218]2405     
2406         
2407         unit_t = " "
2408         
2409         
2410      end if
2411      ;***************************************************
[566]2412      ; OPTIONAL --no_columns-- NUMBER OF COLUMNS
2413      ;
2414      ; number of plots in one row
2415      ;
2416      ; data type: integer
2417      ;
2418      ; example: no_columns = 1
2419      ;
2420      ; default:   1
2421      ;***************************************************
2422      if (.not. isvar("no_columns"))then       
2423     
2424       
2425         no_columns = 1
2426         
2427         
2428      end if     
2429      ;***************************************************
2430      ; OPTIONAL --no_rows-- NUMBER OF ROWS
2431      ;
2432      ; number of plots in one column
2433      ;
2434      ; data type: integer
2435      ;
2436      ; example: no_rows = 2
2437      ;
2438      ; default:   2
2439      ;***************************************************
2440      if (.not. isvar("no_rows"))then
2441     
2442         
2443         no_rows = 2
2444         
2445         
2446      end if     
2447      ;***************************************************
2448      ; OPTIONAL --font_size-- FONT SIZE OF STRINGS
2449      ;
2450      ; font size can be changed to fit to the current plot
2451      ;
2452      ; data type: float
2453      ;
2454      ; example: font_size = 0.07
2455      ;
2456      ; default:   0.07
2457      ;***************************************************
2458      if(.not. isvar("font_size"))then
2459     
2460         
2461         font_size = 0.07
2462         
2463         
2464      end if
2465      ;***************************************************
[190]2466
2467   end if
2468         
2469;*********************************************************       
2470   
2471end
Note: See TracBrowser for help on using the repository browser.