matlab_class/gcmfaces_diags/diags_pre_process.m

function [myswitch]=diags_pre_process(dirModel,dirMat,doInteractive);
%object :      pre-processing for grid, model parameters, budgets,
%              profiles, cost and control, etc if required
%input :       dirModel is the directory containing 'diags/' or 'nctiles/'
%              dirMat is the directory where diagnostics results will be saved
%                     if isempty(dirMat) then [dirModel 'mat/'] is used by default
%(optional)    doInteractive=1 allows users to specify parameters interactively
%                     doInteractive = 0 (default) uses ECCO v4 parameters
%                     and omits budgets and model-data misfits analyses
%output :      myswitch is the set of switches (doBudget, doProfiles, doCost, doCtrl)
%                     that are set here depending on the model output available

gcmfaces_global; global myparms;

dirModel=[dirModel '/'];
if isempty(dirMat); dirMat=[dirModel 'mat/']; else; dirMat=[dirMat '/']; end;
if isempty(who('doInteractive')); doInteractive=0; end;

%detect which types of files are avaiable
test0=isdir([dirModel 'diags']);
test1=~isempty(dir([dirModel 'nctiles*']));
if test0&test1&doInteractive;
    myenv.nctiles=input('select to use binaries (0) or nctiles (1) files\n');
elseif test1;
    myenv.nctiles=1;
elseif test0;
    myenv.nctiles=0;
else;
    error('no files (diags/ or nctiles/)  were found\n');
end

if doInteractive;%only works with binaries
    doBudget=~isempty(dir([dirModel 'diags/BUDG/']))
    doBudget=doBudget&~myenv.nctiles;
    doCost=~isempty(dir([dirModel 'barfiles/']))
    doCtrl=~isempty(dir([dirModel 'ADXXfiles/']))
else;
    doBudget=0;
    doCost=0;
    doCtrl=0;
end;

doProfiles=~isempty(dir([dirModel 'MITprof/']));
preprocessProfiles=0;
myenv.profiles=[pwd '/' dirModel 'MITprof/'];
if ~doProfiles;
    doProfiles=~isempty(dir([dirModel 'profiles/']));
    preprocessProfiles=1;
    myenv.profiles=[pwd '/' dirMat 'profiles/output/'];
end;

%output switches
myswitch.doBudget=doBudget;
myswitch.doProfiles=doProfiles;
myswitch.doCost=doCost;
myswitch.doCtrl=doCtrl;

%set the list of diags directories and files
if myenv.nctiles;
    if isdir([pwd '/' dirModel 'nctiles/']);
        listSubdirs={[pwd '/' dirModel 'nctiles/']};
    elseif isdir([pwd '/' dirModel 'nctiles_climatology/']);
        listSubdirs={[pwd '/' dirModel 'nctiles_climatology/']};
    end;
    
    listFiles=dir(listSubdirs{1}); listFiles={listFiles(:).name};
    %remove irrelevant files/dirs
    test1=ones(size(listFiles));
    for kk=1:length(listFiles);
        tmp1=[listSubdirs{1} listFiles{kk} '/' listFiles{kk} '*.nc'];
        test1(kk)=~isempty(dir(tmp1));
    end;
    listFiles={listFiles{find(test1)}};
    %store in myparms for later use
    myenv.nctilesdir=listSubdirs{1};
    myenv.nctileslist=listFiles;
end;

%0) create dirMat if needed:
if isempty(dir(dirMat)); mkdir(dirMat); end;

%1) pre-processing diags_grid_parms.mat
test0=isempty(dir([dirMat 'diags_grid_parms.mat']));
test1=isempty(dir([dirMat 'lock_mygrid']));

