/[MITgcm]/MITgcm_contrib/gmaze_pv/compute_alpha.m
ViewVC logotype

Diff of /MITgcm_contrib/gmaze_pv/compute_alpha.m

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

revision 1.2 by gmaze, Tue Jan 30 22:10:10 2007 UTC revision 1.5 by gmaze, Wed Sep 19 15:37:38 2007 UTC
# Line 1  Line 1 
1  %  %
2  % [ALPHA,LON,LAT,DPT] = compute_alpha(SNAPSHOT)  % [ALPHA] = compute_alpha(SNAPSHOT)
3  %  %
4  % This function computes the thermal expansion coefficient from  % This function computes the thermal expansion coefficient from
5  % files of potential temperature THETA and salinity anomaly  % files of potential temperature THETA and salinity anomaly
# Line 132  nc{ncid}.uniquename    = ncchar(uniquena Line 132  nc{ncid}.uniquename    = ncchar(uniquena
132  nc{ncid}(:,:,:)        = ALPHA;  nc{ncid}(:,:,:)        = ALPHA;
133    
134  nc=close(nc);  nc=close(nc);
135    close(ncS);
136    close(ncT);
137    
138  % Output:  % Output:
139    output = struct('ALPHA',ALPHA,'dpt',Tdpt,'lat',Tlat,'lon',Tlon);
140  switch nargout  switch nargout
141   case 1   case 1
142    varargout(1) = ALPHA;    varargout(1) = {output};
  case 2  
   varargout(1) = ALPHA;  
   varargout(2) = Tlon;  
  case 3  
   varargout(1) = ALPHA;  
   varargout(2) = Tlon;  
   varargout(3) = Tlat;  
  case 4  
   varargout(1) = ALPHA;  
   varargout(2) = Tlon;  
   varargout(3) = Tlat;  
   varargout(4) = Tdpt;  
143  end  end
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22