/[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.10 by gforget, Tue Sep 11 15:15:19 2012 UTC revision 1.11 by gforget, Sun Jan 10 17:05:58 2016 UTC
# Line 42  elseif doGcm2Faces; Line 42  elseif doGcm2Faces;
42          v1={v0};          v1={v0};
43      elseif strcmp(mygrid.fileFormat,'cube');      elseif strcmp(mygrid.fileFormat,'cube');
44          for ii=1:6; v1{ii}=v0(n2*(ii-1)+[1:n2],:,:,:,:); end;          for ii=1:6; v1{ii}=v0(n2*(ii-1)+[1:n2],:,:,:,:); end;
45      elseif strcmp(mygrid.fileFormat,'compact');      elseif strcmp(mygrid.fileFormat,'compact')|strcmp(mygrid.fileFormat,'nctiles');
46          v00=reshape(v0,[n1*n2 n3*n4*n5]);          v00=reshape(v0,[n1*n2 n3*n4*n5]);
47          i0=0; i1=0;          i0=0; i1=0;
48          for iFace=1:mygrid.nFaces;          for iFace=1:mygrid.nFaces;
# Line 66  else; Line 66  else;
66      elseif strcmp(mygrid.fileFormat,'cube');      elseif strcmp(mygrid.fileFormat,'cube');
67          v1=zeros(n2*6,n2,n3,n4,n5);          v1=zeros(n2*6,n2,n3,n4,n5);
68          for ii=1:6; v1([1:n2]+(ii-1)*n2,:,:,:,:)=v0{ii}; end;          for ii=1:6; v1([1:n2]+(ii-1)*n2,:,:,:,:)=v0{ii}; end;
69      elseif strcmp(mygrid.fileFormat,'compact');      elseif strcmp(mygrid.fileFormat,'compact')|strcmp(mygrid.fileFormat,'nctiles');
70                    
71          %   is there a reason for this?          %   is there a reason for this?
72          %         v0_faces=v0; clear v0;          %         v0_faces=v0; clear v0;
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22