| Class | StoreStab |
| In: |
setup/storestab.f90
|
浮力の積算値を保管するための変数型モジュール.
| Subroutine : |
保管した値のクリアー
subroutine StoreStabClean( )
!保管した値のクリアー
z_StabTemp = 0.0d0
z_StabMolWt = 0.0d0
xz_StabTemp = 0.0d0
xz_StabMolWt = 0.0d0
end subroutine StoreStabClean
| Subroutine : |
保管した値の水平平均値
subroutine StoreStabMeanX( )
!保管した値の水平平均値
real(8) :: CalNum
CalNum = TimeDisp / DelTimeLong
z_StabTemp = a_MeanX_aa( xz_StabTemp ) / CalNum
z_StabMolWt = a_MeanX_aa( xz_StabMolWt ) / CalNum
end subroutine StoreStabMeanX
| Subroutine : | |
| xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
分子量の寄与を保管
subroutine StoreStabMolWt( xz_Work )
!分子量の寄与を保管
implicit none
real(8), intent(in) :: xz_Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: xz_Work2(DimXMin:DimXMax, DimZMin:DimZMax)
xz_Work2 = xz_StabMolWt + xz_Work
xz_StabMolWt = xz_Work2
end subroutine StoreStabMolWt
| Subroutine : | |
| xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
温度の寄与を保管
subroutine StoreStabTemp( xz_Work )
!温度の寄与を保管
implicit none
real(8), intent(in) :: xz_Work(DimXMin:DimXMax, DimZMin:DimZMax)
real(8) :: xz_Work2(DimXMin:DimXMax, DimZMin:DimZMax)
xz_Work2 = xz_StabTemp + xz_Work
xz_StabTemp = xz_Work2
end subroutine StoreStabTemp