| Class | TimeFilter |
| In: |
util/timefilter.f90
|
| 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 のタイムフィルターを利用
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
| 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 のタイムフィルターを利用
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
| 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 のタイムフィルターを利用
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
| 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 のタイムフィルターを利用
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