Class TimeFilter
In: util/timefilter.f90

Methods

AsselinFilter_pz   AsselinFilter_xr   AsselinFilter_xz   AsselinFilter_xza  

Included Modules

GridSet

Public Instance methods

AsselinFilter_pz( aa_VarA, aa_VarN, aa_VarB )
Subroutine :
aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)
aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(inout)
aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

時間フィルター; Asselin のタイムフィルターを利用

[Source]

  subroutine AsselinFilter_aa(aa_VarA, aa_VarN, aa_VarB)
    !
    ! 時間フィルター; Asselin のタイムフィルターを利用
    !

    !暗黙の型宣言禁止
    implicit none
    
    !変数定義
    real(8), intent(in)     :: aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(inout)  :: aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(in)     :: aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax)  
    real(8)                 :: aa_Var(DimXMin:DimXMax, DimZMin:DimZMax)

    !時間フィルタ
    aa_Var  = aa_VarN + tfil * ( aa_VarB  - 2.0d0 * aa_VarN + aa_VarA ) 
    aa_VarN = aa_Var
    
  end subroutine AsselinFilter_aa
AsselinFilter_xr( aa_VarA, aa_VarN, aa_VarB )
Subroutine :
aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)
aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(inout)
aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

時間フィルター; Asselin のタイムフィルターを利用

[Source]

  subroutine AsselinFilter_aa(aa_VarA, aa_VarN, aa_VarB)
    !
    ! 時間フィルター; Asselin のタイムフィルターを利用
    !

    !暗黙の型宣言禁止
    implicit none
    
    !変数定義
    real(8), intent(in)     :: aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(inout)  :: aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(in)     :: aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax)  
    real(8)                 :: aa_Var(DimXMin:DimXMax, DimZMin:DimZMax)

    !時間フィルタ
    aa_Var  = aa_VarN + tfil * ( aa_VarB  - 2.0d0 * aa_VarN + aa_VarA ) 
    aa_VarN = aa_Var
    
  end subroutine AsselinFilter_aa
AsselinFilter_xz( aa_VarA, aa_VarN, aa_VarB )
Subroutine :
aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)
aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(inout)
aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

時間フィルター; Asselin のタイムフィルターを利用

[Source]

  subroutine AsselinFilter_aa(aa_VarA, aa_VarN, aa_VarB)
    !
    ! 時間フィルター; Asselin のタイムフィルターを利用
    !

    !暗黙の型宣言禁止
    implicit none
    
    !変数定義
    real(8), intent(in)     :: aa_VarA(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(inout)  :: aa_VarN(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8), intent(in)     :: aa_VarB(DimXMin:DimXMax, DimZMin:DimZMax)  
    real(8)                 :: aa_Var(DimXMin:DimXMax, DimZMin:DimZMax)

    !時間フィルタ
    aa_Var  = aa_VarN + tfil * ( aa_VarB  - 2.0d0 * aa_VarN + aa_VarA ) 
    aa_VarN = aa_Var
    
  end subroutine AsselinFilter_aa
AsselinFilter_xza( aaa_VarA, aaa_VarN, aaa_VarB )
Subroutine :
aaa_VarA(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum) :real(8), intent(in)
aaa_VarN(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum) :real(8), intent(inout)
aaa_VarB(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum) :real(8), intent(in)

時間フィルター; Asselin のタイムフィルターを利用

[Source]

  subroutine AsselinFilter_aaa( aaa_VarA, aaa_VarN, aaa_VarB )
    !
    ! 時間フィルター; Asselin のタイムフィルターを利用
    !

    !暗黙の型宣言禁止
    implicit none
    
    !変数定義
    real(8), intent(in)     :: aaa_VarA(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum)
    real(8), intent(inout)  :: aaa_VarN(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum)
    real(8), intent(in)     :: aaa_VarB(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum)
    real(8)                 :: aaa_Var(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum)

    !時間フィルタ
    aaa_Var  = aaa_VarN + tfil * ( aaa_VarB  - 2.0d0 * aaa_VarN + aaa_VarA ) 
    aaa_VarN = aaa_Var
    
  end subroutine AsselinFilter_aaa