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.

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