SimulationCore2/Simulation/logging.f90

module logging
    integer::log_level=0
    contains
    subroutine logg(level,message)
        integer::level
        character(len=*)::message

        if(log_level>=level) then
            print *,message
        endif
    end subroutine
end module