tem_time_out Subroutine

public subroutine tem_time_out(me, conf, key)

Write the time into a Lua table

Entries, which are set to the maximal represantable values (meaning never), are ignored and not written.

Arguments

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

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

Output handle for the script to write to.
character(len=*), intent(in), optional :: key

Name for the tabel to write this time description to.

Calls

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

Called by

proc~~tem_time_out~~CalledByGraph proc~tem_time_out tem_time_out proc~tem_timecontrol_out tem_timeControl_out proc~tem_timecontrol_out->proc~tem_time_out proc~tem_restart_writeheader tem_restart_writeHeader proc~tem_restart_writeheader->proc~tem_time_out proc~tem_simcontrol_out tem_simControl_out proc~tem_simcontrol_out->proc~tem_time_out proc~tem_simcontrol_out->proc~tem_timecontrol_out proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->proc~tem_timecontrol_out proc~tem_restart_openwrite tem_restart_openWrite proc~tem_restart_openwrite->proc~tem_restart_writeheader proc~tem_restart_closewrite tem_restart_closeWrite proc~tem_restart_closewrite->proc~tem_restart_writeheader proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->proc~tem_timecontrol_out proc~tem_convergence_out_vector tem_convergence_out_vector proc~tem_convergence_out_vector->proc~tem_convergence_out_single 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_asciispatial_init hvs_asciiSpatial_init proc~hvs_asciispatial_init->proc~hvs_ascii_write_header proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~tem_restart_openwrite proc~hvs_output_close hvs_output_close proc~hvs_output_close->proc~tem_restart_closewrite proc~tem_convergence_dump_single tem_convergence_dump_single proc~tem_convergence_dump_single->proc~tem_convergence_out_single proc~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header 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 proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open proc~tem_tracker->proc~hvs_output_close proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~hvs_asciispatial_init proc~hvs_output_init->proc~hvs_ascii_init

Contents

Source Code

tem_time_out

Source Code

  subroutine tem_time_out(me, conf, key)
    ! -------------------------------------------------------------------- !
    !> The time descritpion to write out as Lua table.
    type(tem_time_type), intent(in) :: me

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

    !> Name for the tabel to write this time description to.
    character(len=*), intent(in), optional :: key
    ! -------------------------------------------------------------------- !
    character(len=labelLen) :: loc_key
    ! -------------------------------------------------------------------- !
    if (present(key)) then
      loc_key = trim(key)
    else
      loc_key = 'time'
    end if

    call aot_out_open_table( put_conf = conf, tname = loc_key )
    if (me%sim < huge(me%sim)) then
      call aot_out_val( put_conf = conf,   &
        &               val      = me%sim, &
        &               vname    = 'sim'   )
    end if
    if (me%iter < huge(me%iter)) then
      call aot_out_val( put_conf = conf,    &
        &               val      = me%iter, &
        &               vname    = 'iter'   )
    end if
    if (me%clock < huge(me%clock)) then
      call aot_out_val( put_conf = conf,     &
        &               val      = me%clock, &
        &               vname    = 'clock'   )
    end if
    call aot_out_close_table( put_conf = conf )

  end subroutine tem_time_out