tem_logging_unit_primary Function

private function tem_logging_unit_primary() result(unit)

Return the unit provided by the primary log

Arguments

None

Return Value integer

Source Code

  function tem_logging_unit_primary() result(unit)
    ! ---------------------------------------------------------------------------
    !>
    integer :: unit
    ! ---------------------------------------------------------------------------

    unit = primary%funit(0)

  end function tem_logging_unit_primary