Subroutine AdvectDiffuseX

Overview

X 方向の運動方程式中に現れる以下の項を 長い時間ステップ DelTimeLong において評価する.

Error Handling

Known Bugs

Note

Future Plans

Dependency

use dc_trace, only: BeginSub, EndSub
use gridset,  only: DimXMin, DimXMax, DimZMin, DimZMax, DelXZ
use bcset,    only: ss_BC
use arareset, only: Cm, NuH, NuV
use average,  only: fs_avr_ss, ss_avr_fs, ff_avr_ss, fs_avr_ff, ff_avr_sf
use differentiate_center4, only: ss_dx_fs, fs_dx_ss, fs_dz_ff, ff_dx_sf, &
     &                   ff_dz_fs, fs_dz_ff, ff_dz_fs, fs_dz_ff

Input

real(8), intent(in)  :: fs_VelX_adv(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: sf_VelZ_adv(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: fs_VelX_dif(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: sf_VelZ_dif(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Km_dif(DimXMin:DimXMax, DimZMin:DimZMax)

Output

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