subroutine dycore_out_init(Dims)
!=end
implicit none
!=begin
!==== Input
!
type(DYCORE_DIMS), intent(in):: Dims ! 次元データ全種
!=end
!----- 作業用内部変数 -----
character(len = *), parameter:: subname = "dycore_out_init"
continue
!----------------------------------------------------------------
! Check Initialization
!----------------------------------------------------------------
call BeginSub(subname)
if (dycore_out_initialized) then
call EndSub( subname, '%c is already called.', c1=trim(subname) )
return
else
dycore_out_initialized = .true.
endif
!----------------------------------------------------------------
! Version identifier
!----------------------------------------------------------------
call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname))
!-----------------------------------------------------------------
! io_gt4_out_mod の初期化
!-----------------------------------------------------------------
call io_gt4_out_init ! データ出力の初期設定
!-----------------------------------------------------------------
! 出力用の軸データ設定
!-----------------------------------------------------------------
call io_gt4_out_SetDims(Dims%x_Lon) ! 経度座標重みデータ取得
call io_gt4_out_SetDims(Dims%y_Lat) ! 緯度座標重みデータ取得
call io_gt4_out_SetDims(Dims%z_Sigma) ! 整数σレベル座標データ取得
call io_gt4_out_SetDims(Dims%r_Sigma) ! 半整数σレベル座標データ取得
!-----------------------------------------------------------------
! 出力用の変数データ設定
!-----------------------------------------------------------------
call io_gt4_out_SetVars('VelLon')
call io_gt4_out_SetVars('VelLat')
call io_gt4_out_SetVars('Vor')
call io_gt4_out_SetVars('Div')
call io_gt4_out_SetVars('Temp')
call io_gt4_out_SetVars('QVap')
call io_gt4_out_SetVars('Ps')
call EndSub(subname)
end subroutine dycore_out_init