arare.f90

Path: main/arare.f90
Last Update: Fri Mar 05 12:09:05 +0900 2010

deepconv/arare 湿潤大気対流計算用主プログラム

deepconv/arare main program for moist atmospheric convection

Authors:SUGIYAMA Ko-ichiro, ODAKA Masatsugu
Version:$Id: arare.f90,v 1.56 2010-03-05 03:09:05 sugiyama Exp $
Tag Name:$Name: arare4-20100305 $
Copyright:Copyright (C) GFD Dennou Club, 2006. All rights reserved.
License:See COPYRIGHT

Methods

arare  

Included Modules

dc_types dc_string dc_message argset fileset debugset timeset gridset basicset ChemCalc chemdata DynFunc DynImpFunc Turbulence HeatFlux Radiation moistset MoistAdjust WarmRainPrm MoistBuoyancy ECCM NumDiffusion damping StorePotTemp StoreMixRt StoreBuoy StoreStab RestartFileIO HistoryFileIO cflcheck timefilter boundary

Public Instance methods

Main Program :

非静力学モデル deepconv/arare 湿潤大気対流計算用主プログラム.

[Source]

program arare
  !
  ! 非静力学モデル deepconv/arare 湿潤大気対流計算用主プログラム.
  !

  ! モジュール引用 ; use statement 
  !

  ! gtool5 関連 
  ! gtool5 modules
  !
  use dc_types,      only: STRING
  use dc_string,     only: StoA
  use dc_message,    only: MessageNotify

  ! 初期設定モジュール
  ! Initialize module
  !
  use argset,        only: argset_init  
  use fileset,       only: fileset_init, InitFile
  use debugset,      only: debugset_init
  use timeset,       only: timeset_init, DelTimeLong, DelTimeShort, NstepDisp, NstepLong, NstepShort    
  use gridset,       only: gridset_init, DimXMin, DimXMax, DimZMin, DimZMax, SpcNum
  use basicset,      only: basicset_init, xza_MixRtBasicZ, xz_DensBasicZ, xz_PotTempBasicZ, xz_VelSoundBasicZ

  ! 化学量計算モジュール 
  ! Chemical calculation modules
  !
  use ChemCalc,      only: ChemCalc_init
  use chemdata,      only: chemdata_init

  ! 力学過程計算用関数モジュール
  ! Dynamical processes module
  !
  use DynFunc,       only: xz_AdvScalar, xz_AdvKm, xza_AdvScalar, pz_AdvVelX, xr_Buoy, xr_AdvVelZ, pz_GradPi
  use DynImpFunc,    only: xz_Exner_init, xz_Exner, xr_GradPi
  
  ! 乱流拡散計算用モジュール
  ! Turbulent diffusion module
  !
  use Turbulence,    only: Turbulence_Init, xz_TurbScalar, xza_TurbScalar, pz_TurbVelX, xr_TurbVelZ, xz_ShearKm, xz_DispKm, xz_DispHeat
  
  ! 境界からのフラックス計算用モジュール
  ! Surface flux module
  !
  use HeatFlux, only: xz_HeatFluxDiff,  xza_MixRtFluxDiff

  ! 放射強制計算用モジュール
  ! Radiative forceing module
  !
  use Radiation,     only: Radiation_init, xz_RadHeatConst  

  ! 湿潤過程計算用モジュール
  ! Moist processes modules
  !
  use moistset,      only: moistset_init
  use MoistAdjust,   only: MoistAdjustSvapPress
  use WarmRainPrm,   only: WarmRainPrm_Init, xz_Rain2GasHeat, xza_Rain2Gas, xza_Cloud2Rain, xza_FallRain, FillNegative1
  use MoistBuoyancy, only: MoistBuoy_Init, xz_BuoyMoistKm, xr_BuoyMolWt, xr_BuoyDrag
