Class dycore_out_mod
In: src/run/dycore_out.f90

Methods

Included Modules

dycore_type_mod io_gt4_out_mod dc_trace

Public Instance methods

Dims :type(DYCORE_DIMS), intent(in)
: end begin
 Input

 次元データ全種

((< io_gt4_out_mod >)) の初期化と、次元の設定および 時間発展する量の出力の初期化を行なう。

[Source]

  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

[Validate]