Class StoreStab_3d
In: setup/storestab_3d.f90

浮力の積算値を保管するための変数型モジュール.

Methods

Included Modules

dc_types dc_message gridset_3d TimeSet

Public Instance methods

Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreStabClean( )
    !保管した値のクリアー
    
    z_StabTemp   = 0.0d0
    z_StabMolWt  = 0.0d0
    xyz_StabTemp  = 0.0d0
    xyz_StabMolWt = 0.0d0
    
  end subroutine StoreStabClean
Subroutine :

保管した値の水平平均値

[Source]

  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)

分子量の寄与を保管

[Source]

  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)

温度の寄与を保管

[Source]

  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 :

初期化ルーチン

[Source]

  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
z_StabMolWt
Variable :
z_StabMolWt(:) :real(DP), allocatable
z_StabTemp
Variable :
z_StabTemp(:) :real(DP), allocatable