profilesMatlabProcessing/profiles_misc/MITprof_struct.m

function [MITprof]=MITprof_struct(nProf,depth);
%   [MITprof]=MITprof_struct;
%   create an empty struct variable using the format MITprof
%       nProf: number of profiles
%       depth: list of depth levels

nLev=length(depth);

MITprof=[];
MITprof.prof_depth=depth;
MITprof.prof_date=zeros(nProf,1);
MITprof.prof_YYYYMMDD=zeros(nProf,1);
MITprof.prof_HHMMSS=zeros(nProf,1);
MITprof.prof_lon=zeros(nProf,1);
MITprof.prof_lat=zeros(nProf,1);
MITprof.prof_basin=zeros(nProf,1);
MITprof.prof_point=zeros(nProf,1);
MITprof.prof_descr=cell(nProf,1);
MITprof.prof_T=zeros(nProf,nLev);
MITprof.prof_Tweight=zeros(nProf,nLev);
MITprof.prof_Testim=zeros(nProf,nLev);
MITprof.prof_Tflag=zeros(nProf,nLev);
MITprof.prof_Terr=zeros(nProf,nLev);
MITprof.prof_S=zeros(nProf,nLev);
MITprof.prof_Sweight=zeros(nProf,nLev);
MITprof.prof_Sestim=zeros(nProf,nLev);
MITprof.prof_Sflag=zeros(nProf,nLev);
MITprof.prof_Serr=zeros(nProf,nLev);
MITprof.np=nProf;
MITprof.nr=nLev;
MITprof.nd=0;
MITprof.list_descr={};


1	roquet	1.2	function [MITprof]=MITprof_struct(nProf,depth);
2	gforget	1.1	% [MITprof]=MITprof_struct;
3			% create an empty struct variable using the format MITprof
4			% nProf: number of profiles
5	roquet	1.2	% depth: list of depth levels
6
7			nLev=length(depth);
8	gforget	1.1
9			MITprof=[];
10	roquet	1.2	MITprof.prof_depth=depth;
11	gforget	1.1	MITprof.prof_date=zeros(nProf,1);
12			MITprof.prof_YYYYMMDD=zeros(nProf,1);
13			MITprof.prof_HHMMSS=zeros(nProf,1);
14			MITprof.prof_lon=zeros(nProf,1);
15			MITprof.prof_lat=zeros(nProf,1);
16			MITprof.prof_basin=zeros(nProf,1);
17			MITprof.prof_point=zeros(nProf,1);
18			MITprof.prof_descr=cell(nProf,1);
19			MITprof.prof_T=zeros(nProf,nLev);
20			MITprof.prof_Tweight=zeros(nProf,nLev);
21			MITprof.prof_Testim=zeros(nProf,nLev);
22			MITprof.prof_Tflag=zeros(nProf,nLev);
23	roquet	1.2	MITprof.prof_Terr=zeros(nProf,nLev);
24	gforget	1.1	MITprof.prof_S=zeros(nProf,nLev);
25			MITprof.prof_Sweight=zeros(nProf,nLev);
26			MITprof.prof_Sestim=zeros(nProf,nLev);
27			MITprof.prof_Sflag=zeros(nProf,nLev);
28	roquet	1.2	MITprof.prof_Serr=zeros(nProf,nLev);
29	gforget	1.1	MITprof.np=nProf;
30			MITprof.nr=nLev;
31			MITprof.nd=0;
32			MITprof.list_descr={};
33
34
35