Class StoreDensCloud
In: setup/storedenscloud.f90
setup/storedenscloud_1d-2.f90
setup/storedenscloud_1d-3.f90
setup/storedenscloud_1d-4.f90
setup/storedenscloud_1d.f90
setup/storedenscloud_2d-2.f90
setup/storedenscloud_2d-3.f90
setup/storedenscloud_2d-4.f90
setup/storedenscloud_2d-5.f90
setup/storedenscloud_2d.f90

雲密度に関する積算値を保管するための変数型モジュール.

Methods

DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudAdvTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudCondTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudDiffTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum   DensCloudFillTendSum2   DensCloudFillTendSum2   DensCloudFillZeroTendSum   DensCloudFillZeroTendSum   DensCloudFillZeroTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   DensCloudTurbTendSum   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudAdv   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudClean   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudCond   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudDiff   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill   StoreDensCloudFill2   StoreDensCloudFill2   StoreDensCloudFillZero   StoreDensCloudFillZero   StoreDensCloudFillZero   StoreDensCloudMean   StoreDensCloudMean   StoreDensCloudMean   StoreDensCloudMean   StoreDensCloudMean   StoreDensCloudMean   StoreDensCloudMeanX   StoreDensCloudMeanX   StoreDensCloudMeanX   StoreDensCloudMeanX   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloudTurb   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   StoreDensCloud_Init   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv   xz_DensCloudAdv2   xz_DensCloudAdv2   xz_DensCloudAdv2   xz_DensCloudAdv2   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond   xz_DensCloudCond2   xz_DensCloudCond2   xz_DensCloudCond2   xz_DensCloudCond2   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff   xz_DensCloudDiff2   xz_DensCloudDiff2   xz_DensCloudDiff2   xz_DensCloudDiff2   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill   xz_DensCloudFill2   xz_DensCloudFill2   xz_DensCloudFill2   xz_DensCloudFill2   xz_DensCloudFill2   xz_DensCloudFill2   xz_DensCloudFillZero   xz_DensCloudFillZero   xz_DensCloudFillZero   xz_DensCloudFillZero2   xz_DensCloudFillZero2   xz_DensCloudFillZero2   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb   xz_DensCloudTurb2   xz_DensCloudTurb2   xz_DensCloudTurb2   xz_DensCloudTurb2   z_DensCloudFill2   z_DensCloudFill2  

Included Modules

gridset TimeSet

Public Instance methods

DensCloudAdvTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv2 + Work
    xz_DensCloudAdv2 = Work2

    xz_DensCloudAdv = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv2 + Work
    xz_DensCloudAdv2 = Work2

    xz_DensCloudAdv = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv2 + Work
    xz_DensCloudAdv2 = Work2

    xz_DensCloudAdv = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv2 + Work
    xz_DensCloudAdv2 = Work2

    xz_DensCloudAdv = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2  = z_DensCloudAdv + Work
    z_DensCloudAdv = Work2

    xz_DensCloudAdv  = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2  = z_DensCloudAdv + Work
    z_DensCloudAdv = Work2

    xz_DensCloudAdv  = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudAdvTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた移流項 tendency の足しこみ

[Source]

  subroutine DensCloudAdvTendSum( Work )
    ! 2 \delta t の各時間内で求めた移流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2  = z_DensCloudAdv + Work
    z_DensCloudAdv = Work2

    xz_DensCloudAdv  = 0.0d0

  end subroutine DensCloudAdvTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond2 + Work
    xz_DensCloudCond2 = Work2

    xz_DensCloudCond = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond2 + Work
    xz_DensCloudCond2 = Work2

    xz_DensCloudCond = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond2 + Work
    xz_DensCloudCond2 = Work2

    xz_DensCloudCond = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond2 + Work
    xz_DensCloudCond2 = Work2

    xz_DensCloudCond = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudCond + Work
    z_DensCloudCond = Work2

    xz_DensCloudCond  = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudCond + Work
    z_DensCloudCond = Work2

    xz_DensCloudCond  = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudCondTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

