| Class | StoreBuoy |
| In: |
setup/storebuoy.f90
|
浮力の積算値を保管するための変数型モジュール.
| Subroutine : |
保管した値のクリアー
subroutine StoreBuoyClean( )
!保管した値のクリアー
z_BuoyTemp = 0.0d0
z_BuoyMolWt = 0.0d0
z_BuoyDrag = 0.0d0
xz_BuoyTemp = 0.0d0
xz_BuoyMolWt = 0.0d0
xz_BuoyDrag = 0.0d0
end subroutine StoreBuoyClean
| Subroutine : | |
| xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
数値拡散項の保管
subroutine StoreBuoyDrag( 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_BuoyDrag + xz_Work
xz_BuoyDrag = xz_Work2
end subroutine StoreBuoyDrag
| Subroutine : |
保管した値の水平平均値
subroutine StoreBuoyMeanX( )
!保管した値の水平平均値
real(8) :: CalNum
CalNum = TimeDisp / DelTimeLong
z_BuoyTemp = a_MeanX_aa( xz_BuoyTemp ) / CalNum
z_BuoyMolWt = a_MeanX_aa( xz_BuoyMolWt ) / CalNum
z_BuoyDrag = a_MeanX_aa( xz_BuoyDrag ) / CalNum
end subroutine StoreBuoyMeanX
| Subroutine : | |
| xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
分子量の寄与を保管
subroutine StoreBuoyMolWt( 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_BuoyMolWt + xz_Work
xz_BuoyMolWt = xz_Work2
end subroutine StoreBuoyMolWt
| Subroutine : | |
| xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) : | real(8), intent(in) |
温度の寄与を保管
subroutine StoreBuoyTemp( 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_BuoyTemp + xz_Work
xz_BuoyTemp = xz_Work2
end subroutine StoreBuoyTemp
| Subroutine : |
初期化ルーチン
subroutine StoreBuoy_Init( )
!初期化ルーチン
allocate( z_BuoyTemp(DimZMin:DimZMax), z_BuoyMolWt(DimZMin:DimZMax), z_BuoyDrag(DimZMin:DimZMax), xz_BuoyTemp(DimXMin:DimXMax, DimZMin:DimZMax), xz_BuoyMolWt(DimXMin:DimXMax, DimZMin:DimZMax), xz_BuoyDrag(DimXMin:DimXMax, DimZMin:DimZMax) )
call StoreBuoyClean()
end subroutine StoreBuoy_Init