gael/matlab_class/gcmfaces_init.m


global gcmfaces_verbose; gcmfaces_verbose=1;

global mydir; mydir=[pwd '/'];

fid=fopen([mydir 'gcmfaces_path.m'],'wt');
fprintf(fid,['global mydir; mydir=''' mydir ''';\n']);
fprintf(fid,['addpath ' mydir ';\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_IO/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_convert/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_exch/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_maps/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_misc/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_calc/;\n']);
fprintf(fid,['addpath ' mydir 'gcmfaces_smooth/;\n']);
%fprintf(fid,['addpath ' mydir 'gcmfaces_specs/;\n']);
%fprintf(fid,['addpath ' mydir 'gcmfaces_legacy/;\n']);
%fprintf(fid,['addpath ' mydir 'gcmfaces_devel/;\n']);
fprintf(fid,['addpath ' mydir 'sample_analysis/;\n']);
fprintf(fid,['addpath ' mydir 'sample_processing/;\n']);
fclose(fid);

fprintf('\n\n\n***********message from gcmfaces_init.m************ \n');
fprintf(' gcmfaces_path.m was created that, when executed, \n');
fprintf(' adds the gcmfaces directories to your path  \n\n\n');
fprintf(' ultimately you may want to copy it in your startup.m \n');

gcmfaces_path;

test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;

fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
fprintf(' starting 1st example routine: plot_one_field ... \n');

plot_one_field;

fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
fprintf(' starting 2nd example routine: plot_std_field ... \n');

plot_std_field;

fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
fprintf(' >>> initialization of gcmfaces completed correctly \n');
fprintf(' >>> you are all set and may now use the gcmfaces package \n');
fprintf(' >>> eventually, to avoid running gcmfaces_init over again \n');
fprintf('  you may want to copy the gcmfaces_path.m code to your startup.m \n\n\n');


1
2	global gcmfaces_verbose; gcmfaces_verbose=1;
3
4	global mydir; mydir=[pwd '/'];
5
6	fid=fopen([mydir 'gcmfaces_path.m'],'wt');
7	fprintf(fid,['global mydir; mydir=''' mydir ''';\n']);
8	fprintf(fid,['addpath ' mydir ';\n']);
9	fprintf(fid,['addpath ' mydir 'gcmfaces_IO/;\n']);
10	fprintf(fid,['addpath ' mydir 'gcmfaces_convert/;\n']);
11	fprintf(fid,['addpath ' mydir 'gcmfaces_exch/;\n']);
12	fprintf(fid,['addpath ' mydir 'gcmfaces_maps/;\n']);
13	fprintf(fid,['addpath ' mydir 'gcmfaces_misc/;\n']);
14	fprintf(fid,['addpath ' mydir 'gcmfaces_calc/;\n']);
15	fprintf(fid,['addpath ' mydir 'gcmfaces_smooth/;\n']);
16	%fprintf(fid,['addpath ' mydir 'gcmfaces_specs/;\n']);
17	%fprintf(fid,['addpath ' mydir 'gcmfaces_legacy/;\n']);
18	%fprintf(fid,['addpath ' mydir 'gcmfaces_devel/;\n']);
19	fprintf(fid,['addpath ' mydir 'sample_analysis/;\n']);
20	fprintf(fid,['addpath ' mydir 'sample_processing/;\n']);
21	fclose(fid);
22
23	fprintf('\n\n\n*********message from gcmfaces_init.m********** \n');
24	fprintf(' gcmfaces_path.m was created that, when executed, \n');
25	fprintf(' adds the gcmfaces directories to your path \n\n\n');
26	fprintf(' ultimately you may want to copy it in your startup.m \n');
27
28	gcmfaces_path;
29
30	test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;
31
32	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
33	fprintf(' starting 1st example routine: plot_one_field ... \n');
34
35	plot_one_field;
36
37	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
38	fprintf(' starting 2nd example routine: plot_std_field ... \n');
39
40	plot_std_field;
41
42	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
43	fprintf(' >>> initialization of gcmfaces completed correctly \n');
44	fprintf(' >>> you are all set and may now use the gcmfaces package \n');
45	fprintf(' >>> eventually, to avoid running gcmfaces_init over again \n');
46	fprintf(' you may want to copy the gcmfaces_path.m code to your startup.m \n\n\n');
47
48