if test0&test1;%this process will do the pre-processing
    fprintf(['pre-processing : started for mygrid, myparms \n']);
    write2file([dirMat 'lock_mygrid'],1);
    %set the list of diags times
    [listTimes]=diags_list_times;
    %set grid and model parameters:
    diags_grid_parms(listTimes,doInteractive);
    %save to disk:
    %if doInteractive;
    eval(['save ' dirMat 'diags_grid_parms.mat mygrid myparms;']);
    %end;
    delete([dirMat 'lock_mygrid']);
    test1=1;
    fprintf(['pre-processing : completed for mygrid, myparms \n\n']);
end;

%here I should test that files are indeed found (may have been moved)

while ~test1;%this process will wait for pre-processing to complete
    fprintf(['waiting 30s for removal of ' dirMat 'lock_mygrid \n']);
    fprintf(['- That should happen automatically after pre-processing is complete \n']);
    fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
    fprintf(['  remove ' dirMat 'lock_grid manually, and start over. \n\n']);
    test1=isempty(dir([dirMat 'lock_mygrid']));
    pause(30);
end;

%here we always reload the grid from dirMat to make sure the same one is used throughout
eval(['load ' dirMat 'diags_grid_parms.mat;']);

%2) pre-processing profiles
test0=isempty(dir([dirMat 'profiles/']));
test1=isempty(dir([dirMat 'lock_profiles']));

if test0&test1&doProfiles&preprocessProfiles;%this process will do the pre-processing
    fprintf(['pre-processing : started for profiles \n']);
    write2file([dirMat 'lock_profiles'],1);
    mkdir([dirMat 'profiles/']);
    % NOTE: if on DOS system change ln to mklink
    system(['ln -s /net/nares/raid11/ecco-shared/ecco-version-4/input/input_insitu ' dirMat 'profiles/input']);
    mkdir([dirMat 'profiles/output/']);
    if dirModel(1)~='/'; dirModelFull=[pwd '/' dirModel]; else; dirModelFull=dirModel; end;
    % NOTE: if on DOS system change ln to mklink
    system(['ln -s ' dirModelFull 'profiles/*equi.data ' dirMat 'profiles/.']);
    listModel={'argo_feb2013_1992_to_2007*','argo_feb2013_2008_to_2010*',...
        'argo_feb2013_2011_to_2012*','ctd_feb2013*','itp_feb2013*',...
        'seals_feb2013*','xbt_feb2013*','climode_feb2013*'};
    MITprof_gcm2nc([dirMat 'profiles/'],listModel);
    delete([dirMat 'lock_profiles']);
    test1=1;
    fprintf(['pre-processing : completed for profiles \n\n']);
end;

while ~test1&doProfiles;%this process will wait for pre-processing to complete
    fprintf(['waiting 30s for removal of ' dirMat 'lock_profiles \n']);
    fprintf(['- That should happen automatically after pre-processing is complete \n']);
    fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
    fprintf(['  remove ' dirMat 'lock_profiles manually, and start over. \n\n']);
    test1=isempty(dir([dirMat 'lock_profiles']));
    pause(30);
end;

%3) budget pre-processing
test0=isempty(dir([dirMat 'BUDG/']));
test1=isempty(dir([dirMat 'lock_budg']));%this aims at having only one process do the

if (test0&test1&doBudget);
    fprintf(['pre-processing : started for budget \n']);
    write2file([dirMat 'lock_budg'],1);
    mkdir([dirMat 'BUDG/']);
    %compute time derivatives between snwpshots that will be
    %compared in budgets with the time mean flux terms
    diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set1');
    diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set2');
    diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set3');
    %diags_diff_snapshots(dirModel,dirMat,'budg3d_snap_set1');
    budget_list=1;
    for kk=1:length(mygrid.RC);
        tmp1=sprintf('%s/diags/BUDG/budg2d_snap_set3_%02i*',dirModel,kk);
        tmp2=~isempty(dir(tmp1));
        if tmp2;
            budget_list=[budget_list kk];
            tmp1=sprintf('budg2d_snap_set3_%02i',kk);
            diags_diff_snapshots(dirModel,dirMat,tmp1);
        end;
    end;
    eval(['save ' dirMat 'diags_select_budget_list.mat budget_list;']);
    delete([dirMat 'lock_budg']);
    test1=1;
    fprintf(['pre-processing : completed for budget \n\n']);