[Source]

  subroutine DensCloudCondTendSum( Work )
    ! 2 \delta t の各時間内で求めた潜熱加熱項 tendency の足しこみ

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudCond + Work
    z_DensCloudCond = Work2

    xz_DensCloudCond  = 0.0d0

  end subroutine DensCloudCondTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ.
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく.

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff2 + Work
    xz_DensCloudDiff2 = Work2

    xz_DensCloudDiff = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ.
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく.

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff2 + Work
    xz_DensCloudDiff2 = Work2

    xz_DensCloudDiff = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ.
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく.

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff2 + Work
    xz_DensCloudDiff2 = Work2

    xz_DensCloudDiff = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ.
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく.

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff2 + Work
    xz_DensCloudDiff2 = Work2

    xz_DensCloudDiff = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく. 

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudDiff + Work
    z_DensCloudDiff = Work2

    xz_DensCloudDiff  = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく. 

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudDiff + Work
    z_DensCloudDiff = Work2

    xz_DensCloudDiff  = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudDiffTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 短い時間ステップのループ内に行く前に xz_DensCloudxxx の量を クリアーしておく.

[Source]

  subroutine DensCloudDiffTendSum( Work )
    ! 2 \delta t の各時間内で求めた数値拡散項 tendency の足しこみ. 
    ! 短い時間ステップのループ内に行く前に xz_DensCloudxxx  の量を
    ! クリアーしておく. 

    implicit none
    
    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudDiff + Work
    z_DensCloudDiff = Work2

    xz_DensCloudDiff  = 0.0d0

  end subroutine DensCloudDiffTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2     = Work + z_DensCloudFill
    z_DensCloudFill = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2     = Work + z_DensCloudFill
    z_DensCloudFill = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2     = Work + z_DensCloudFill
    z_DensCloudFill = Work2

    xz_DensCloudFill = 0.0d0

  end subroutine DensCloudFillTendSum
