Class | TimeFilter |
In: |
../src/utils/timefilter.f90
|
Subroutine : | |
VarA(imin:imax,jmin:jmax,kmin:kmax) : | real(DP), intent(in) |
VarN(imin:imax,jmin:jmax,kmin:kmax) : | real(DP), intent(inout) |
VarB(imin:imax,jmin:jmax,kmin:kmax) : | real(DP), intent(in) |
時間フィルター; Asselin のタイムフィルターを利用
subroutine AsselinFilter(VarA, VarN, VarB) ! ! 時間フィルター; Asselin のタイムフィルターを利用 ! !暗黙の型宣言禁止 implicit none !変数定義 real(DP), intent(in) :: VarA(imin:imax,jmin:jmax,kmin:kmax) real(DP), intent(inout) :: VarN(imin:imax,jmin:jmax,kmin:kmax) real(DP), intent(in) :: VarB(imin:imax,jmin:jmax,kmin:kmax) real(DP) :: Var(imin:imax,jmin:jmax,kmin:kmax) !時間フィルタ Var = VarN + tfil * ( VarB - 2.0d0 * VarN + VarA ) VarN = Var end subroutine AsselinFilter