/[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.10 by gforget, Tue Jun 21 21:33:40 2011 UTC revision 1.13 by gforget, Wed Dec 3 00:16:10 2014 UTC
# Line 1  Line 1 
1    
2  global gcmfaces_skipplottest; %externally set key that will bypass the interactive plotting test  gcmfaces_global;
 if isempty(gcmfaces_skipplottest); gcmfaces_skipplottest=0; end;  
3    
4  global gcmfaces_verbose; %to print notes to screen  test0=dir('gcmfaces/sample_input');
5  if isempty(gcmfaces_verbose); gcmfaces_verbose=1; end;  if isempty(test0);
6        fprintf('no sample input data found\n');
7        return;
 global gcmfaces_dir; gcmfaces_dir=[pwd '/'];  
   
 fid=fopen([gcmfaces_dir 'gcmfaces_path.m'],'wt');  
 fprintf(fid,['global gcmfaces_dir; gcmfaces_dir=''' gcmfaces_dir ''';\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir ';\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_IO/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_convert/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_exch/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_maps/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_misc/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_calc/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_smooth/;\n']);  
 %fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_specs/;\n']);  
 %fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_legacy/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'gcmfaces_devel/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'sample_analysis/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'sample_processing/;\n']);  
 fprintf(fid,['addpath ' gcmfaces_dir 'ecco_v4/;\n']);  
 fclose(fid);  
   
 if gcmfaces_verbose;  
 fprintf('\n\n\n***********message from gcmfaces_init.m************ \n');  
 fprintf(' gcmfaces_path.m was created that, when executed, \n');  
 fprintf(' adds the gcmfaces directories to your path  \n\n\n');  
 fprintf(' ultimately you may want to copy it in your startup.m \n');  
 end;  
   
 gcmfaces_path;  
   
 test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end;  
   
 fprintf('\n\n basic gcmfaces test: started... \n');  
   gcmfaces_path;  
   global mygrid; mygrid=[]; grid_load([gcmfaces_dir '/sample_input/GRIDv4/'],5,'compact');  
   nameFld='DDetan'; tt=[53:78]*336; cc=[0 0.10];  
   fld=rdmds2gcmfaces([gcmfaces_dir '/sample_input/SAMPLEv4/' nameFld],tt);  
   fld=std(fld,[],3); msk=mygrid.hFacC(:,:,1); fld(find(msk==0))=NaN;  
 fprintf(' basic gcmfaces test: completed. \n\n');  
   
 if ~gcmfaces_skipplottest;  
   
 if gcmfaces_verbose;  
 fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');  
 fprintf(' starting 1st example routine: plot_one_field ... \n');  
8  end;  end;
9    
10  plot_one_field('v4',0);  warning('off','MATLAB:HandleGraphics:noJVM');
11    
12  if gcmfaces_verbose;  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 2nd example routine: plot_std_field ... \n');      fprintf(' starting basic test : plot_std_field ... \n');
15  end;  end;
   
16  plot_std_field('v4');  plot_std_field('v4');
17    
18    if ~myenv.lessplot;
19        if myenv.verbose;
20            fprintf('\n\n\n***********message from gcmfaces_init.m************\n ');
21            fprintf(' starting plot test: plot_one_field ... \n');
22        end;
23        plot_one_field('v4',0);
24  end;  end;
25    
26  if gcmfaces_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.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22