tem_timeControl_out Subroutine

public subroutine tem_timeControl_out(me, conf, key)

Write a time control definition to a Lua script.

Arguments

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

Time control definition to write to a Lua config.
type(aot_out_type) :: conf

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

Name of the time control table. Default: 'time_control'

Calls

proc~~tem_timecontrol_out~~CallsGraph proc~tem_timecontrol_out tem_timeControl_out proc~aot_out_open_table aot_out_open_table proc~tem_timecontrol_out->proc~aot_out_open_table proc~tem_time_out tem_time_out proc~tem_timecontrol_out->proc~tem_time_out proc~aot_out_val aot_out_val proc~tem_timecontrol_out->proc~aot_out_val proc~aot_out_close_table aot_out_close_table proc~tem_timecontrol_out->proc~aot_out_close_table proc~tem_time_out->proc~aot_out_open_table proc~tem_time_out->proc~aot_out_val proc~tem_time_out->proc~aot_out_close_table

Called by

proc~~tem_timecontrol_out~~CalledByGraph proc~tem_timecontrol_out tem_timeControl_out proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->proc~tem_timecontrol_out proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->proc~tem_timecontrol_out proc~tem_simcontrol_out tem_simControl_out proc~tem_simcontrol_out->proc~tem_timecontrol_out proc~tem_convergence_out_vector tem_convergence_out_vector proc~tem_convergence_out_vector->proc~tem_convergence_out_single proc~hvs_asciispatial_init hvs_asciiSpatial_init proc~hvs_asciispatial_init->proc~hvs_ascii_write_header interface~tem_convergence_out tem_convergence_out interface~tem_convergence_out->proc~tem_convergence_out_single interface~tem_convergence_out->proc~tem_convergence_out_vector proc~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header proc~tem_convergence_dump_single tem_convergence_dump_single proc~tem_convergence_dump_single->proc~tem_convergence_out_single proc~tem_convergence_dump_vector tem_convergence_dump_vector proc~tem_convergence_dump_vector->proc~tem_convergence_out_vector interface~tem_convergence_dump tem_convergence_dump interface~tem_convergence_dump->proc~tem_convergence_dump_single interface~tem_convergence_dump->proc~tem_convergence_dump_vector proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~hvs_asciispatial_init proc~hvs_output_init->proc~hvs_ascii_init proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Contents

Source Code

tem_timeControl_out

Source Code

  subroutine tem_timeControl_out(me, conf, key)
    ! -------------------------------------------------------------------- !
    !> Time control definition to write to a Lua config.
    type(tem_timeControl_type), intent(in) :: me

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

    !> Name of the time control table. Default: 'time_control'
    character(len=*), intent(in), optional :: key
    ! -------------------------------------------------------------------- !
    character(len=labelLen) :: localKey
    ! -------------------------------------------------------------------- !

    if (present(key)) then
      localKey = key
    else
      localKey = 'time_control'
    endif

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

    call tem_time_out(me     = me%min, &
      &               conf   = conf,   &
      &               key    = 'min'   )

    call tem_time_out(me     = me%max, &
      &               conf   = conf,   &
      &               key    = 'max'   )

    call tem_time_out(me     = me%interval, &
      &               conf   = conf,        &
      &               key    = 'interval'   )

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

    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_timeControl_out