1 %====================================================================== |
1 %====================================================================== |
2 % S A V E R E S . M |
2 % S A V E R E S . M |
3 % doc: Fri Sep 26 15:55:18 2014 |
3 % doc: Fri Sep 26 15:55:18 2014 |
4 % dlm: Fri Sep 26 16:04:57 2014 |
4 % dlm: Wed Mar 29 12:33:09 2017 |
5 % (c) 2014 A.M. Thurnherr |
5 % (c) 2014 A.M. Thurnherr |
6 % uE-Info: 19 46 NIL 0 0 72 0 2 4 NIL ofnI |
6 % uE-Info: 22 51 NIL 0 0 72 0 2 4 NIL ofnI |
7 %====================================================================== |
7 %====================================================================== |
8 |
8 |
9 function []=saveres(dr,p,ps,f,d) |
9 function []=saveres(dr,p,ps,f,d,att,da) |
10 % function []=saveres(dr,p,ps,f,d) |
10 % function []=saveres(dr,p,ps,f,d,att,da) |
11 % |
11 % |
12 % store LADCP result in RODB format |
12 % store LADCP result in RODB format |
13 % |
13 % |
14 |
14 |
15 % MODIFICTIONS BY ANT: |
15 % MODIFICTIONS BY ANT: |
16 % Sep 26, 2014: - added support for p.orig (patch by Dan Torres) |
16 % Sep 26, 2014: - added support for p.orig (patch by Dan Torres) |
|
17 % Mar 29, 2017: - added att and da as requested by UH for archiving |
17 |
18 |
18 if p.orig == 1 |
19 if p.orig == 1 |
19 eval(['save ',[f.res,'.mat'],' dr p ps f d']) |
20 eval(['save ',[f.res,'.mat'],' dr p ps f d da att']) |
20 else |
21 else |
21 eval(['save ',[f.res,'.mat'],' dr p ps f']) |
22 eval(['save ',[f.res,'.mat'],' dr p ps f da att']) |
22 end |
23 end |
23 |
24 |
24 % version 0.1 last change 28.6.2000 |
25 % version 0.1 last change 28.6.2000 |
25 % open file |
26 % open file |
26 fid = fopen([f.res,'.lad'],'wt'); |
27 fid = fopen([f.res,'.lad'],'wt'); |