/[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.12 by gforget, Wed Aug 24 21:58:39 2011 UTC revision 1.16 by gforget, Sun Jan 24 13:28:52 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 : example_IO ... \n');
   end;  
   plot_one_field('v4',0);  
9  end;  end;
10    example_IO;
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: example_display ... \n');
16    end;      end;
17    basic_diags_compute_v3_or_v4('v4');      example_display;
   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\n\n');      fprintf(' --- you are all set and may now use the gcmfaces package. \n\n\n');
24  end;  end;
25    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22