SimulationCore2/Simulation/logging.i90

# 1 "/home/admin/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