長い時間ステップ TimeLong による数値積分.
傾きは別途評価されている必要がある.
use dc_trace, only: BeginSub, EndSub use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax
real(8), intent(in) :: Tendency_n(DimXMin:DimXMax, DimZMin:DimZMax) real(8), intent(in) :: Var_n(DimXMin:DimXMax, DimZMin:DimZMax) real(8), intent(in) :: DelTime
real(8), intent(out) :: var_a(DimXMin:DimXMax, DimZMin:DimZMax)