!  use fillnegative,  only: FillNegative_init, xza_FillNegative_xza

  ! 安定度の計算
  ! Static stability calculation module
  !
  use ECCM,          only: ECCM_Stab

  ! 数値拡散/摩擦計算用モジュール
  ! Numerical diffussion /dumping module
  !
  use NumDiffusion,  only: NumDiffusion_Init, xz_NumDiffScalar, xz_NumDiffKm, xza_NumDiffScalar, pz_NumDiffVelX, xr_NumDiffVelZ
  use damping,       only: damping_init, DampSponge_xz, DampSponge_pz, DampSponge_xr

  ! 積算値管理モジュール
  ! Monitor variables setup modules
  !
  use StorePotTemp,  only: StorePotTemp_init, StorePotTempClean, StorePotTempCond
  use StoreMixRt,    only: StoreMixRt_init, StoreMixRtClean, StoreMixRtCond, StoreMixRtFill1
  use StoreBuoy,     only: StoreBuoy_init, StoreBuoyClean
  use StoreStab,     only: StoreStab_init, StoreStabClean

  ! ファイル入出力モジュール
  ! File I/O module
  !
  use RestartFileIO, only: ReStartFile_Open, ReStartFile_OutPut, ReStartFile_Close, ReStartFile_Get
  use HistoryFileIO, only: HistoryFile_Open, HistoryFile_OutPut, HistoryFile_Close

  ! 下請けモジュール
  ! Utility modules
  !
  use cflcheck,      only: CFLCheckTimeShort, CFLCheckTimeLongVelX, CFLCheckTimeLongVelZ
  use timefilter,    only: AsselinFilter_xz, AsselinFilter_xr, AsselinFilter_pz, AsselinFilter_xza
  use boundary,      only: BoundaryXCyc_xz, BoundaryZSym_xz, BoundaryXCyc_xza, BoundaryZSym_xza, BoundaryXCyc_pz, BoundaryZSym_pz, BoundaryXCyc_xr, BoundaryZAntiSym_xr

  ! 変数宣言 ; Variables definition 
  !

  implicit none

  ! 内部変数
  ! Internal variables
  !
  character(80) :: cfgfile  ! NAMELIST ファイル名 NAMELIST file name
  real(8), allocatable :: pz_VelXBl(:,:) 
                            ! $ u(t-\Delta t) $ 水平風 Horizontal wind
  real(8), allocatable :: pz_VelXNl(:,:) 
                            ! $ u(t) $ 水平風 Horizontal wind
  real(8), allocatable :: pz_VelXAl(:,:) 
                            ! $ u (t+\Delta t)a $ 水平風 Horizontal wind
  real(8), allocatable :: pz_VelXNs(:,:) 
                            ! $ u (\tau) $ 水平風 Horizontal wind
  real(8), allocatable :: pz_VelXAs(:,:) 
                            ! $ u (\tau +\Delta \tau) 水平風 Horizontal wind
  real(8), allocatable :: xr_VelZBl(:,:) 
                            ! $ w (t-\Delta t) 鉛直風 Vertical wind
  real(8), allocatable :: xr_VelZNl(:,:) 
                            ! $ w (t) 鉛直風 Vertical wind
  real(8), allocatable :: xr_VelZAl(:,:) 
                            ! $ w (t+\Delta t) 鉛直風 Vertical wind
  real(8), allocatable :: xr_VelZNs(:,:) 
                            ! $ w (\tau) 鉛直風 Vertical wind
  real(8), allocatable :: xr_VelZAs(:,:) 
                            ! $ w (\tau +\Delta \tau) $ 鉛直風 Vertical wind
  real(8), allocatable :: xz_ExnerBl(:,:)
                            ! $ \pi (t-\Delta t) $ 圧力関数 Exner function
  real(8), allocatable :: xz_ExnerNl(:,:)
                            ! $ \pi (t) $ 圧力関数 Exner function
  real(8), allocatable :: xz_ExnerAl(:,:)
                            ! $ \pi (t+\Delta t) $ 圧力関数 Exner function
  real(8), allocatable :: xz_ExnerNs(:,:)
                            ! $ \pi (\tau) $ 圧力関数 Exner function
  real(8), allocatable :: xz_ExnerAs(:,:)
                            ! $ \pi (\tau +\Delta \tau) $ 圧力関数 Exner function
  real(8), allocatable :: xz_PotTempBl(:,:) 
                            ! $ \theta (t-\Delta t) $ 温位 Potential temp.
  real(8), allocatable :: xz_PotTempNl(:,:) 
                            ! $ \theta (t) $ 温位 Potential temp.
  real(8), allocatable :: xz_PotTempAl(:,:) 
                            ! $ \theta (t+\Delta t) $ 温位 Potential temp.
  real(8), allocatable :: xz_PotTempWork(:,:)
                            ! 温位の作業配列 Work array for potential temp.
  real(8), allocatable :: xz_KmBl(:,:)
                            ! $ Km (t-\Delta t) $ 乱流拡散係数 
                            ! Turbulent diffusion coeff. 
  real(8), allocatable :: xz_KmNl(:,:)         
                            ! $ K_m (t) 乱流拡散係数 
                            ! Turbulent diffusion coeff. 
  real(8), allocatable :: xz_KmAl(:,:)
                            ! $ K_m (t+\Delta t) $ 乱流拡散係数 
                            ! Turbulent diffusion coeff. 
  real(8), allocatable :: xz_KhBl(:,:)
                            ! $ K_h (t-\Delta t) $ 乱流拡散係数 
                            ! Turbulent diffusion coeff. 
  real(8), allocatable :: xz_KhNl(:,:)
                            ! $ K_h (t) $ 乱流拡散係数 
                            ! Turbulent diffusion coeff. 
  real(8), allocatable :: xz_KhAl(:,:)
                            ! $ K_h (t+\Delta t) $ 乱流拡散係数 
                            ! Turbulent diffusion coeff.
  real(8), allocatable :: xza_MixRtBl(:,:,:)
                            ! $ q (t-\Delta t) $ 湿潤量の混合比 
                            ! Mixing ratio of moist variables.
  real(8), allocatable :: xza_MixRtNl(:,:,:) 
                            ! $ q (t) $ 湿潤量の混合比 
                            ! Mixing ratio of moist variables.
  real(8), allocatable :: xza_MixRtAl(:,:,:)
                            ! $ q (t+\Delta t) $ 湿潤量の混合比 
                            ! Mixing ratio of moist variables.
  real(8), allocatable :: xza_MixRtWork(:,:,:) 
                            ! 湿潤量の作業配列
                            ! Work array for mixing ratio.
  real(8), allocatable :: pz_AccelVelXNl(:,:)  
                            ! 気圧傾度力を除いた $u$ の変化率
                            ! Tendency of $u$ except for pressure gradient term
  real(8), allocatable :: xr_AccelVelZNl(:,:)  
                            ! 気圧傾度力を除いた $w$ の変化率
                            ! Tendency of $w$ except for pressure gradient term
  real(8), allocatable :: xza_DelMixRt(:,:,:)  
                            ! 湿潤量の混合比 $ q $ の増分
                            ! Mixing ratio variation.
  real(8) :: Time           ! 時刻 Time 
  real(8) :: ReStartTime(2) ! リスタートファイル出力時刻用配列
                            ! Output time array for restart file
  real(8), allocatable :: DelTimeLFrog(:)
                            ! リープフロッグスキーム用時間格子間隔
                            ! Time interval for Leap-frog scheme
  real(8) :: DelTimeEular   ! オイラースキーム用時間格子
                            ! Time interval for Eular scheme
  integer :: NStepLFrog     ! リープフロッグスキーム用時間ステップ数
                            ! The number of time step for Leap-frog scheme
  integer, allocatable :: NStepEular(:)
                            ! オイラースキーム用時間ステップ数
                            ! The number of time step for Eular scheme

  integer :: t, tau, t1, t2       ! do ループ変数 ; do loop variable 


  ! 初期化手続き Initialize procedure 
  !

  ! NAMELIST ファイル名の読み込み
  ! Loading NAMELIST file.
  !
  call argset_init( cfgfile )

  ! デバッグ設定の初期化
  ! Initialization of debug output control.
  !
  call debugset_init( cfgfile )

  ! 化学定数の初期化
  ! Initialization of chemical constatns.
  !
  call chemdata_init( )

  ! 時間積分の初期化
  ! Initialization of time integration.
  !
  call timeset_init( cfgfile )
    
  ! 格子点情報の初期化
  ! Initialization of grid arrangement.
  !
  call gridset_init( cfgfile )

  ! 化学計算ルーチンの初期化
  ! Initialization of chemical routines.
  !
  call chemcalc_init()
  
  ! 基本場変数の初期化
  ! Initialization of basic state variables.
  !
  call basicset_init( cfgfile )
  
  ! I/O ファイル名の初期化
  ! Initialization of output file name. 
  !
  call fileset_init( cfgfile )

  ! 湿潤過程共有変数の初期化
  ! Initialization of common variables for moist process.
  !
  call moistset_init( )
  
  ! 積算値保管変数の初期化
  ! Initialization of monitor variables.
  !
  call StorePotTemp_init( )
  call StoreMixRt_init( )
  call StoreBuoy_init( )  
  call StoreStab_init( )  

  ! 内部変数の初期化
  ! Initialization of internal variables.
  !
  call ArareAlloc

  ! 初期値の代入 
  ! * ReStartFile が設定されている場合にはファイルを読み込む. 
  !   設定されていない場合にはデフォルトの基本場と擾乱場を作る. 
  !
  ! Initial value set up.
  ! * Read restartfile if it is specified. If not, make default basic
  !   state and disturbance.
  !
  call MessageNotify( "M", "main", "Initial value setup." )

  if (trim(InitFile) /= '') then    

    call MessageNotify( "M", "main", "Restart file is %c", c1=trim(Initfile) )

    call ReStartFile_Get( ReStartTime, xz_PotTempBl, xz_ExnerBl, pz_VelXBl, xr_VelZBl, xza_MixRtBl, xz_KmBl, xz_KhBl, xz_PotTempNl, xz_ExnerNl, pz_VelXNl, xr_VelZNl, xza_MixRtNl, xz_KmNl, xz_KhNl )
  else

    call MessageNotify( "W", "main", "Restart file is not specified." )

    call BasicEnv( )
    call DisturbEnv( cfgfile, xz_PotTempBl, xz_ExnerBl, pz_VelXBl, xr_VelZBl, xza_MixRtBl, xz_KmBl, xz_KhBl )
   
    call BoundaryXCyc_pz( pz_VelXBl )     ! (inout)
    call BoundaryZSym_pz( pz_VelXBl )     ! (inout)

    call BoundaryXCyc_xr( xr_VelZBl )     ! (inout)
    call BoundaryZAntiSym_xr( xr_VelZBl ) ! (inout)

    call BoundaryXCyc_xz( xz_PotTempBl )  ! (inout)
    call BoundaryZSym_xz( xz_PotTempBl )  ! (inout)

    call BoundaryXCyc_xza( xza_MixRtBl )  ! (inout)
    call BoundaryZSym_xza( xza_MixRtBl )  ! (inout)

    
    ! 時刻 $ t $ の変数値の初期値の設定
    ! * 1 ループ目だけは $ t $ の値を $ t-\Delta t$ の値と同じにする. 
    !   1 ステップ目はオイラー法で解く必要があるが, 1 ステップ目と
    !   それ以外のステップを別々にコーディングしたくない為
    !
    ! Set up initial value of time = "t" variables.
    !  
    xz_PotTempNl = xz_PotTempBl
    xz_ExnerNl   = xz_ExnerBl
    pz_VelXNl    = pz_VelXBl
    xr_VelZNl    = xr_VelZBl
    xza_MixRtNl  = xza_MixRtBl
    xz_KmNl      = xz_KmBl
    xz_KhNl      = xz_KhBl

  end if

  ! 数値摩擦係数の初期化
  ! Initialization of numerical friction coefficient.
  !
  call Damping_Init( cfgfile )      
  
  ! 数値拡散項の初期化
  ! Initialization of numerical diffusion term.
  !
  call NumDiffusion_Init( )          

  ! 乱流拡散項の初期化
  ! Initialization of turbulent diffusion term.
  !
  call Turbulence_Init( )            

  ! 暖かい雨のパラメタリゼーションの初期化 
  ! Initialization of warmrain parameterization.
  !
  call WarmRainPrm_Init( cfgfile )  

  ! 放射強制の初期化
  !  Initialization of radiative forcing.
  !
  call Radiation_Init( cfgfile )

  ! 湿潤気塊の浮力計算の初期化
  ! Initialization of moist buoyancy calculation.
  !
  call MoistBuoy_Init( ) 

  ! 圧力計算用係数行列の初期化 
  ! Initialization of coefficient matrix for exner function calculation.
  !
  call xz_Exner_Init( )              
       
  ! 時刻とループ回数の初期化
  ! Initialization of time integration.
  !
  NstepLFrog   = NstepLong 
  NstepEular   = NstepShort 
  DelTimeLFrog = DelTimeLong * 2.0d0 
  DelTimeEular = DelTimeShort

  ! 計算開始時刻と時間格子間隔の初期化
  ! * ReStartFile が設定されている場合, ファイルから読み込んだ値を指定.
  ! * ReStartFile が設定されてない場合
  !   * 開始時刻は 0.0
  !   * 1 ステップ目の時間格子間隔を陽に指定
  !
  ! Setup restart time and time interval. 
  ! * Read restartfile if it is specified.
  ! * If not, 
  !   * "t" is set to be 0.
  !   * Time intervals for 1st step are specified explicitly.
  !
  if ( trim(InitFile) /= '') then    
    Time = ReStartTime(2)               
  else
    Time = 0.0d0                    
    NstepEular(1)   = NstepShort /2 
    DelTimeLFrog(1) = DelTimeLong   
  end if

  ! ヒストリーファイルへの出力
  ! Out put to history file.
  !
  call HistoryFile_Open( )

  if ( trim(InitFile) /= '') then    
    call HistoryFile_Output( ReStartTime(2), xz_PotTempNl, xz_ExnerNl, pz_VelXNl, xr_VelZNl, xza_MixRtNl, xz_KmNl, xz_KhNl )
  end if

  if ( Time == 0 ) then
    call HistoryFile_Output( Time, xz_PotTempNl, xz_ExnerNl, pz_VelXNl, xr_VelZNl, xza_MixRtNl, xz_KmNl, xz_KhNl )
  end if
  
  ! 音波に対する CFL 条件のチェック
  ! CFL condtion check for sound wave.
  !
  call CFLCheckTimeShort( xz_VelSoundBasicZ )


  ! 時間積分 time integration 
  !
  do t1 = 1, NstepLFrog / NstepDisp
    do t2 = 1, NstepDisp

      ! 時刻の設定 
      ! Time setting.
      !
      Time = Time + DelTimeLong
      t = (t1 - 1) * NstepDisp + t2

      ! 渦拡散係数の移流拡散
      ! Advection and diffusion of turbulent diffusion coefficient.
      !
      xz_KmAl = xz_KmBl + DelTimeLFrog(t) * ( + xz_AdvKm(xz_KmNl, pz_VelXNl, xr_VelZNl) + xz_BuoyMoistKm(xz_PotTempBl, xz_ExnerBl, xza_MixRtBl) + xz_ShearKm(xz_KmBl, pz_VelXBl, xr_VelZBl) + xz_NumDiffKm(xz_KmBl) + xz_DispKm(xz_KmBl) )
      
      ! 値の上限下限の設定
      ! * 値は正になることを保証する
      ! * 値の上限は 800 とする. 中島健介(1994, 学位論文)参照
      !
      ! Upper and lower bound value are specified.
      !
      xz_KmAl = max( 0.0d0, min( xz_KmAl, 800.0d0 ) )
      

      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xz( xz_KmAl )  ! (inout)
      call BoundaryZSym_xz( xz_KmAl )  ! (inout)

      ! スカラーに対する渦拡散係数の計算 
      ! Specify turbulent diffusion coefficient for scalar variables.
      !
      xz_KhAl = 3.0d0 * xz_KmAl
      
      ! 温位の移流拡散の計算 
      ! Advection and diffusion of potential temperature.
      !
      xz_PotTempAl = xz_PotTempBl + DelTimeLFrog(t) * ( + xz_AdvScalar( xz_PotTempNl,     pz_VelXNl, xr_VelZNl) + xz_AdvScalar( xz_PotTempBasicZ, pz_VelXNl, xr_VelZNl) + xz_TurbScalar(xz_PotTempBl,     xz_KhBl) + xz_TurbScalar(xz_PotTempBasicZ, xz_KhBl) + xz_NumDiffScalar(xz_PotTempBl) + xz_DispHeat( xz_KmBl ) )

      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xz( xz_PotTempAl ) ! (inout)
      call BoundaryZSym_xz( xz_PotTempAl ) ! (inout)
      
      ! 凝縮成分混合比の移流拡散 
      ! Advection and diffusion of vapor, cloud and rain mixing ratios.
      !
      xza_MixRtAl = xza_MixRtBl + DelTimeLFrog(t) * ( + xza_AdvScalar(xza_MixRtNl,     pz_VelXNl, xr_VelZNl) + xza_AdvScalar(xza_MixRtBasicZ, pz_VelXNl, xr_VelZNl) + xza_TurbScalar(xza_MixRtBl,    xz_KhBl) + xza_TurbScalar(xza_MixRtBasicZ,xz_KhBl) + xza_NumDiffScalar(xza_MixRtBl) + xza_FallRain(xza_MixRtBl) + xza_MixRtFluxDiff(xza_MixRtNl) )

      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xza( xza_MixRtAl ) ! (inout)
      call BoundaryZSym_xza( xza_MixRtAl ) ! (inout)

      ! 移流によって負になった部分を埋める
      ! Negative values due to advection are corrected.
      !
      xza_MixRtWork = xza_MixRtAl
      call FillNegative1(xz_ExnerAl, xz_PotTempAl, xza_MixRtAl) 
      
      ! 埋めた/削った量を保管
      ! Correction value is stored.
      !
      call StoreMixRtFill1( (xza_MixRtAl - xza_MixRtWork) / DelTimeLFrog(t) )    
      
      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xza( xza_MixRtAl ) ! (inout)
      call BoundaryZSym_xza( xza_MixRtAl ) ! (inout)

      ! 暖かい雨のパラメタリゼーション.
      ! * 雲<-->雨 の変換を行う.
      !
      ! Warm rain parameterization.
      ! * Conversion from cloud to rain.

      ! これまでの値を作業配列に保管
      ! Previous values are stored to work area.
      !
      xza_MixRtWork = xza_MixRtAl
      
      ! 雨への変化量を計算
      ! Conversion values are calculated.
      !
      xza_MixRtAl = xza_MixRtWork + xza_Cloud2Rain( xza_MixRtAl, DelTimeLFrog(t) )
      
      ! 雲から雨への変換量を保管
      ! Conversion values are sotred.
      !
      call StoreMixRtCond( (xza_MixRtAl - xza_MixRtWork) / DelTimeLFrog(t) )
      
      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xza( xza_MixRtAl ) ! (inout)
      call BoundaryZSym_xza( xza_MixRtAl ) ! (inout)
      
      ! 湿潤飽和調節
      ! * 蒸気<-->雲の変換を行う.
      !
      ! Moist adjustment.
      ! * Conversion from vapor to cloud.

      ! これまでの値を作業配列に保管
      ! Previous values are stored to work area.
      !
      xz_PotTempWork = xz_PotTempAl
      xza_MixRtWork  = xza_MixRtAl
      
      ! 湿潤調節法を適用
      ! Moist adjustment is applied.
      !
      call MoistAdjustSvapPress( xz_ExnerNl, xz_PotTempAl, xza_MixRtAl )
      
      ! 湿潤調節法による温位と混合比の変化量を保管
      ! Adjustment values are stored.
      !
      call StorePotTempCond( (xz_PotTempAl - xz_PotTempWork) / DelTimeLFrog(t) )
      call StoreMixRtCond( (xza_MixRtAl - xza_MixRtWork) / DelTimeLFrog(t) )
      
      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xza( xza_MixRtAl ) ! (inout)
      call BoundaryZSym_xza( xza_MixRtAl ) ! (inout)

      ! 暖かい雨のパラメタリゼーション.
      ! * 蒸気<-->雨 の変換を行う
      !
      ! Warm rain parameterization.
      ! * Conversion from rain to vapor.

      ! これまでの値を作業配列に保管
      ! Previous values are stored to work area.
      !
      xz_PotTempWork = xz_PotTempAl
      xza_MixRtWork = xza_MixRtAl
      
      ! 雨から蒸気への混合比変化を求める
      ! * 温位の計算において, 混合比変化が必要となるため, 
      !   混合比変化を 1 つの配列として用意する.
      !
      ! Conversion values are calculated.
      !
      xza_DelMixRt = 0.0d0
      xza_DelMixRt = ( + xza_Rain2Gas( xz_ExnerNl, xz_PotTempAl, xza_MixRtAl, DelTimeLFrog(t) ) )    
      
      ! 温位の計算. 雨から蒸気への変換に伴う潜熱・反応熱を追加.
      !
      !
      xz_PotTempAl = xz_PotTempWork + ( xz_Rain2GasHeat( xz_PotTempAl, xz_ExnerNl, xza_DelMixRt ) )
      
      ! 混合比の計算. 雨から蒸気への変換分を追加
      !
      !
      xza_MixRtAl   = xza_MixRtWork + xza_DelMixRt
      
      ! 雨から蒸気の値の保管
      !
      !
      call StorePotTempCond( (xz_PotTempAl - xz_PotTempWork) / DelTimeLFrog(t) ) 
      call StoreMixRtCond( xza_DelMixRt / DelTimeLFrog(t) ) 
 
      ! 境界条件 Boundary condition
      !
      call BoundaryXCyc_xz( xz_PotTempAl ) ! (inout)
      call BoundaryZSym_xz( xz_PotTempAl ) ! (inout)
      call BoundaryXCyc_xza( xza_MixRtAl ) ! (inout)
      call BoundaryZSym_xza( xza_MixRtAl ) ! (inout)
      
      ! 速度の移流拡散.
      ! Advection and diffusion of velocity components.
      !
      pz_AccelVelXNl = + pz_AdvVelX(pz_VelXNl, xr_VelZNl) + pz_TurbVelX(xz_KmBl,   pz_VelXBl, xr_VelZBl) + pz_NumDiffVelX(pz_VelXBl)

     
      xr_AccelVelZNl = + xr_AdvVelZ(xr_VelZNl, pz_VelXNl) + xr_Buoy(xz_PotTempNl) + xr_BuoyMolWt(xza_MixRtNl) + xr_BuoyDrag(xza_MixRtNl) + xr_TurbVelZ(xz_KmBl,   pz_VelXBl, xr_VelZBl) + xr_NumDiffVelZ(xr_VelZBl)                        


      ! 短い時間ステップの初期値作成.
      ! Initial values set up for time integration with short time step.
      !
      pz_VelXNs  = pz_VelXBl
      xr_VelZNs  = xr_VelZBl
      xz_ExnerNs = xz_ExnerBl
      
      ! 短い時間ステップの時間積分. オイラー法を利用.
      ! Time integration with short time step.
      !
      Eular: do tau = 1, NstepEular(t)
        
        ! 速度 u の計算.
        ! Time integration horizontal velocity (u).
        !
        pz_VelXAs = pz_VelXNs + DelTimeEular * ( - pz_GradPi(xz_ExnerNs, pz_VelXNs, xr_VelZNs) + pz_AccelVelXNl )
        
        ! 境界条件 Boundary condition
        !
        call BoundaryXCyc_pz( pz_VelXAs ) ! (inout)
        call BoundaryZSym_pz( pz_VelXAs ) ! (inout)
        
        ! エクスナー関数の計算.
        ! Time integration exner function.
        !
        xz_ExnerAs = xz_Exner( xr_AccelVelZNl, pz_VelXNs, pz_VelXAs, xr_VelZNs, xz_ExnerNs)
        
        ! 境界条件 Boundary condition
        !
        call BoundaryXCyc_xz( xz_ExnerAs ) ! (inout)
        call BoundaryZSym_xz( xz_ExnerAs ) ! (inout)
        
        ! 速度 w の計算
        ! Time integration vertical velocity.
        !
        xr_VelZAs = xr_VelZNs + DelTimeEular * ( - xr_GradPi(xz_ExnerAs,xz_ExnerNs,pz_VelXNs,xr_VelZNs) + xr_AccelVelZNl )
        
        ! 境界条件 Boundary condition
        !
        call BoundaryXCyc_xr( xr_VelZAs ) ! (iuout)
        call BoundaryZAntiSym_xr( xr_VelZAs ) ! (inout)
        
        ! 短い時間ステップのループを回すための処置
        ! Renew prognostic variables for next short time step integration.
        !
        xz_ExnerNs  = xz_ExnerAs
        pz_VelXNs   = pz_VelXAs
        xr_VelZNs   = xr_VelZAs
        
      end do Eular
      
      ! 最終的な短い時間ステップでの値を長い時間ステップでの値とみなす
      ! Renew prognostic variables for next long time step integration.
      !
      xz_ExnerAl  = xz_ExnerAs
      pz_VelXAl   = pz_VelXAs
      xr_VelZAl   = xr_VelZAs
      
      ! 時間フィルタ. 
      ! Time filter. 
      !
      call AsselinFilter_xz( xz_ExnerAl, xz_ExnerNl, xz_ExnerBl )         
      call AsselinFilter_pz( pz_VelXAl, pz_VelXNl, pz_VelXBl )
      call AsselinFilter_xr( xr_VelZAl, xr_VelZNl, xr_VelZBl )
      call AsselinFilter_xz( xz_PotTempAl, xz_PotTempNl, xz_PotTempBl )
      call AsselinFilter_xz( xz_KmAl, xz_KmNl, xz_KmBl )
      call AsselinFilter_xza( xza_MixRtAl, xza_MixRtNl, xza_MixRtBl )
    
      ! スポンジ層.
      ! Numerical dumping.
      !
      call DampSponge_pz( pz_VelXAl, pz_VelXBl, DelTimeLFrog(t) )
      call DampSponge_xr( xr_VelZAl, xr_VelZBl, DelTimeLFrog(t) )

      ! 安定度の計算.
      ! Calculation static stability.
      !
      call ECCM_Stab( xz_PotTempAl, xz_ExnerAl, xza_MixRtAl )
      
      ! 長い時間ステップのループを回すための処置.
      ! Renew prognostic variables for next long time step integration.
      !
      xz_PotTempBl = xz_PotTempNl
      xza_MixRtBl  = xza_MixRtNl
      xz_ExnerBl   = xz_ExnerNl
      pz_VelXBl    = pz_VelXNl
      xr_VelZBl    = xr_VelZNl
      xz_KmBl      = xz_KmNl
      xz_KhBl      = xz_KhNl
      
      xz_PotTempNl = xz_PotTempAl
      xza_MixRtNl  = xza_MixRtAl
      xz_ExnerNl   = xz_ExnerAl
      pz_VelXNl    = pz_VelXAl
      xr_VelZNl    = xr_VelZAl
      xz_KmNl      = xz_KmAl
      xz_KhNl      = xz_KhAl
      
    end do
    
    ! ヒストリーファイルへの出力.
    ! Out put to history file.
    !
    call MessageNotify( "M", "main", "Time = %f", d=(/Time/) )

    ! 移流に対する CFL 条件のチェック 
    ! CFL condtion check for advection
    !
    call CFLCheckTimeLongVelX( pz_VelXNl )
    call CFLCheckTimeLongVelZ( xr_VelZNl )
    
    ! ヒストリファイル出力.
    ! Out put to history file.
    !
    call HistoryFile_Output( Time, xz_PotTempNl, xz_ExnerNl, pz_VelXNl, xr_VelZNl, xza_MixRtNl, xz_KmNl, xz_KhNl )
    
    ! 積算値のクリア.
    ! Clear monitor variables.
    !
    call StorePotTempClean
    call StoreMixRtClean
    call StoreBuoyClean
    call StoreStabClean
    
  end do
  
  ! 出力ファイルのクローズ
  ! Close out put files.
  !
  call HistoryFile_Close

  ! リスタートファイルの作成
  ! Make restartfile.
  !
  call ReStartFile_Open( )
  call ReStartFile_OutPut( Time - DelTimeLong, xz_PotTempBl, xz_ExnerBl, pz_VelXBl, xr_VelZBl, xza_MixRtBl, xz_KmBl, xz_KhBl )
  call ReStartFile_OutPut( Time, xz_PotTempNl, xz_ExnerNl, pz_VelXNl, xr_VelZNl, xza_MixRtNl, xz_KmNl, xz_KhNl )
  call ReStartFile_Close
  
