gael/matlab_class/gcmfaces_init.m


gcmfaces_global;

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

warning('off','MATLAB:HandleGraphics:noJVM');

if myenv.verbose;
  fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
  fprintf(' starting basic test : plot_std_field ... \n');
end;
plot_std_field('v4');

if ~myenv.lessplot;
  if myenv.verbose;
    fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
    fprintf(' starting plot test: plot_one_field ... \n');
  end;
  plot_one_field('v4',0);
end;

if ~myenv.lesstest;
  if myenv.verbose;
    fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
    fprintf(' starting computations test: basic_diags_compute_v3_or_v4 ... \n');
  end;
  basic_diags_compute_v3_or_v4('v4');
  if ~myenv.lessplot; basic_diags_display_v3_or_v4('v4'); end;
end;

if myenv.verbose;
  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\n\n');
end;

1
2	gcmfaces_global;
3
4	test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;
5
6	warning('off','MATLAB:HandleGraphics:noJVM');
7
8	if myenv.verbose;
9	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
10	fprintf(' starting basic test : plot_std_field ... \n');
11	end;
12	plot_std_field('v4');
13
14	if ~myenv.lessplot;
15	if myenv.verbose;
16	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
17	fprintf(' starting plot test: plot_one_field ... \n');
18	end;
19	plot_one_field('v4',0);
20	end;
21
22	if ~myenv.lesstest;
23	if myenv.verbose;
24	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
25	fprintf(' starting computations test: basic_diags_compute_v3_or_v4 ... \n');
26	end;
27	basic_diags_compute_v3_or_v4('v4');
28	if ~myenv.lessplot; basic_diags_display_v3_or_v4('v4'); end;
29	end;
30
31	if myenv.verbose;
32	fprintf('\n\n\n*********message from gcmfaces_init.m**********\n');
33	fprintf(' --- initialization of gcmfaces completed correctly \n');
34	fprintf(' --- you are all set and may now use the gcmfaces package. \n\n\n');
35	end;
36