Class StoreStab
In: setup/storestab.f90

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

Methods

Included Modules

gridset TimeSet

Public Instance methods

Subroutine :

保管した値のクリアー

[Source]

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

保管した値の水平平均値

[Source]

  subroutine StoreStabMeanX( )
    !保管した値の水平平均値
 
    real(8) :: CalNum

    CalNum = TimeDisp / DelTimeLong
   
    z_StabTemp  = a_MeanX_aa( xz_StabTemp  ) / CalNum
    z_StabMolWt = a_MeanX_aa( xz_StabMolWt ) / CalNum

  end subroutine StoreStabMeanX
Subroutine :
xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

分子量の寄与を保管

[Source]

  subroutine StoreStabMolWt( 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_StabMolWt + xz_Work
    xz_StabMolWt = xz_Work2
    
  end subroutine StoreStabMolWt
Subroutine :
xz_Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

温度の寄与を保管

[Source]

  subroutine StoreStabTemp( 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_StabTemp + xz_Work
    xz_StabTemp = xz_Work2

  end subroutine StoreStabTemp
Subroutine :

初期化ルーチン

[Source]

  subroutine StoreStab_Init( )
    !初期化ルーチン

    allocate( z_StabTemp(DimZMin:DimZMax), z_StabMolWt(DimZMin:DimZMax), xz_StabTemp(DimXMin:DimXMax, DimZMin:DimZMax), xz_StabMolWt(DimXMin:DimXMax, DimZMin:DimZMax) )
    
    call StoreStabClean()

  end subroutine StoreStab_Init
z_StabMolWt
Variable :
z_StabMolWt(:) :real(8), allocatable
z_StabTemp
Variable :
z_StabTemp(:) :real(8), allocatable

[Validate]