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