/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_IO/convert2gcmfaces.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_IO/convert2gcmfaces.m

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

revision 1.3 by gforget, Sun May 2 20:38:03 2010 UTC revision 1.4 by gforget, Wed Nov 3 19:53:13 2010 UTC
# Line 2  function [v1]=convert2gcmfaces(v0,vararg Line 2  function [v1]=convert2gcmfaces(v0,vararg
2    
3  global fileFormat;  global fileFormat;
4  if isempty(fileFormat);  if isempty(fileFormat);
5   fprintf('\nconvert2gcmfaces.m init: there are several supported file conventions. \n');   global gcmfaces_verbose;
6   fprintf('  By default gcmfaces assumes MITgcm type binary formats as follows: \n')   if gcmfaces_verbose;
7   fprintf('  (1 face) straight global format; (4 or 5 faces) compact global format\n');     fprintf('\nconvert2gcmfaces.m init: there are several supported file conventions. \n');
8   fprintf('  (6 faces) cube format with one face after the other. \n');     fprintf('  By default gcmfaces assumes MITgcm type binary formats as follows: \n')
9   fprintf('  If this is inadequate, you can change the format below.\n\n');     fprintf('  (1 face) straight global format; (4 or 5 faces) compact global format\n');
10       fprintf('  (6 faces) cube format with one face after the other. \n');
11       fprintf('  If this is inadequate, you can change the format below.\n\n');
12     end;
13   if nargin==1; nFaces=5; else; nFaces=varargin{1}; end;   if nargin==1; nFaces=5; else; nFaces=varargin{1}; end;
14   if nFaces==1;          fileFormat='straight';   if nFaces==1;          fileFormat='straight';
15   elseif nFaces==6;      fileFormat='cube';   elseif nFaces==6;      fileFormat='cube';
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22