use dc_trace, only: BeginSub, EndSub use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax, & & RegXMax, RegXMin, RegZMin, RegZMax, DelZ use timeset, only: DelTimeShort use basicset, only: ss_VelSoundBasicZ, ss_CpBasicZ, & & ss_DensBasicZ, ss_PotTempBasicZ use bcset, only: ss_BC use arareset, only: alpha, beta use linlib, only: LinSolv use average, only: sf_avr_ss use differentiate_center2, only: sf_dz_ss, ss_dz_sf, ss_dx_fs
real(8), intent(in) :: fs_VelX_ns(DimXMin:DimXMax, DimZMin:DimZMax) !速度 u real(8), intent(in) :: fs_VelX_as(DimXMin:DimXMax, DimZMin:DimZMax) !速度 u real(8), intent(in) :: sf_VelZ_ns(DimXMin:DimXMax, DimZMin:DimZMax) !速度 w real(8), intent(in) :: sf_Fz_nl(DimXMin:DimXMax, DimZMin:DimZMax) !Z 方向の外力項 real(8), intent(in) :: ss_Exner_ns(DimXMin:DimXMax, DimZMin:DimZMax) !無次元圧力
real(8), intent(out) :: ss_Exner_as(DimXMin:DimXMax, DimZMin:DimZMax) !無次元圧力 (1 ステップ後)