| Class | StoreMom |
| In: |
setup/storemom.f90
|
運動量に関する積算値を保管するための変数型モジュール.
| Subroutine : | |
| Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
移流項の保管
subroutine StoreMomAdv( Work )
!移流項の保管
implicit none
real(8), intent(in) :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)
Work2 = pz_MomAdv + Work
pz_MomAdv = Work2
end subroutine StoreMomAdv
| Subroutine : |
保管した値のクリアー
subroutine StoreMomClean( )
!保管した値のクリアー
z_MomAdv = 0.0d0
z_MomTurb = 0.0d0
z_MomDiff = 0.0d0
z_MomFlux = 0.0d0
pz_MomAdv = 0.0d0
pz_MomTurb = 0.0d0
pz_MomDiff = 0.0d0
pz_MomFlux = 0.0d0
! CalNum = 1.0d-40 !ゼロ割を禁止.
end subroutine StoreMomClean
| Subroutine : | |
| Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
数値拡散項の保管
subroutine StoreMomDiff( Work )
!数値拡散項の保管
implicit none
real(8), intent(in) :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)
Work2 = pz_MomDiff + Work
pz_MomDiff = Work2
end subroutine StoreMomDiff
| Subroutine : | |
| Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
運動量フラックスの保管
subroutine StoreMomFlux( Work )
!運動量フラックスの保管
implicit none
real(8), intent(in) :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)
Work2 = pz_MomFlux + Work
pz_MomFlux = Work2
end subroutine StoreMomFlux
| Subroutine : |
保管した値の水平平均値 [kg.m/s^2]
subroutine StoreMomMeanX( )
!保管した値の水平平均値 [kg.m/s^2]
real(8) :: CalNum
CalNum = TimeDisp / DelTimeLong
z_MomAdv = a_MeanX_aa( pz_MomAdv ) / CalNum
z_MomTurb = a_MeanX_aa( pz_MomTurb ) / CalNum
z_MomDiff = a_MeanX_aa( pz_MomDiff ) / CalNum
z_MomFlux = a_MeanX_aa( pz_MomFlux ) / CalNum
end subroutine StoreMomMeanX
| Subroutine : | |
| Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
乱流項の保管
subroutine StoreMomTurb( Work )
!乱流項の保管
implicit none
real(8), intent(in) :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)
Work2 = pz_MomTurb + Work
pz_MomTurb = Work2
end subroutine StoreMomTurb
| Subroutine : |
初期化ルーチン
subroutine StoreMom_Init( )
!初期化ルーチン
allocate( z_MomAdv(DimZMin:DimZMax), z_MomTurb(DimZMin:DimZMax), z_MomDiff(DimZMin:DimZMax), z_MomFlux(DimZMin:DimZMax), pz_MomAdv(DimXMin:DimXMax, DimZMin:DimZMax), pz_MomTurb(DimXMin:DimXMax, DimZMin:DimZMax), pz_MomDiff(DimXMin:DimXMax, DimZMin:DimZMax), pz_MomFlux(DimXMin:DimXMax, DimZMin:DimZMax) )
call StoreMomClean
end subroutine StoreMom_Init