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

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

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

revision 1.5 by gforget, Wed Dec 3 14:21:55 2014 UTC revision 1.8 by gforget, Fri Mar 20 14:32:54 2015 UTC
# Line 1  Line 1 
1    
2  choiceGrid='v4';  choiceGrid='v4';
3    
4  %need to replace the missing v3 files...  %old option that eventually should be re-activated:
 %  
 %choose grid for test  
5  % fprintf('\n Please set the demo grid : \n');  % fprintf('\n Please set the demo grid : \n');
6  % fprintf('    ''llc'': lat-lon-cap grid (5 faces). \n');  % fprintf('    ''llc'': lat-lon-cap grid (5 faces). \n');
7  % fprintf('    ''ll'' : simple lat-lon grid (1 face). \n');  % fprintf('    ''ll'' : simple lat-lon grid (1 face). \n');
# Line 24  verbose=input(' and/or type return. 0 is Line 22  verbose=input(' and/or type return. 0 is
22  if isempty(verbose); verbose=0; end;  if isempty(verbose); verbose=0; end;
23    
24  %initialize environment variables and mygrid  %initialize environment variables and mygrid
25  gcmfaces_global;  addpath gcmfaces;
26    gcmfaces_global;
27    myenv.issueWarnings=0;
28  myenv.verbose=verbose;  myenv.verbose=verbose;
29  if myenv.verbose>0;  if myenv.verbose>0;
30      gcmfaces_msg('* set path and environment variables (myenv) by calling gcmfaces_global');      gcmfaces_msg('* set path and environment variables (myenv) by calling gcmfaces_global');
31  end;  end;
32    
33  fprintf('\n\n');  addpath MITprof;
34  gcmfaces_msg('/////////////////////////////////////////');  if ~isempty(which('MITprof_global'));
35  gcmfaces_msg('demo of transport computations','// PART 1 :');  MITprof_global;
36  gcmfaces_msg('please hit return','// >> ');  if myenv.verbose>0;
37  gcmfaces_msg('/////////////////////////////////////////');      gcmfaces_msg('* set MITprof path by calling MITprof_global');
38  fprintf('\n\n');  end;
 pause;  
 diags=example_transports(choiceGrid);  
 if ~isempty(diags);  
     example_transports_disp(diags);  
39  end;  end;
40    
41  fprintf('\n\n');  fprintf('\n\n');
42  gcmfaces_msg('/////////////////////////////////////');  gcmfaces_msg('/////////////////////////////////////');
43  gcmfaces_msg('demo of plotting routines','// PART 2 :');  gcmfaces_msg('demo of plotting routines','// PART 1 :');
44  gcmfaces_msg('please hit return','// >> ');  gcmfaces_msg('please hit return','// >> ');
45  gcmfaces_msg('/////////////////////////////////////');  gcmfaces_msg('/////////////////////////////////////');
46  fprintf('\n\n');  fprintf('\n\n');
# Line 53  plot_one_field(choiceGrid,0);%%incl. cal Line 49  plot_one_field(choiceGrid,0);%%incl. cal
49    
50  fprintf('\n\n');  fprintf('\n\n');
51  gcmfaces_msg('///////////////////////////////////////////');  gcmfaces_msg('///////////////////////////////////////////');
52  gcmfaces_msg('demo of gridding v interpolating','// PART 3 :');  gcmfaces_msg('demo of gridding v interpolating','// PART 2 :');
53  gcmfaces_msg('please hit return','// >> ');  gcmfaces_msg('please hit return','// >> ');
54  gcmfaces_msg('///////////////////////////////////////////');  gcmfaces_msg('///////////////////////////////////////////');
55  fprintf('\n\n');  fprintf('\n\n');
# Line 63  example_griddata(choiceGrid); Line 59  example_griddata(choiceGrid);
59  example_interp(choiceGrid);  example_interp(choiceGrid);
60  example_faces2latlon2faces(choiceGrid);  example_faces2latlon2faces(choiceGrid);
61    
62    fprintf('\n\n');
63    gcmfaces_msg('/////////////////////////////////////////');
64    gcmfaces_msg('demo of transport computations','// PART 3 :');
65    gcmfaces_msg('please hit return','// >> ');
66    gcmfaces_msg('/////////////////////////////////////////');
67    fprintf('\n\n');
68    pause;
69    diags=example_transports(choiceGrid);
70    if ~isempty(diags);
71        example_transports_disp(diags);
72    end;
73    
74    fprintf('\n\n');
75    gcmfaces_msg('/////////////////////////////////////////');
76    gcmfaces_msg('demo of budget computations','// PART 4 :');
77    gcmfaces_msg('please hit return','// >> ');
78    gcmfaces_msg('/////////////////////////////////////////');
79    fprintf('\n\n');
80    pause;
81    example_budget(choiceGrid);
82    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22