author | A.M. Thurnherr <athurnherr@yahoo.com> |
Tue, 06 Dec 2022 12:47:21 -0500 | |
changeset 64 | 58ef697c01ae |
parent 47 | 2ccb81b7cea5 |
permissions | -rw-r--r-- |
42 | 1 |
#====================================================================== |
2 |
# D E F A U L T _ P A T H S . P L |
|
3 |
# doc: Tue Mar 29 07:09:52 2016 |
|
47
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
4 |
# dlm: Wed Jun 1 19:20:45 2016 |
42 | 5 |
# (c) 2016 A.M. Thurnherr |
47
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
6 |
# uE-Info: 16 57 NIL 0 0 72 0 2 4 NIL ofnI |
42 | 7 |
#====================================================================== |
8 |
||
9 |
# HISTORY: |
|
10 |
# Mar 29, 2016: - split from [defaults.pl] |
|
45
6d49c7420a6c
stable V1.3beta, just before implementing bin interpolation
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
11 |
# May 18, 2016: - added new attitude and acceleration residuals plots |
6d49c7420a6c
stable V1.3beta, just before implementing bin interpolation
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
12 |
# - renamed mean_residual to bin_residuals plots |
6d49c7420a6c
stable V1.3beta, just before implementing bin interpolation
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
13 |
# - added new residual_profs plot |
47
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
14 |
# Jun 1, 2016: - added residuals12 plots |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
15 |
# - added support for $plotting_level |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
16 |
# - exported stuff to [default_output.pl] |
42 | 17 |
|
18 |
#====================================================================== |
|
19 |
# ProcessingParams file selection |
|
20 |
#====================================================================== |
|
21 |
||
22 |
if (-r "ProcessingParams.$RUN") { |
|
23 |
$processing_param_file = "ProcessingParams.$RUN"; |
|
24 |
} elsif (-r "ProcessingParams.default") { |
|
25 |
$processing_param_file = "ProcessingParams.default"; |
|
26 |
} elsif (-r "ProcessingParams") { |
|
27 |
$processing_param_file = "ProcessingParams"; |
|
28 |
} else { |
|
29 |
error("$0: cannot find either <ProcessingParams.$RUN> or <ProcessingParams[.default]>\n"); |
|
30 |
} |
|
31 |
||
32 |
#====================================================================== |
|
33 |
# Output |
|
34 |
#====================================================================== |
|
35 |
||
36 |
# The "base name" of all output files (usually 0-padded 3-digits) |
|
37 |
||
38 |
$out_basename = sprintf('%03d',$PROF); |
|
39 |
||
40 |
||
41 |
# Output subdirectories |
|
42 |
# these are automatically created as long as they don't contain a "/" |
|
43 |
||
44 |
$data_dir = $plot_dir = $log_dir = $RUN; |
|
45 |
unless (-d $data_dir) { |
|
46 |
unless ($data_dir =~ m{/}) { |
|
47 |
warning(0,"Creating data sub-directory ./$data_dir\n"); |
|
48 |
mkdir($data_dir); |
|
49 |
} |
|
50 |
error("$data_dir: no such directory\n") unless (-d $data_dir); |
|
51 |
} |
|
52 |
unless (-d $log_dir) { |
|
53 |
unless ($log_dir =~ m{/}) { |
|
54 |
warning(0,"Creating log-file sub-directory ./$log_dir\n"); |
|
55 |
mkdir($log_dir); |
|
56 |
} |
|
57 |
error("$log_dir: no such directory\n") unless (-d $log_dir); |
|
58 |
} |
|
47
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
59 |
if ($plotting_level > 0) { |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
60 |
unless (-d $plot_dir) { |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
61 |
unless ($plot_dir =~ m{/}) { |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
62 |
warning(0,"Creating plot sub-directory ./$plot_dir\n"); |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
63 |
mkdir($plot_dir); |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
64 |
} |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
65 |
error("$plot_dir: no such directory\n") unless (-d $plot_dir); |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
66 |
} |
2ccb81b7cea5
version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
45
diff
changeset
|
67 |
} |
42 | 68 |
|
69 |
#---------------------------------------------------------------------- |
|
70 |
||
71 |
1; # return true |
|
72 |