tem_logging_isActive_primary Function

private function tem_logging_isActive_primary(level) result(isActive)

Check if the primary logger is active for the given level.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: level

Return Value logical


Called by

proc~~tem_logging_isactive_primary~~CalledByGraph proc~tem_logging_isactive_primary tem_logging_isActive_primary interface~tem_logging_isactive tem_logging_isActive interface~tem_logging_isactive->proc~tem_logging_isactive_primary proc~build_levelelements build_levelElements proc~build_levelelements->interface~tem_logging_isactive proc~communicate_elements communicate_elements proc~communicate_elements->interface~tem_logging_isactive proc~redefine_halos redefine_halos proc~communicate_elements->proc~redefine_halos proc~redefine_halos->interface~tem_logging_isactive proc~tem_init_elemlevels tem_init_elemLevels proc~tem_init_elemlevels->interface~tem_logging_isactive proc~tem_reportstatus tem_reportStatus proc~tem_reportstatus->interface~tem_logging_isactive proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_init_elemlevels proc~tem_find_allelements tem_find_allElements proc~tem_create_leveldesc->proc~tem_find_allelements proc~tem_find_allelements->proc~build_levelelements proc~tem_find_allelements->proc~communicate_elements proc~tem_dimbydim_construction tem_dimByDim_construction proc~tem_dimbydim_construction->proc~tem_create_leveldesc

Source Code

  function tem_logging_isActive_primary(level) result(isActive)
    ! ---------------------------------------------------------------------------
    !>
    integer, intent(in) :: level
    !>
    logical :: isActive
    ! ---------------------------------------------------------------------------

    isActive = (primary%participating .and. (primary%log_level >= level))

  end function tem_logging_isActive_primary