Subroutine AdvectVelZ

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: advectvelz.f90,v 1.4 2005/02/02 10:07:26 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

Z 方向の運動方程式の移流項を計算する. ただし運動方程式は 2 次元とする. 
AdvZ = u \DP{u}{z} + w \DP{w}{z}

Error Handling

Bugs

Note

Future Plans

Dependency

use dc_trace,      only: BeginSub, EndSub 
use gridset,        only: DimXMin, DimXMax, DimZMin, DimZMax 
use average,       only: sf_avr_ff, ff_avr_fs, sf_avr_ss, ss_avr_sf
use differentiate, only: ff_dx_sf, ss_dz_sf

input

real(8), intent(in)     :: fs_VelX_B(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)     :: sf_VelZ_B(DimXMin:DimXMax, DimZMin:DimZMax)

output

real(8), intent(out)    :: sf_AdvZ_B(DimXMin:DimXMax, DimZMin:DimZMax)