|
1 %====================================================================== |
|
2 % N O C S _ V M P 2 A N T S . M |
|
3 % doc: Wed Aug 10 19:52:02 2016 |
|
4 % dlm: Wed Aug 10 20:43:57 2016 |
|
5 % (c) 2016 A.M. Thurnherr |
|
6 % uE-Info: 38 33 NIL 0 0 72 2 2 4 NIL ofnI |
|
7 %====================================================================== |
|
8 |
|
9 % HISTORY: |
|
10 % Aug 10, 2016: - created for DIMES UK2.5 data from Reykjavik |
|
11 |
|
12 function [] = NOCS_VMP2ANTS(matf) |
|
13 global STRUCT2ANTS; % suppress diagnostic messages |
|
14 STRUCT2ANTS.verb = 0; |
|
15 |
|
16 load(matf); |
|
17 for id=1:length(d.stnid) |
|
18 if isfinite(d.ctdno(id)) |
|
19 prof.id = d.ctdno(id); |
|
20 obn = sprintf('%03d',prof.id); |
|
21 else |
|
22 prof.id = sprintf('VMP%03d',d.vmpno(id)); |
|
23 obn = prof.id; |
|
24 end |
|
25 prof.VMP_id = d.vmpid(:,id)'; |
|
26 prof.VMP_no = d.vmpno(id); |
|
27 prof.stn_id = d.stnid(:,id)'; |
|
28 prof.CTD_no = d.ctdno(id); |
|
29 prof.lat = d.startlat(id); |
|
30 prof.lon = d.startlon(id); |
|
31 prof.dn = d.startjday(id); |
|
32 prof.end_lat = d.endlat(id); |
|
33 prof.end_lon = d.endlon(id); |
|
34 prof.end_dn = d.endjday(id); |
|
35 prof.ITS = 90; |
|
36 prof.press = d.press(:,id); |
|
37 prof.temp = d.temp(:,id); |
|
38 prof.salin = d.salin(:,id); |
|
39 prof.chi = d.chi(:,id); |
|
40 prof.eps = d.eps(:,id); |
|
41 struct2ANTS(prof,matf,sprintf('%s.VMP',obn)); |
|
42 end |
|
43 end |
|
44 |