| Class | StoreStab_3d |
| In: |
setup/storestab_3d.f90
|
浮力の積算値を保管するための変数型モジュール.
| Subroutine : |
保管した値のクリアー
subroutine StoreStabClean( )
!保管した値のクリアー
z_StabTemp = 0.0d0
z_StabMolWt = 0.0d0
xyz_StabTemp = 0.0d0
xyz_StabMolWt = 0.0d0
end subroutine StoreStabClean
| Subroutine : |
保管した値の水平平均値
subroutine StoreStabMeanXY( )
!保管した値の水平平均値
real(DP) :: CalNum
CalNum = TimeDisp / DelTimeLong
z_StabTemp = a_MeanXY_aaa( xyz_StabTemp ) / CalNum
z_StabMolWt = a_MeanXY_aaa( xyz_StabMolWt ) / CalNum
end subroutine StoreStabMeanXY
| Subroutine : | |
| xyz_Work(DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax) : | real(DP), intent(in) |
分子量の寄与を保管
subroutine StoreStabMolWt( xyz_Work )
!分子量の寄与を保管
implicit none
real(DP), intent(in) :: xyz_Work (DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax)
real(DP) :: xyz_Work2(DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax)
xyz_Work2 = xyz_StabMolWt + xyz_Work
xyz_StabMolWt = xyz_Work2
end subroutine StoreStabMolWt
| Subroutine : | |
| xyz_Work(DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax) : | real(DP), intent(in) |
温度の寄与を保管
subroutine StoreStabTemp( xyz_Work )
!温度の寄与を保管
implicit none
real(DP), intent(in) :: xyz_Work (DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax)
real(DP) :: xyz_Work2(DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax)
xyz_Work2 = xyz_StabTemp + xyz_Work
xyz_StabTemp = xyz_Work2
end subroutine StoreStabTemp
| Subroutine : |
初期化ルーチン
subroutine StoreStab_Init( )
!初期化ルーチン
call MessageNotify( "M", "StoreStab_Init", "Initialize" )
allocate( z_StabTemp (DimZMin:DimZMax), z_StabMolWt(DimZMin:DimZMax), xyz_StabTemp (DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax), xyz_StabMolWt(DimXMin:DimXMax,DimYMin:DimYMax,DimZMin:DimZMax) )
call StoreStabClean()
end subroutine StoreStab_Init