/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_init.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_init.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by gforget, Fri Aug 5 22:00:03 2011 UTC revision 1.14 by gforget, Wed Apr 8 19:14:36 2015 UTC
# Line 1  Line 1 
1    
2  gcmfaces_global;  gcmfaces_global;
3    
4  test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;  test0=dir('gcmfaces/sample_input');
5    if isempty(test0);
6        fprintf('no sample input data found\n');
7        return;
8    end;
9    
10  warning('off','MATLAB:HandleGraphics:noJVM');  warning('off','MATLAB:HandleGraphics:noJVM');
11    
12  if myenv.verbose;  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;  
13      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
14      fprintf(' starting plot test: plot_one_field ... \n');      fprintf(' starting basic test : plot_std_field ... \n');
   end;  
   plot_one_field('v4',0);  
15  end;  end;
16    plot_std_field;
17    
18  if ~myenv.lesstest;  if ~myenv.lessplot;
19    if myenv.verbose;      if myenv.verbose;
20      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');          fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
21      fprintf(' starting computations test: basic_diags_compute_v3_or_v4 ... \n');          fprintf(' starting plot test: plot_one_field ... \n');
22    end;      end;
23    basic_diags_compute_v3_or_v4('v4');      plot_one_field;
   if ~myenv.lessplot; basic_diags_display_v3_or_v4('v4'); end;  
24  end;  end;
25    
26  if myenv.verbose;  if myenv.verbose;
27    fprintf('\n\n\n***********message from gcmfaces_init.m************\n');      fprintf('\n\n\n***********message from gcmfaces_init.m************\n');
28    fprintf(' --- initialization of gcmfaces completed correctly \n');      fprintf(' --- initialization of gcmfaces completed correctly \n');
29    fprintf(' --- you are all set and may now use the gcmfaces package \n');      fprintf(' --- you are all set and may now use the gcmfaces package. \n\n\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');  
30  end;  end;
31    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22