tem_log_primary Subroutine

private subroutine tem_log_primary(level, msg)

Log a message in the primary logger.

Arguments

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

Called by

proc~~tem_log_primary~~CalledByGraph proc~tem_log_primary tem_log_primary interface~tem_log tem_log interface~tem_log->proc~tem_log_primary 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_primary( level, msg )
    ! ---------------------------------------------------------------------------
    !>
    integer, intent(in) :: level
    !>
    character(len=*), intent(in) :: msg
    ! ---------------------------------------------------------------------------

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

  end subroutine tem_log_primary