tem_abortCriteria_out Subroutine

public subroutine tem_abortCriteria_out(me, conf, key)

Saves the abortCriteria to a given configuration.

For further information, see TEM_abortCriteria_load()

Arguments

Type IntentOptional Attributes Name
type(tem_abortCriteria_type), intent(in) :: me

The abortCriteria to write out as a Lua table.
type(aot_out_type), intent(inout) :: conf

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

A name for the table to write the abortCriteria to. Default: 'abort_criteria'.

Calls

proc~~tem_abortcriteria_out~~CallsGraph proc~tem_abortcriteria_out tem_abortCriteria_out proc~aot_out_open_table~2 aot_out_open_table proc~tem_abortcriteria_out->proc~aot_out_open_table~2 proc~aot_out_close_table~2 aot_out_close_table proc~tem_abortcriteria_out->proc~aot_out_close_table~2 proc~aot_out_val aot_out_val proc~tem_abortcriteria_out->proc~aot_out_val

Called by

proc~~tem_abortcriteria_out~~CalledByGraph proc~tem_abortcriteria_out tem_abortCriteria_out proc~tem_simcontrol_out tem_simControl_out proc~tem_simcontrol_out->proc~tem_abortcriteria_out

Contents

Source Code

tem_abortCriteria_out

Source Code

  subroutine tem_abortCriteria_out(me, conf, key)
    ! -------------------------------------------------------------------- !
    !> The abortCriteria to write out as a Lua table.
    type(tem_abortCriteria_type), intent(in) :: me

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

    !> A name for the table to write the abortCriteria to.
    !! Default: 'abort_criteria'.
    character(len=*), optional :: key
    ! -------------------------------------------------------------------- !
    character(len=labelLen) :: loc_key
    ! -------------------------------------------------------------------- !

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

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

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

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

    call aot_out_close_table(put_conf = conf)

  end subroutine tem_abortCriteria_out