1 |
% |
% |
2 |
% [] = compute_QEk(SNAPSHOT) |
% [QEk] = compute_QEk(SNAPSHOT) |
3 |
% |
% |
4 |
% Here we compute the lateral heat flux induced by Ekman currents |
% Here we compute the lateral heat flux induced by Ekman currents |
5 |
% from JFz, the PV flux induced by frictional forces: |
% from JFz, the PV flux induced by frictional forces: |
29 |
% 06/27/06 |
% 06/27/06 |
30 |
% gmaze@mit.edu |
% gmaze@mit.edu |
31 |
|
|
32 |
function QEk = compute_QEk(snapshot) |
function varargout = compute_QEk(snapshot) |
33 |
|
|
34 |
global sla toshow |
global sla toshow |
35 |
global netcdf_suff netcdf_domain |
global netcdf_suff netcdf_domain |
151 |
nc=close(nc); |
nc=close(nc); |
152 |
|
|
153 |
|
|
154 |
|
|
155 |
|
% Output: |
156 |
|
output = struct('QEk',QEk,'lat',JFzlat,'lon',JFzlon); |
157 |
|
switch nargout |
158 |
|
case 1 |
159 |
|
varargout(1) = {output}; |
160 |
|
end |