Z 方向の運動方程式中に現れる以下の項を 長い時間ステップ DelTimeLong において評価する.
use dc_trace, only: BeginSub, EndSub use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax, DelXZ use bcset, only: ss_BC use physset, only: Grav use basicset, only: ss_PotTempBasicZ use arareset, only: Cm, NuH, NuV use average, only: sf_avr_ff, sf_avr_ss, ss_avr_sf, ff_avr_fs, ff_avr_ss use differentiate_center4, only: ff_dx_sf, sf_dx_ff, & & ss_dz_sf, ff_dz_fs, sf_dz_ss
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) real(8), intent(in) :: ss_PotTemp_adv(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(out) :: sf_AdvDiffZ(DimXMin:DimXMax, DimZMin:DimZMax)