VMT_CompMeanXS_UVW
PURPOSE 
Computes the mean cross section velocity components (U,V,W)
SYNOPSIS 
function [A,V] = VMT_CompMeanXS_UVW(z,A,V)
DESCRIPTION 
CROSS-REFERENCE INFORMATION 
This function calls:
This function is called by:
SOURCE CODE 
0001 function [A,V] = VMT_CompMeanXS_UVW(z,A,V)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016 V.psi = (V.phi-V.mcsDir);
0017
0018
0019 V.u = cosd(V.psi).*V.mcsMag;
0020 V.v = sind(V.psi).*V.mcsMag;
0021 V.w = V.mcsVert;
0022
0023 for zi = 1 : z
0024
0025 A(zi).Comp.u = cosd(V.psi).*A(zi).Comp.mcsMag;
0026 A(zi).Comp.v = sind(V.psi).*A(zi).Comp.mcsMag;
0027 A(zi).Comp.w = A(zi).Comp.mcsVert;
0028
0029 A(zi).Comp.psi = V.phi-A(zi).Wat.vDir;
0030 A(zi).Comp.u1 = cosd(A(zi).Comp.psi).*A(zi).Wat.vMag;
0031 A(zi).Comp.v1 = sind(A(zi).Comp.psi).*A(zi).Wat.vMag;
0032 A(zi).Comp.w1 = A(zi).Wat.vVert;
0033
0034 end
0035
Generated on Thu 21-Aug-2014 10:40:31 by m2html © 2005