DensCloudFillTendSum2( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum2( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2     = Work + z_DensCloudFill2
    z_DensCloudFill2 = Work2

    xz_DensCloudFill2 = 0.0d0

  end subroutine DensCloudFillTendSum2
DensCloudFillTendSum2( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillTendSum2( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2     = Work + z_DensCloudFill2
    z_DensCloudFill2 = Work2

    xz_DensCloudFill2 = 0.0d0

  end subroutine DensCloudFillTendSum2
DensCloudFillZeroTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillZeroTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero2
    xz_DensCloudFillZero2 = Work2

    xz_DensCloudFillZero = 0.0d0

  end subroutine DensCloudFillZeroTendSum
DensCloudFillZeroTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillZeroTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero2
    xz_DensCloudFillZero2 = Work2

    xz_DensCloudFillZero = 0.0d0

  end subroutine DensCloudFillZeroTendSum
DensCloudFillZeroTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた穴埋め量 tendency の足しこみ

[Source]

  subroutine DensCloudFillZeroTendSum( Work )
    ! 2 \delta t の各時間内で求めた穴埋め量 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero2
    xz_DensCloudFillZero2 = Work2

    xz_DensCloudFillZero = 0.0d0

  end subroutine DensCloudFillZeroTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb2 + Work
    xz_DensCloudTurb2 = Work2

    xz_DensCloudTurb = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb2 + Work
    xz_DensCloudTurb2 = Work2

    xz_DensCloudTurb = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb2 + Work
    xz_DensCloudTurb2 = Work2

    xz_DensCloudTurb = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb2 + Work
    xz_DensCloudTurb2 = Work2

    xz_DensCloudTurb = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudTurb + Work
    z_DensCloudTurb = Work2

    xz_DensCloudTurb  = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudTurb + Work
    z_DensCloudTurb = Work2

    xz_DensCloudTurb  = 0.0d0

  end subroutine DensCloudTurbTendSum
DensCloudTurbTendSum( Work )
Subroutine :
Work(DimZMin:DimZMax) :real(8), intent(in)

2 delta t の各時間内で求めた乱流項 tendency の足しこみ

[Source]

  subroutine DensCloudTurbTendSum( Work )
    ! 2 \delta t の各時間内で求めた乱流項 tendency の足しこみ

    implicit none

    real(8), intent(in)  :: Work(DimZMin:DimZMax)
    real(8)              :: Work2(DimZMin:DimZMax)

    Work2   = z_DensCloudTurb + Work
    z_DensCloudTurb = Work2

    xz_DensCloudTurb  = 0.0d0

  end subroutine DensCloudTurbTendSum
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

    write(*,*) "TendAdv", xz_DensCloudAdv(7,50)

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudAdv( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

移流項の保管

[Source]

  subroutine StoreDensCloudAdv( Work )
    !移流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2  = xz_DensCloudAdv + Work
    xz_DensCloudAdv = Work2

  end subroutine StoreDensCloudAdv
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0
    z_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
    xz_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv2  = 0.0d0
    xz_DensCloudTurb2 = 0.0d0
    xz_DensCloudDiff2 = 0.0d0
    xz_DensCloudCond2 = 0.0d0
    xz_DensCloudFill2 = 0.0d0
    xz_DensCloudFillZero2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0
    z_DensCloudFill2 = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
    xz_DensCloudFill2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0
    z_DensCloudFill2 = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
    xz_DensCloudFill2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0
    z_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
    xz_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv2  = 0.0d0
    xz_DensCloudTurb2 = 0.0d0
    xz_DensCloudDiff2 = 0.0d0
    xz_DensCloudCond2 = 0.0d0
    xz_DensCloudFill2 = 0.0d0
    xz_DensCloudFillZero2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0

    xz_DensCloudAdv2  = 0.0d0
    xz_DensCloudTurb2 = 0.0d0
    xz_DensCloudDiff2 = 0.0d0
    xz_DensCloudCond2 = 0.0d0
    xz_DensCloudFill2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudClean( )
Subroutine :

保管した値のクリアー

[Source]

  subroutine StoreDensCloudClean( )
    !保管した値のクリアー
    
    z_DensCloudAdv  = 0.0d0
    z_DensCloudTurb = 0.0d0
    z_DensCloudDiff = 0.0d0
    z_DensCloudCond = 0.0d0
    z_DensCloudFill = 0.0d0
    z_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv  = 0.0d0
    xz_DensCloudTurb = 0.0d0
    xz_DensCloudDiff = 0.0d0
    xz_DensCloudCond = 0.0d0
    xz_DensCloudFill = 0.0d0
    xz_DensCloudFillZero = 0.0d0

    xz_DensCloudAdv2  = 0.0d0
    xz_DensCloudTurb2 = 0.0d0
    xz_DensCloudDiff2 = 0.0d0
    xz_DensCloudCond2 = 0.0d0
    xz_DensCloudFill2 = 0.0d0
    xz_DensCloudFillZero2 = 0.0d0
   
!    CalNum  = 1.0d-40    !ゼロ割を禁止. 
  end subroutine StoreDensCloudClean
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

    write(*,*) "TendCond", xz_DensCloudCond(7,50)
    write(*,*) "****"

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudCond( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

潜熱・蒸発熱の保管

[Source]

  subroutine StoreDensCloudCond( Work )
    !潜熱・蒸発熱の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudCond + Work
    xz_DensCloudCond = Work2

  end subroutine StoreDensCloudCond
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

    write(*,*) "TendDiff", xz_DensCloudDiff(7,50)

  end subroutine StoreDensCloudDiff
StoreDensCloudDiff( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

数値拡散項の保管

[Source]

  subroutine StoreDensCloudDiff( Work )
    !数値拡散項の保管

    implicit none
    
    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudDiff + Work
    xz_DensCloudDiff = Work2

  end subroutine StoreDensCloudDiff
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill
    xz_DensCloudFill = Work2

  end subroutine StoreDensCloudFill
StoreDensCloudFill2( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill2( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

  end subroutine StoreDensCloudFill2
StoreDensCloudFill2( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFill2( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFill2
    xz_DensCloudFill2 = Work2

  end subroutine StoreDensCloudFill2
StoreDensCloudFillZero( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFillZero( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero
    xz_DensCloudFillZero = Work2

  end subroutine StoreDensCloudFillZero
StoreDensCloudFillZero( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFillZero( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero
    xz_DensCloudFillZero = Work2

  end subroutine StoreDensCloudFillZero
StoreDensCloudFillZero( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

穴埋めプログラムによる変化

[Source]

  subroutine StoreDensCloudFillZero( Work )
    !穴埋めプログラムによる変化

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2     = Work + xz_DensCloudFillZero
    xz_DensCloudFillZero = Work2

  end subroutine StoreDensCloudFillZero
StoreDensCloudMean( )
Subroutine :

[Source]

  subroutine StoreDensCloudMean( )

    !保管した値の水平平均値 [K/s]
    real(8) :: CalNumShort

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / ( CalNumShort * TimeDisp )
    xz_DensCloudTurb =  xz_DensCloudTurb   / ( CalNumShort * TimeDisp )
    xz_DensCloudDiff =  xz_DensCloudDiff   / ( CalNumShort * TimeDisp )
    xz_DensCloudCond =  xz_DensCloudCond   / ( CalNumShort * TimeDisp )
    xz_DensCloudFill =  xz_DensCloudFill   / ( CalNumShort * TimeDisp )
    xz_DensCloudFillZero =  xz_DensCloudFillZero   / ( CalNumShort * TimeDisp )

  end subroutine StoreDensCloudMean
StoreDensCloudMean( )
Subroutine :

[Source]

  subroutine StoreDensCloudMean( )

    !保管した値の水平平均値 [K/s]
    real(8) :: CalNumShort

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / CalNumShort
    xz_DensCloudTurb =  xz_DensCloudTurb   / CalNumShort
    xz_DensCloudDiff =  xz_DensCloudDiff   / CalNumShort
    xz_DensCloudCond =  xz_DensCloudCond   / CalNumShort
    xz_DensCloudFill =  xz_DensCloudFill   / CalNumShort
    xz_DensCloudFillZero =  xz_DensCloudFillZero   / CalNumShort

  end subroutine StoreDensCloudMean
StoreDensCloudMean( )
Subroutine :

[Source]

  subroutine StoreDensCloudMean( )

    !保管した値の水平平均値 [K/s]
    real(8) :: CalNumShort

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / ( CalNumShort * TimeDisp )
    xz_DensCloudTurb =  xz_DensCloudTurb   / ( CalNumShort * TimeDisp )
    xz_DensCloudDiff =  xz_DensCloudDiff   / ( CalNumShort * TimeDisp )
    xz_DensCloudCond =  xz_DensCloudCond   / ( CalNumShort * TimeDisp )
    xz_DensCloudFill =  xz_DensCloudFill   / ( CalNumShort * TimeDisp )
    xz_DensCloudFillZero =  xz_DensCloudFillZero   / ( CalNumShort * TimeDisp )

  end subroutine StoreDensCloudMean
StoreDensCloudMean( )
Subroutine :

[Source]

  subroutine StoreDensCloudMean( )

    !保管した値の水平平均値 [K/s]
    real(8) :: CalNumShort

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / CalNumShort
    xz_DensCloudTurb =  xz_DensCloudTurb   / CalNumShort
    xz_DensCloudDiff =  xz_DensCloudDiff   / CalNumShort
    xz_DensCloudCond =  xz_DensCloudCond   / CalNumShort
    xz_DensCloudFill =  xz_DensCloudFill   / CalNumShort

  end subroutine StoreDensCloudMean
StoreDensCloudMean( )
Subroutine :

保管した値の水平平均値 [K/s]

[Source]

  subroutine StoreDensCloudMean()
    !保管した値の水平平均値 [K/s]
     real(8) :: CalNumShort

    CalNumShort = 2.0d0 * TimeDisp / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / CalNumShort
    xz_DensCloudTurb =  xz_DensCloudTurb   / CalNumShort
    xz_DensCloudDiff =  xz_DensCloudDiff   / CalNumShort
    xz_DensCloudCond =  xz_DensCloudCond   / CalNumShort
    xz_DensCloudFill =  xz_DensCloudFill   / CalNumShort

  end subroutine StoreDensCloudMean
StoreDensCloudMean( )
Subroutine :

保管した値の水平平均値 [K/s]

[Source]

  subroutine StoreDensCloudMean()
    !保管した値の水平平均値 [K/s]
     real(8) :: CalNumShort

    CalNumShort = 2.0d0 * TimeDisp / DelTimeShort
    
    
    xz_DensCloudAdv  =  xz_DensCloudAdv    / CalNumShort
    xz_DensCloudTurb =  xz_DensCloudTurb   / CalNumShort
    xz_DensCloudDiff =  xz_DensCloudDiff   / CalNumShort
    xz_DensCloudCond =  xz_DensCloudCond   / CalNumShort
    xz_DensCloudFill =  xz_DensCloudFill   / CalNumShort

  end subroutine StoreDensCloudMean
StoreDensCloudMeanX( )
Subroutine :

保管した値の水平平均値 [K/s]

[Source]

  subroutine StoreDensCloudMeanX()
    !保管した値の水平平均値 [K/s]
     real(8) :: CalNumShort

    CalNumShort = 2.0d0 * TimeDisp / DelTimeShort
    
    
    z_DensCloudAdv  = a_MeanX_aa( xz_DensCloudAdv )   / CalNumShort
    z_DensCloudTurb = a_MeanX_aa( xz_DensCloudTurb )  / CalNumShort
    z_DensCloudDiff = a_MeanX_aa( xz_DensCloudDiff )  / CalNumShort
    z_DensCloudCond = a_MeanX_aa( xz_DensCloudCond )  / CalNumShort
    z_DensCloudFill = a_MeanX_aa( xz_DensCloudFill )  / CalNumShort

  end subroutine StoreDensCloudMeanX
StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork )
Subroutine :
z_DensCloudAdvWork(DimZMin:DimZMax) :real(8)
z_DensCloudTurbWork(DimZMin:DimZMax) :real(8)
z_DensCloudDiffWork(DimZMin:DimZMax) :real(8)
z_DensCloudCondWork(DimZMin:DimZMax) :real(8)
z_DensCloudFillWork(DimZMin:DimZMax) :real(8)

[Source]

  subroutine StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork )

    ! 保管した値の水平平均値 [K/s]
    ! 短い時間ステップの do ループ内で平均
    real(8) :: CalNumShort
    real(8) :: z_DensCloudAdvWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudTurbWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudDiffWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudCondWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudFillWork(DimZMin:DimZMax)

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    z_DensCloudAdvWork  = a_MeanX_aa( xz_DensCloudAdv )   / CalNumShort
    z_DensCloudTurbWork = a_MeanX_aa( xz_DensCloudTurb )  / CalNumShort
    z_DensCloudDiffWork = a_MeanX_aa( xz_DensCloudDiff )  / CalNumShort
    z_DensCloudCondWork = a_MeanX_aa( xz_DensCloudCond )  / CalNumShort
    z_DensCloudFillWork = a_MeanX_aa( xz_DensCloudFill )  / CalNumShort

  end subroutine StoreDensCloudMeanX
StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork, z_DensCloudFillWork2 )
Subroutine :
z_DensCloudAdvWork(DimZMin:DimZMax) :real(8)
z_DensCloudTurbWork(DimZMin:DimZMax) :real(8)
z_DensCloudDiffWork(DimZMin:DimZMax) :real(8)
z_DensCloudCondWork(DimZMin:DimZMax) :real(8)
z_DensCloudFillWork(DimZMin:DimZMax) :real(8)
z_DensCloudFillWork2(DimZMin:DimZMax) :real(8)

[Source]

  subroutine StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork, z_DensCloudFillWork2 )

    ! 保管した値の水平平均値 [K/s]
    ! 短い時間ステップの do ループ内で平均
    real(8) :: CalNumShort
    real(8) :: z_DensCloudAdvWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudTurbWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudDiffWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudCondWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudFillWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudFillWork2(DimZMin:DimZMax)

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    z_DensCloudAdvWork  = a_MeanX_aa( xz_DensCloudAdv )   / ( CalNumShort * TimeDisp )
    z_DensCloudTurbWork = a_MeanX_aa( xz_DensCloudTurb )  / ( CalNumShort * TimeDisp )
    z_DensCloudDiffWork = a_MeanX_aa( xz_DensCloudDiff )  / ( CalNumShort * TimeDisp )
    z_DensCloudCondWork = a_MeanX_aa( xz_DensCloudCond )  / ( CalNumShort * TimeDisp )
    z_DensCloudFillWork = a_MeanX_aa( xz_DensCloudFill )  / ( CalNumShort * TimeDisp )
    z_DensCloudFillWork2 = a_MeanX_aa( xz_DensCloudFill2 )  / ( CalNumShort * TimeDisp )

  end subroutine StoreDensCloudMeanX
StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork, z_DensCloudFillWork2 )
Subroutine :
z_DensCloudAdvWork(DimZMin:DimZMax) :real(8)
z_DensCloudTurbWork(DimZMin:DimZMax) :real(8)
z_DensCloudDiffWork(DimZMin:DimZMax) :real(8)
z_DensCloudCondWork(DimZMin:DimZMax) :real(8)
z_DensCloudFillWork(DimZMin:DimZMax) :real(8)
z_DensCloudFillWork2(DimZMin:DimZMax) :real(8)

[Source]

  subroutine StoreDensCloudMeanX( z_DensCloudAdvWork, z_DensCloudTurbWork, z_DensCloudDiffWork, z_DensCloudCondWork, z_DensCloudFillWork, z_DensCloudFillWork2 )

    ! 保管した値の水平平均値 [K/s]
    ! 短い時間ステップの do ループ内で平均
    real(8) :: CalNumShort
    real(8) :: z_DensCloudAdvWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudTurbWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudDiffWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudCondWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudFillWork(DimZMin:DimZMax)
    real(8) :: z_DensCloudFillWork2(DimZMin:DimZMax)

    CalNumShort = 2.0d0 * DelTimeLong / DelTimeShort
    
    
    z_DensCloudAdvWork  = a_MeanX_aa( xz_DensCloudAdv )   / CalNumShort
    z_DensCloudTurbWork = a_MeanX_aa( xz_DensCloudTurb )  / CalNumShort
    z_DensCloudDiffWork = a_MeanX_aa( xz_DensCloudDiff )  / CalNumShort
    z_DensCloudCondWork = a_MeanX_aa( xz_DensCloudCond )  / CalNumShort
    z_DensCloudFillWork = a_MeanX_aa( xz_DensCloudFill )  / CalNumShort
    z_DensCloudFillWork2 = a_MeanX_aa( xz_DensCloudFill2 )  / CalNumShort

  end subroutine StoreDensCloudMeanX
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

    write(*,*) "TendTurb", xz_DensCloudTurb(7,50)

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloudTurb( Work )
Subroutine :
Work(DimXMin:DimXMax, DimZMin:DimZMax) :real(8), intent(in)

乱流項の保管

[Source]

  subroutine StoreDensCloudTurb( Work )
    !乱流項の保管

    implicit none

    real(8), intent(in)  :: Work(DimXMin:DimXMax, DimZMin:DimZMax)
    real(8)              :: Work2(DimXMin:DimXMax, DimZMin:DimZMax)

    Work2   = xz_DensCloudTurb + Work
    xz_DensCloudTurb = Work2

  end subroutine StoreDensCloudTurb
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), z_DensCloudFill2(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), z_DensCloudFillZero(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudAdv2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), z_DensCloudFillZero(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudAdv2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), z_DensCloudFillZero(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudAdv2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFillZero2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), z_DensCloudFill2(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
StoreDensCloud_Init( )
Subroutine :

初期化ルーチン

[Source]

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

    allocate( z_DensCloudAdv(DimZMin:DimZMax), z_DensCloudTurb(DimZMin:DimZMax), z_DensCloudDiff(DimZMin:DimZMax), z_DensCloudCond(DimZMin:DimZMax), z_DensCloudFill(DimZMin:DimZMax), xz_DensCloudAdv(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudAdv2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudTurb2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudDiff2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudCond2(DimXMin:DimXMax, DimZMin:DimZMax), xz_DensCloudFill2(DimXMin:DimXMax, DimZMin:DimZMax) )

    call StoreDensCloudClean

  end subroutine StoreDensCloud_Init
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv
Variable :
xz_DensCloudAdv(:,:) :real(8), allocatable
xz_DensCloudAdv2
Variable :
xz_DensCloudAdv2(:,:) :real(8), allocatable
xz_DensCloudAdv2
Variable :
xz_DensCloudAdv2(:,:) :real(8), allocatable
xz_DensCloudAdv2
Variable :
xz_DensCloudAdv2(:,:) :real(8), allocatable
xz_DensCloudAdv2
Variable :
xz_DensCloudAdv2(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond
Variable :
xz_DensCloudCond(:,:) :real(8), allocatable
xz_DensCloudCond2
Variable :
xz_DensCloudCond2(:,:) :real(8), allocatable
xz_DensCloudCond2
Variable :
xz_DensCloudCond2(:,:) :real(8), allocatable
xz_DensCloudCond2
Variable :
xz_DensCloudCond2(:,:) :real(8), allocatable
xz_DensCloudCond2
Variable :
xz_DensCloudCond2(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff
Variable :
xz_DensCloudDiff(:,:) :real(8), allocatable
xz_DensCloudDiff2
Variable :
xz_DensCloudDiff2(:,:) :real(8), allocatable
xz_DensCloudDiff2
Variable :
xz_DensCloudDiff2(:,:) :real(8), allocatable
xz_DensCloudDiff2
Variable :
xz_DensCloudDiff2(:,:) :real(8), allocatable
xz_DensCloudDiff2
Variable :
xz_DensCloudDiff2(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill
Variable :
xz_DensCloudFill(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFill2
Variable :
xz_DensCloudFill2(:,:) :real(8), allocatable
xz_DensCloudFillZero
Variable :
xz_DensCloudFillZero(:,:) :real(8), allocatable
xz_DensCloudFillZero
Variable :
xz_DensCloudFillZero(:,:) :real(8), allocatable
xz_DensCloudFillZero
Variable :
xz_DensCloudFillZero(:,:) :real(8), allocatable
xz_DensCloudFillZero2
Variable :
xz_DensCloudFillZero2(:,:) :real(8), allocatable
xz_DensCloudFillZero2
Variable :
xz_DensCloudFillZero2(:,:) :real(8), allocatable
xz_DensCloudFillZero2
Variable :
xz_DensCloudFillZero2(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb
Variable :
xz_DensCloudTurb(:,:) :real(8), allocatable
xz_DensCloudTurb2
Variable :
xz_DensCloudTurb2(:,:) :real(8), allocatable
xz_DensCloudTurb2
Variable :
xz_DensCloudTurb2(:,:) :real(8), allocatable
xz_DensCloudTurb2
Variable :
xz_DensCloudTurb2(:,:) :real(8), allocatable
xz_DensCloudTurb2
Variable :
xz_DensCloudTurb2(:,:) :real(8), allocatable
z_DensCloudFill2
Variable :
z_DensCloudFill2(:) :real(8), allocatable
z_DensCloudFill2
Variable :
z_DensCloudFill2(:) :real(8), allocatable