Dependency

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

Input

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)   !無次元圧力

Output

real(8), intent(out)     :: ss_Exner_as(DimXMin:DimXMax, DimZMin:DimZMax)   !無次元圧力 (1 ステップ後)