end;

while ~test1&doBudget;%this process will wait for pre-processing to complete
    fprintf(['waiting 30s more for removal of ' dirMat 'lock_budg \n']);
    fprintf(['- That should happen automatically after pre-processing is complete \n']);
    fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
    fprintf(['  remove ' dirMat 'lock_budg manually, and start over. \n\n']);
    test1=isempty(dir([dirMat 'lock_budg']));
    pause(30);
end;

%set budget list
myparms.budgetList=1;
if ~isempty(dir([dirMat 'diags_select_budget_list.mat']));
    eval(['load ' dirMat 'diags_select_budget_list.mat;']);
    myparms.budgetList=budget_list;
end;
1	gforget	1.8	function [myswitch]=diags_pre_process(dirModel,dirMat,doInteractive);
2	gforget	1.10	%object : pre-processing for grid, model parameters, budgets,
3	gforget	1.8	% profiles, cost and control, etc if required
4			%input : dirModel is the directory containing 'diags/' or 'nctiles/'
5			% dirMat is the directory where diagnostics results will be saved
6			% if isempty(dirMat) then [dirModel 'mat/'] is used by default
7			%(optional) doInteractive=1 allows users to specify parameters interactively
8			% doInteractive = 0 (default) uses ECCO v4 parameters
9			% and omits budgets and model-data misfits analyses
10			%output : myswitch is the set of switches (doBudget, doProfiles, doCost, doCtrl)
11			% that are set here depending on the model output available
12	gforget	1.1
13			gcmfaces_global; global myparms;
14
15			dirModel=[dirModel '/'];
16			if isempty(dirMat); dirMat=[dirModel 'mat/']; else; dirMat=[dirMat '/']; end;
17	gforget	1.8	if isempty(who('doInteractive')); doInteractive=0; end;
18	gforget	1.1
19	gforget	1.6	%detect which types of files are avaiable
20			test0=isdir([dirModel 'diags']);
21	gforget	1.11	test1=~isempty(dir([dirModel 'nctiles*']));
22	gforget	1.10	if test0&test1&doInteractive;
23			myenv.nctiles=input('select to use binaries (0) or nctiles (1) files\n');
24	gforget	1.8	elseif test1;
25	gforget	1.10	myenv.nctiles=1;
26	gforget	1.6	elseif test0;
27	gforget	1.10	myenv.nctiles=0;
28	gforget	1.6	else;
29	gforget	1.10	error('no files (diags/ or nctiles/) were found\n');
30	gforget	1.6	end
31
32	gforget	1.10	if doInteractive;%only works with binaries
33			doBudget=~isempty(dir([dirModel 'diags/BUDG/']))
34			doBudget=doBudget&~myenv.nctiles;
35			doCost=~isempty(dir([dirModel 'barfiles/']))
36			doCtrl=~isempty(dir([dirModel 'ADXXfiles/']))
37	gforget	1.8	else;
38	gforget	1.10	doBudget=0;
39			doCost=0;
40			doCtrl=0;
41	gforget	1.8	end;
42
43			doProfiles=~isempty(dir([dirModel 'MITprof/']));
44			preprocessProfiles=0;
45			myenv.profiles=[pwd '/' dirModel 'MITprof/'];
46			if ~doProfiles;
47	gforget	1.10	doProfiles=~isempty(dir([dirModel 'profiles/']));
48			preprocessProfiles=1;
49			myenv.profiles=[pwd '/' dirMat 'profiles/output/'];
50	gforget	1.8	end;
51	gforget	1.1
52			%output switches
53			myswitch.doBudget=doBudget;
54			myswitch.doProfiles=doProfiles;
55			myswitch.doCost=doCost;
56			myswitch.doCtrl=doCtrl;
57
58	gforget	1.6	%set the list of diags directories and files
59			if myenv.nctiles;
60	gforget	1.11	if isdir([pwd '/' dirModel 'nctiles/']);
61			listSubdirs={[pwd '/' dirModel 'nctiles/']};
62			elseif isdir([pwd '/' dirModel 'nctiles_climatology/']);
63			listSubdirs={[pwd '/' dirModel 'nctiles_climatology/']};
64			end;
65
66	gforget	1.6	listFiles=dir(listSubdirs{1}); listFiles={listFiles(:).name};
67			%remove irrelevant files/dirs
68			test1=ones(size(listFiles));
69			for kk=1:length(listFiles);
70	gforget	1.10	tmp1=[listSubdirs{1} listFiles{kk} '/' listFiles{kk} '*.nc'];
71			test1(kk)=~isempty(dir(tmp1));
72	gforget	1.6	end;
73			listFiles={listFiles{find(test1)}};
74			%store in myparms for later use
75			myenv.nctilesdir=listSubdirs{1};
76			myenv.nctileslist=listFiles;
77			end;
78
79	gforget	1.1	%0) create dirMat if needed:
80	gforget	1.7	if isempty(dir(dirMat)); mkdir(dirMat); end;
81	gforget	1.1
82			%1) pre-processing diags_grid_parms.mat
83			test0=isempty(dir([dirMat 'diags_grid_parms.mat']));
84			test1=isempty(dir([dirMat 'lock_mygrid']));
85
86			if test0&test1;%this process will do the pre-processing
87	gforget	1.8	fprintf(['pre-processing : started for mygrid, myparms \n']);
88	gforget	1.1	write2file([dirMat 'lock_mygrid'],1);
89			%set the list of diags times
90	gforget	1.10	[listTimes]=diags_list_times;
91	gforget	1.1	%set grid and model parameters:
92	gforget	1.8	diags_grid_parms(listTimes,doInteractive);
93	gforget	1.1	%save to disk:
94	gforget	1.10	%if doInteractive;
95			eval(['save ' dirMat 'diags_grid_parms.mat mygrid myparms;']);
96			%end;
97	gforget	1.7	delete([dirMat 'lock_mygrid']);
98	gforget	1.1	test1=1;
99	gforget	1.8	fprintf(['pre-processing : completed for mygrid, myparms \n\n']);
100	gforget	1.1	end;
101
102	gforget	1.6	%here I should test that files are indeed found (may have been moved)
103
104	gforget	1.1	while ~test1;%this process will wait for pre-processing to complete
105			fprintf(['waiting 30s for removal of ' dirMat 'lock_mygrid \n']);
106	gforget	1.2	fprintf(['- That should happen automatically after pre-processing is complete \n']);
107			fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
108			fprintf([' remove ' dirMat 'lock_grid manually, and start over. \n\n']);
109	gforget	1.1	test1=isempty(dir([dirMat 'lock_mygrid']));
110			pause(30);
111			end;
112
113			%here we always reload the grid from dirMat to make sure the same one is used throughout
114	gforget	1.10	eval(['load ' dirMat 'diags_grid_parms.mat;']);
115	gforget	1.1
116			%2) pre-processing profiles
117			test0=isempty(dir([dirMat 'profiles/']));
118			test1=isempty(dir([dirMat 'lock_profiles']));
119
120	gforget	1.8	if test0&test1&doProfiles&preprocessProfiles;%this process will do the pre-processing
121	gforget	1.1	fprintf(['pre-processing : started for profiles \n']);
122			write2file([dirMat 'lock_profiles'],1);
123	gforget	1.7	mkdir([dirMat 'profiles/']);
124	gforget	1.10	% NOTE: if on DOS system change ln to mklink
125	gforget	1.7	system(['ln -s /net/nares/raid11/ecco-shared/ecco-version-4/input/input_insitu ' dirMat 'profiles/input']);
126			mkdir([dirMat 'profiles/output/']);
127	gforget	1.1	if dirModel(1)~='/'; dirModelFull=[pwd '/' dirModel]; else; dirModelFull=dirModel; end;
128	gforget	1.10	% NOTE: if on DOS system change ln to mklink
129	gforget	1.7	system(['ln -s ' dirModelFull 'profiles/*equi.data ' dirMat 'profiles/.']);
130	gforget	1.4	listModel={'argo_feb2013_1992_to_2007','argo_feb2013_2008_to_2010',...
131	gforget	1.3	'argo_feb2013_2011_to_2012','ctd_feb2013','itp_feb2013*',...
132			'seals_feb2013','xbt_feb2013','climode_feb2013*'};
133	gforget	1.1	MITprof_gcm2nc([dirMat 'profiles/'],listModel);
134	gforget	1.7	delete([dirMat 'lock_profiles']);
135	gforget	1.1	test1=1;
136			fprintf(['pre-processing : completed for profiles \n\n']);
137			end;
138
139			while ~test1&doProfiles;%this process will wait for pre-processing to complete
140			fprintf(['waiting 30s for removal of ' dirMat 'lock_profiles \n']);
141	gforget	1.2	fprintf(['- That should happen automatically after pre-processing is complete \n']);
142			fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
143			fprintf([' remove ' dirMat 'lock_profiles manually, and start over. \n\n']);
144	gforget	1.1	test1=isempty(dir([dirMat 'lock_profiles']));
145			pause(30);
146			end;
147
148			%3) budget pre-processing
149			test0=isempty(dir([dirMat 'BUDG/']));
150			test1=isempty(dir([dirMat 'lock_budg']));%this aims at having only one process do the
151
152			if (test0&test1&doBudget);
153			fprintf(['pre-processing : started for budget \n']);
154			write2file([dirMat 'lock_budg'],1);
155	gforget	1.7	mkdir([dirMat 'BUDG/']);
156	gforget	1.1	%compute time derivatives between snwpshots that will be
157			%compared in budgets with the time mean flux terms
158	gforget	1.5	diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set1');
159			diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set2');
160			diags_diff_snapshots(dirModel,dirMat,'budg2d_snap_set3');
161			%diags_diff_snapshots(dirModel,dirMat,'budg3d_snap_set1');
162	gforget	1.1	budget_list=1;
163			for kk=1:length(mygrid.RC);
164			tmp1=sprintf('%s/diags/BUDG/budg2d_snap_set3_%02i*',dirModel,kk);
165			tmp2=~isempty(dir(tmp1));
166			if tmp2;
167			budget_list=[budget_list kk];
168			tmp1=sprintf('budg2d_snap_set3_%02i',kk);
169	gforget	1.5	diags_diff_snapshots(dirModel,dirMat,tmp1);
170	gforget	1.1	end;
171			end;
172			eval(['save ' dirMat 'diags_select_budget_list.mat budget_list;']);
173	gforget	1.7	delete([dirMat 'lock_budg']);
174	gforget	1.1	test1=1;
175			fprintf(['pre-processing : completed for budget \n\n']);
176			end;
177
178			while ~test1&doBudget;%this process will wait for pre-processing to complete
179			fprintf(['waiting 30s more for removal of ' dirMat 'lock_budg \n']);
180	gforget	1.2	fprintf(['- That should happen automatically after pre-processing is complete \n']);
181			fprintf(['- But if a previous session was interupted, you may need to stop this one, \n ']);
182			fprintf([' remove ' dirMat 'lock_budg manually, and start over. \n\n']);
183	gforget	1.1	test1=isempty(dir([dirMat 'lock_budg']));
184			pause(30);
185			end;
186
187	gforget	1.10	%set budget list
188			myparms.budgetList=1;
189			if ~isempty(dir([dirMat 'diags_select_budget_list.mat']));
190			eval(['load ' dirMat 'diags_select_budget_list.mat;']);
191			myparms.budgetList=budget_list;
192			end;