tem_log_for Subroutine

private subroutine tem_log_for(me, level, msg)

Log a message in the given logger.

Arguments

Type IntentOptional Attributes Name
type(tem_logging_type), intent(in) :: me
integer, intent(in) :: level
character(len=*), intent(in) :: msg

Called by

proc~~tem_log_for~~CalledByGraph proc~tem_log_for tem_log_for interface~tem_log tem_log interface~tem_log->proc~tem_log_for proc~tem_shape_initbylevels tem_shape_initByLevels proc~tem_shape_initbylevels->interface~tem_log proc~tem_shape_load_level tem_shape_load_level proc~tem_shape_load_level->interface~tem_log proc~tem_load_shape_single tem_load_shape_single proc~tem_load_shape_single->proc~tem_shape_load_level proc~tem_shape2subtree tem_shape2subTree proc~tem_shape2subtree->proc~tem_shape_initbylevels interface~tem_load_shape tem_load_shape interface~tem_load_shape->proc~tem_load_shape_single proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->proc~tem_shape2subtree proc~tem_load_shapes tem_load_shapes proc~tem_load_shapes->proc~tem_load_shape_single

Source Code

  subroutine tem_log_for( me, level, msg )
    ! ---------------------------------------------------------------------------
    !>
    type(tem_logging_type), intent(in) :: me
    !>
    integer, intent(in) :: level
    !>
    character(len=*), intent(in) :: msg
    ! ---------------------------------------------------------------------------

    write(me%funit(level),'(a)') msg

  end subroutine tem_log_for