/[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.4 by gforget, Tue Jul 31 19:12:44 2012 UTC revision 1.6 by gforget, Thu Feb 12 21:29:30 2015 UTC
# Line 1  Line 1 
1    
2    choiceGrid='v4';
3    
4    %need to replace the missing v3 files...
5    %
6  %choose grid for test  %choose grid for test
7  fprintf('\n Please set the demo grid : \n');  % fprintf('\n Please set the demo grid : \n');
8  fprintf('    ''llc'': lat-lon-cap grid (5 faces). \n');  % fprintf('    ''llc'': lat-lon-cap grid (5 faces). \n');
9  fprintf('    ''ll'' : simple lat-lon grid (1 face). \n');  % fprintf('    ''ll'' : simple lat-lon grid (1 face). \n');
10  choiceGrid=input(' and type return. ''llc'' is the default.\n');  % choiceGrid=input(' and type return. ''llc'' is the default.\n');
11  if isempty(choiceGrid); choiceGrid='llc'; end;  % if isempty(choiceGrid); choiceGrid='llc'; end;
12  if strcmp(choiceGrid,'llc'); choiceGrid='v4';  % if strcmp(choiceGrid,'llc'); choiceGrid='v4';
13  elseif strcmp(choiceGrid,'ll'); choiceGrid='v3';  % elseif strcmp(choiceGrid,'ll'); choiceGrid='v3';
14  else; error('wrong grid choice');  % else; error('wrong grid choice');
15  end;  % end;
16    
17  %choose verbise level  %choose verbise level
18  fprintf('\n Please set the amount of explanatory text display :\n');  fprintf('\n Please set the amount of explanatory text display :\n');
# Line 20  verbose=input(' and/or type return. 0 is Line 24  verbose=input(' and/or type return. 0 is
24  if isempty(verbose); verbose=0; end;  if isempty(verbose); verbose=0; end;
25    
26  %initialize environment variables and mygrid  %initialize environment variables and mygrid
27  gcmfaces_global;  addpath gcmfaces;
28    gcmfaces_global;
29  myenv.verbose=verbose;  myenv.verbose=verbose;
30  if myenv.verbose>0;  if myenv.verbose>0;
31      gcmfaces_msg('* set path and environment variables (myenv) by calling gcmfaces_global');      gcmfaces_msg('* set path and environment variables (myenv) by calling gcmfaces_global');
32  end;  end;
33    
34  basic_diags_compute_v3_or_v4(choiceGrid);  if ~isempty(which('MITprof_global'));
35  basic_diags_display_v3_or_v4(choiceGrid);  MITprof_global;
36    if myenv.verbose>0;
37        gcmfaces_msg('* set MITprof path by calling MITprof_global');
38    end;
39    end;
40    
41    fprintf('\n\n');
42    gcmfaces_msg('/////////////////////////////////////////');
43    gcmfaces_msg('demo of transport computations','// PART 1 :');
44    gcmfaces_msg('please hit return','// >> ');
45    gcmfaces_msg('/////////////////////////////////////////');
46    fprintf('\n\n');
47    pause;
48    diags=example_transports(choiceGrid);
49    if ~isempty(diags);
50        example_transports_disp(diags);
51    end;
52    
53    fprintf('\n\n');
54    gcmfaces_msg('/////////////////////////////////////');
55    gcmfaces_msg('demo of plotting routines','// PART 2 :');
56    gcmfaces_msg('please hit return','// >> ');
57    gcmfaces_msg('/////////////////////////////////////');
58    fprintf('\n\n');
59    pause;
60    plot_one_field(choiceGrid,0);%%incl. call to m_map_gcmfaces;
61    
62    fprintf('\n\n');
63    gcmfaces_msg('///////////////////////////////////////////');
64    gcmfaces_msg('demo of gridding v interpolating','// PART 3 :');
65    gcmfaces_msg('please hit return','// >> ');
66    gcmfaces_msg('///////////////////////////////////////////');
67    fprintf('\n\n');
68    pause;
69  example_bin_average(choiceGrid,1);%incl. call to example_smooth.m;  example_bin_average(choiceGrid,1);%incl. call to example_smooth.m;
70  example_griddata(choiceGrid);  example_griddata(choiceGrid);
71  example_interp(choiceGrid);  example_interp(choiceGrid);
72  example_faces2latlon2faces(choiceGrid);  example_faces2latlon2faces(choiceGrid);
73    
74  plot_one_field(choiceGrid,0);%%incl. call to m_map_gcmfaces;  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.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22