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');
  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');
end;

1	gforget	1.1
2	gforget	1.11	gcmfaces_global;
3	gforget	1.6
4	gforget	1.11	test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;
5	gforget	1.5
6	gforget	1.11	warning('off','MATLAB:HandleGraphics:noJVM');
7	gforget	1.1
8	gforget	1.11	if myenv.verbose;
9			fprintf('\n\n\n*********message from gcmfaces_init.m**********\n ');
10			fprintf(' starting basic test : plot_std_field ... \n');
11	gforget	1.6	end;
12	gforget	1.11	plot_std_field('v4');
13	gforget	1.1
14	gforget	1.11	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	gforget	1.6	end;
21	gforget	1.1
22	gforget	1.11	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	gforget	1.6	end;
30
31	gforget	1.11	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');
35			fprintf(' --- eventually, to avoid running gcmfaces_init over again \n');
36			fprintf(' --- you may want to copy the gcmfaces_path.m code to your startup.m \n\n\n');
37	gforget	1.6	end;
38	gforget	1.1