tem_simControl_out Subroutine

public subroutine tem_simControl_out(me, conf, key)

Write sim control settings to a configuration script.

Arguments

Type IntentOptional Attributes Name
type(tem_simControl_type), intent(inout) :: me

The simulation control settings to write to a Lua table.
type(aot_out_type) :: conf

Handle for the Lua script to write to.
character(len=*), optional :: key

Name for the simulation control table. Default is sim_control.

Calls

proc~~tem_simcontrol_out~~CallsGraph proc~tem_simcontrol_out tem_simControl_out aot_out_close_table aot_out_close_table proc~tem_simcontrol_out->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_simcontrol_out->aot_out_open_table aot_out_val aot_out_val proc~tem_simcontrol_out->aot_out_val proc~tem_abortcriteria_out tem_abortCriteria_out proc~tem_simcontrol_out->proc~tem_abortcriteria_out proc~tem_time_out tem_time_out proc~tem_simcontrol_out->proc~tem_time_out proc~tem_timecontrol_out tem_timeControl_out proc~tem_simcontrol_out->proc~tem_timecontrol_out proc~tem_abortcriteria_out->aot_out_close_table proc~tem_abortcriteria_out->aot_out_open_table proc~tem_abortcriteria_out->aot_out_val proc~tem_time_out->aot_out_close_table proc~tem_time_out->aot_out_open_table proc~tem_time_out->aot_out_val proc~tem_timecontrol_out->aot_out_close_table proc~tem_timecontrol_out->aot_out_open_table proc~tem_timecontrol_out->aot_out_val proc~tem_timecontrol_out->proc~tem_time_out

Source Code

  subroutine tem_simControl_out(me, conf, key)
    ! -------------------------------------------------------------------- !
    !> The simulation control settings to write to a Lua table.
    type(tem_simControl_type), intent(inout) :: me

    !> Handle for the Lua script to write to.
    type(aot_out_type) :: conf

    !> Name for the simulation control table. Default is sim_control.
    character(len=*), optional :: key
    ! -------------------------------------------------------------------- !
    character(len=labelLen) :: loc_key
    ! -------------------------------------------------------------------- !

    loc_key = 'sim_control'
    if (present(key)) loc_key = key

    call aot_out_open_table( put_conf = conf,   &
      &                      tname    = loc_key )

    call tem_time_out( me   = me%now, &
      &                conf = conf    )

    call tem_timeControl_out( me   = me%timeControl, &
      &                       conf = conf            )

    call tem_abortCriteria_out( me   = me%abortCriteria, &
      &                         conf = conf              )

    call aot_out_val( put_conf = conf,           &
      &               val      = me%delay_check, &
      &               vname    = 'delay_check'   )

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_simControl_out