Class: TimeFilter

Methods

Included Modules

dc_types gridset

Public Instance methods

*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 のタイムフィルターを利用

[Source]

  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