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