/[MITgcm]/MITgcm_contrib/enderton/Diagnostics/DiagSliceGradsData.m
ViewVC logotype

Diff of /MITgcm_contrib/enderton/Diagnostics/DiagSliceGradsData.m

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

revision 1.1 by enderton, Mon Jan 31 15:43:27 2005 UTC revision 1.3 by enderton, Mon Sep 5 18:48:27 2005 UTC
# Line 1  Line 1 
1  function [data,xax,yax,pltslc] = ...  function [data,xax,yax,pltslc] = ...
2      DiagSliceGradsData(fln,flu,slc,data,xaxin,yaxin,zaxin,time);      DiagSliceGradsData(fln,flu,slc,data,xaxin,yaxin,zaxin);
3    
4  % Function: DiagSliceGradsData  % Function: DiagSliceGradsData
5  % Author:   Daniel Enderton  % Author:   Daniel Enderton
# Line 22  DiagFieldParamC; Line 22  DiagFieldParamC;
22  DiagFieldParamI;  DiagFieldParamI;
23    
24  if isequal(slc,'Sur')  if isequal(slc,'Sur')
25      data = squeeze(data(:,:,1,:));      data = data';
26      xax = xaxin;      xax = xaxin;
27      yax = yaxin;      yax = yaxin;
28      pltslc='lonlat';      pltslc='lonlat';
# Line 34  elseif isequal(slc,'Zon') Line 34  elseif isequal(slc,'Zon')
34          yax=NaN;          yax=NaN;
35          pltslc='latfld';          pltslc='latfld';
36      else      else
37          yax=ZC;          yax=zaxin;
38          pltslc='lathgt';          pltslc='lathgt';
39      end      end
40    
# Line 63  elseif isequal(slc(1:2),'j=') Line 63  elseif isequal(slc(1:2),'j=')
63            
64  elseif isequal(slc(1:2),'k=')  elseif isequal(slc(1:2),'k=')
65      kk = str2num(slc(3:end));      kk = str2num(slc(3:end));
66      data = squeeze(data(:,:,kk,:));      data = squeeze(data(:,:,kk,:))';
67      xax = xaxin;      xax = xaxin;
68      yax = yaxin;      yax = yaxin;
69      pltslc='lonlat';      pltslc='lonlat';
# Line 90  try Line 90  try
90  catch  catch
91      disp(['***Warning***  No range information found for ',fln]);      disp(['***Warning***  No range information found for ',fln]);
92      disp(['               Data range:  ',mat2str(datarange)]);      disp(['               Data range:  ',mat2str(datarange)]);
 end  
93    end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22