/[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.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\n\n');      fprintf(' --- you are all set and may now use the gcmfaces package. \n\n\n');
30  end;  end;
31    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22