| author | A.M. Thurnherr <athurnherr@yahoo.com> |
| Mon, 23 Feb 2015 09:19:46 +0000 | |
| changeset 15 | 3746197831db |
| parent 0 | 0a450563f904 |
| child 20 | 61b92f8fb463 |
| permissions | -rw-r--r-- |
|
15
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
1 |
%====================================================================== |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
2 |
% S A V E R E S . M |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
3 |
% doc: Fri Sep 26 15:55:18 2014 |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
4 |
% dlm: Fri Sep 26 16:04:57 2014 |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
5 |
% (c) 2014 A.M. Thurnherr |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
6 |
% uE-Info: 19 46 NIL 0 0 72 0 2 4 NIL ofnI |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
7 |
%====================================================================== |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
8 |
|
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
9 |
function []=saveres(dr,p,ps,f,d) |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
10 |
% function []=saveres(dr,p,ps,f,d) |
|
0
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
11 |
% |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
12 |
% store LADCP result in RODB format |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
13 |
% |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
14 |
|
|
15
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
15 |
% MODIFICTIONS BY ANT: |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
16 |
% Sep 26, 2014: - added support for p.orig (patch by Dan Torres) |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
17 |
|
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
18 |
if p.orig == 1 |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
19 |
eval(['save ',[f.res,'.mat'],' dr p ps f d']) |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
20 |
else |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
21 |
eval(['save ',[f.res,'.mat'],' dr p ps f']) |
|
3746197831db
IX11beta for CLIVAR P16
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
0
diff
changeset
|
22 |
end |
|
0
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
23 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
24 |
% version 0.1 last change 28.6.2000 |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
25 |
% open file |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
26 |
fid = fopen([f.res,'.lad'],'wt'); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
27 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
28 |
fprintf(fid,['Filename = %s\n'],f.res); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
29 |
fprintf(fid,['Date = %4d/%2d/%2d\n'],p.time_start(1:3)); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
30 |
fprintf(fid,['Start_Time = %2d:%2d:%2d\n'],p.time_start(4:6)); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
31 |
[lats,lons] = pos2str([p.poss(1)+p.poss(2)/60,p.poss(3)+p.poss(4)/60]); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
32 |
fprintf(fid,['Start_Lat = %s\n'],lats); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
33 |
fprintf(fid,['Start_Lon = %s\n'],lons); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
34 |
fprintf(fid,['Deviation = %f\n'],p.drot); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
35 |
fprintf(fid,['Columns = z:u:v:ev\n'],[]); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
36 |
if existf(dr,'uerr')~=1 |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
37 |
dr.uerr=dr.u*NaN; |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
38 |
end |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
39 |
fprintf(fid,['%6.1f %6.3f %6.3f %6.3f \n'],[dr.z,dr.u,dr.v,dr.uerr]'); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
40 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
41 |
fclose(fid); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
42 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
43 |
if existf(dr,'ubot')==1 |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
44 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
45 |
% save bottom track data |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
46 |
% open file |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
47 |
fid = fopen([f.res,'.bot'],'wt'); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
48 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
49 |
fprintf(fid,['Filename = %s\n'],f.res); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
50 |
fprintf(fid,['Date = %4d/%2d/%2d\n'],p.time_start(1:3)); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
51 |
fprintf(fid,['Start_Time = %2d:%2d:%2d\n'],p.time_start(4:6)); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
52 |
[lats,lons] = pos2str([p.poss(1)+p.poss(2)/60,p.poss(3)+p.poss(4)/60]); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
53 |
fprintf(fid,['Start_Lat = %s\n'],lats); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
54 |
fprintf(fid,['Start_Lon = %s\n'],lons); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
55 |
fprintf(fid,['Deviation = %f\n'],p.drot); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
56 |
fprintf(fid,['Bottom depth= %d\n'],fix(p.zbottom)); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
57 |
fprintf(fid,['Columns = z:u:v:err\n'],[]); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
58 |
fprintf(fid,['%6.1f %6.3f %6.3f %6.3f\n'],... |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
59 |
[dr.zbot,dr.ubot,dr.vbot,dr.uerrbot]'); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
60 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
61 |
fclose(fid); |
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
62 |
|
|
0a450563f904
VIX_6: first version for Mercurial release
A.M. Thurnherr <ant@ldeo.columbia.edu>
parents:
diff
changeset
|
63 |
end |