Program MakeReStartFile

Overview

初期 or リスタート用の場の情報を netCDF ファイルに出力するためのルーチン

Error Handling

Known Bugs

Note

速度を評価する格子位置と, 軸として入力してある座標値は整合的でないことに注意

Future Plans

Dependency

use gt4_history
use dc_trace, only: BeginSub, EndSub
use gridset,  only: s_X, s_Z, DimXMin, DimXMax, DimZMin, DimZMax
use nameset,  only: exptitle, expsrc, expinst
use debugset, only: DebugOn
use basicset, only: ss_CpBasicZ, ss_DensBasicZ, ss_ExnerBasicZ, &
     &                  ss_PotTempBasicZ, ss_VelSoundBasicZ 

Input

real(8), intent(in)  :: Time(2)
real(8), intent(in)  :: fs_VelX_nl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: sf_VelZ_nl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Exner_nl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_PotTemp_nl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Km_nl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Kh_nl(DimXMin:DimXMax, DimZMin:DimZMax)

real(8), intent(in)  :: fs_VelX_bl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: sf_VelZ_bl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Exner_bl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_PotTemp_bl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Km_bl(DimXMin:DimXMax, DimZMin:DimZMax)
real(8), intent(in)  :: ss_Kh_bl(DimXMin:DimXMax, DimZMin:DimZMax)

character(*), intent(in) :: File