アッセリンの時間フィルタ. leap-frog の後に適用.
use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax use arareprm, only: tfil
real(8), intent(in) :: var_a(DimXMin:DimXMax, DimZMin:DimZMax) real(8), intent(in) :: var_b(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(inout) :: var_n(DimXMin:DimXMax, DimZMin:DimZMax)