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

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/enderton/Diagnostics/DiagSlice.m	2005/06/28 21:33:52	1.4
+++ MITgcm_contrib/enderton/Diagnostics/DiagSlice.m	2005/07/05 18:57:48	1.5
@@ -1,6 +1,6 @@
 function [data,xax,yax,pltslc] = ...
     DiagSlice(data,fln,trl,dat,dad,grd,itr,tst,flu,ddf,gdf,...
-              avg,slc,pst,LoadGridData,GridSuffix,ZcordFile);
+              avg,slc,pst,LoadGridData,GridSuffix,ZcordFile,Vector,FieldName);
 
 % Function: DiagSlice
 % Author:   Daniel Enderton
@@ -53,7 +53,7 @@
 % since those handle the cubed sphere data.  If the 'pst' is 'Con' or 'Cnf',
 % convert data to a lat-lon grid so that it can easily be contours.
 if isequal(slc,'Sur')
-    if ismember(fln,{'TX','TY','USTR','VSTR'})
+    if ismember(fln,{'TX','TY','USTR','VSTR'}) | ~isequal(Vector,0)
         data = data'; xax = XL; yax = YL;
     elseif ~isequal(datasize,[faces*hres,hres]) 
         error('Incorrect dimensions for slc:  ',slc);
@@ -90,6 +90,7 @@
 elseif isequal(slc,'Zon')
     if isequal(datasize(1:2),[faces*hres,hres])
         if isequal(flu,'O'), nBas = 0; end
+        if isequal(flu,'A'), nBas = 0; end
 	    [data,dump1,dump2] = ...
 	        calc_ZonAv_CS(data,kpr,kwr,nBas,XC,YC,XG,YG,RAC,dad,HFacC);
         if isequal(avg,'Tse')