1 #====================================================================== |
1 #====================================================================== |
2 # P L O T _ W S A M P . P L |
2 # P L O T _ W S A M P . P L |
3 # doc: Tue Jul 28 13:21:09 2015 |
3 # doc: Tue Jul 28 13:21:09 2015 |
4 # dlm: Mon Oct 12 13:37:27 2015 |
4 # dlm: Tue Jan 26 20:46:47 2016 |
5 # (c) 2015 A.M. Thurnherr |
5 # (c) 2015 A.M. Thurnherr |
6 # uE-Info: 13 53 NIL 0 0 72 0 2 4 NIL ofnI |
6 # uE-Info: 22 31 NIL 0 0 72 0 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Jul 28, 2015: - created from [LWplot_w] |
10 # Jul 28, 2015: - created from [LWplot_w] |
11 # Jul 30, 2015: - added support for outGrid_* |
11 # Jul 30, 2015: - added support for outGrid_* |
12 # Sep 21, 2015: - BUG: function was still called plot_w() |
12 # Sep 21, 2015: - BUG: function was still called plot_w() |
13 # Oct 12, 2015: - move main label outside plot area |
13 # Oct 12, 2015: - move main label outside plot area |
|
14 # Jan 26, 2016: - added return on no data to plot |
14 |
15 |
15 require "$ANTS/libGMT.pl"; |
16 require "$ANTS/libGMT.pl"; |
16 |
17 |
17 sub plot_wsamp($) |
18 sub plot_wsamp($) |
18 { |
19 { |
19 my($pfn) = @_; |
20 my($pfn) = @_; |
|
21 |
|
22 return unless ($P{max_depth}); |
20 |
23 |
21 my($xmin) = $P{min_ens}-0.5; |
24 my($xmin) = $P{min_ens}-0.5; |
22 my($xmax) = $P{max_ens}+0.5; |
25 my($xmax) = $P{max_ens}+0.5; |
23 my($ymin) = 0; |
26 my($ymin) = 0; |
24 my($ymax) = ($P{water_depth} > 0) ? |
27 my($ymax) = ($P{water_depth} > 0) ? |