初期 or リスタート用の場の情報を netCDF ファイルに出力するためのルーチン
速度を評価する格子位置と, 軸として入力してある座標値は整合的でないことに注意
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
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