contains
!-----------------------------------------------------------------------
  subroutine ArareAlloc
    !
    !初期化として, 配列を定義し, 値としてゼロを代入する.
    !

    !暗黙の型宣言禁止
    implicit none

    !配列割り当て
    allocate( pz_VelXBl(DimXMin:DimXMax, DimZMin:DimZMax), pz_VelXNl(DimXMin:DimXMax, DimZMin:DimZMax), pz_VelXAl(DimXMin:DimXMax, DimZMin:DimZMax), pz_VelXNs(DimXMin:DimXMax, DimZMin:DimZMax), pz_VelXAs(DimXMin:DimXMax, DimZMin:DimZMax), xr_VelZBl(DimXMin:DimXMax, DimZMin:DimZMax), xr_VelZNl(DimXMin:DimXMax, DimZMin:DimZMax), xr_VelZAl(DimXMin:DimXMax, DimZMin:DimZMax), xr_VelZNs(DimXMin:DimXMax, DimZMin:DimZMax), xr_VelZAs(DimXMin:DimXMax, DimZMin:DimZMax), xz_ExnerBl(DimXMin:DimXMax, DimZMin:DimZMax), xz_ExnerNl(DimXMin:DimXMax, DimZMin:DimZMax), xz_ExnerAl(DimXMin:DimXMax, DimZMin:DimZMax), xz_ExnerNs(DimXMin:DimXMax, DimZMin:DimZMax), xz_ExnerAs(DimXMin:DimXMax, DimZMin:DimZMax), xz_PotTempWork(DimXMin:DimXMax, DimZMin:DimZMax), xz_PotTempBl(DimXMin:DimXMax, DimZMin:DimZMax), xz_PotTempNl(DimXMin:DimXMax, DimZMin:DimZMax), xz_PotTempAl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KmBl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KmNl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KmAl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KhBl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KhNl(DimXMin:DimXMax, DimZMin:DimZMax), xz_KhAl(DimXMin:DimXMax, DimZMin:DimZMax), xza_MixRtWork(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum), xza_MixRtBl(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum), xza_MixRtNl(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum), xza_MixRtAl(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum), pz_AccelVelXNl(DimXMin:DimXMax, DimZMin:DimZMax), xr_AccelVelZNl(DimXMin:DimXMax, DimZMin:DimZMax), xza_DelMixRt(DimXMin:DimXMax, DimZMin:DimZMax, SpcNum), DelTimeLFrog(NstepLong), NStepEular(NStepLong) ) 

    pz_VelXNs = 0.0d0
         pz_VelXAs = 0.0d0    
    xr_VelZNs = 0.0d0
         xr_VelZAs = 0.0d0
    xz_ExnerNs = 0.0d0
        xz_ExnerAs = 0.0d0

    pz_VelXBl = 0.0d0
         pz_VelXNl = 0.0d0
         pz_VelXAl = 0.0d0
    xr_VelZBl = 0.0d0
         xr_VelZNl = 0.0d0
         xr_VelZAl = 0.0d0
    xz_ExnerBl = 0.0d0
        xz_ExnerNl = 0.0d0
        xz_ExnerAl = 0.0d0
    xz_KmBl = 0.0d0
           xz_KmNl = 0.0d0
           xz_KmAl = 0.0d0
    xz_KhBl = 0.0d0
           xz_KhNl = 0.0d0
           xz_KhAl = 0.0d0
    xz_PotTempBl = 0.0d0
      xz_PotTempNl = 0.0d0
      xz_PotTempAl = 0.0d0
    xza_MixRtBl = 0.0d0
        xza_MixRtNl = 0.0d0
        xza_MixRtAl = 0.0d0

    pz_AccelVelXNl = 0.0d0
    xr_AccelVelZNl = 0.0d0

    xza_DelMixRt = 0.0d0

    DelTimeEular = 0.0d0
    DelTimeLFrog = 0.0d0
     
    NStepEular = 0.0d0
    NstepLFrog = 0.0d0
    
  end subroutine ArareAlloc
!-----------------------------------------------------------------------
end program arare

[Validate]