/[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.15 by gforget, Mon Jan 11 17:28:10 2016 UTC
# Line 1  Line 1 
1    
2  gcmfaces_global;  gcmfaces_global;
3    
 test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;  
   
4  warning('off','MATLAB:HandleGraphics:noJVM');  warning('off','MATLAB:HandleGraphics:noJVM');
5    
6  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;  
7      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
8      fprintf(' starting plot test: plot_one_field ... \n');      fprintf(' starting basic test : plot_std_field ... \n');
   end;  
   plot_one_field('v4',0);  
9  end;  end;
10    plot_std_field;
11    
12  if ~myenv.lesstest;  if ~myenv.lessplot;
13    if myenv.verbose;      if myenv.verbose;
14      fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');          fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
15      fprintf(' starting computations test: basic_diags_compute_v3_or_v4 ... \n');          fprintf(' starting plot test: plot_one_field ... \n');
16    end;      end;
17    basic_diags_compute_v3_or_v4('v4');      plot_one_field;
   if ~myenv.lessplot; basic_diags_display_v3_or_v4('v4'); end;  
18  end;  end;
19    
20  if myenv.verbose;  if myenv.verbose;
21    fprintf('\n\n\n***********message from gcmfaces_init.m************\n');      fprintf('\n\n\n***********message from gcmfaces_init.m************\n');
22    fprintf(' --- initialization of gcmfaces completed correctly \n');      fprintf(' --- initialization of gcmfaces completed correctly \n');
23    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');  
24  end;  end;
25    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22