log_debug Subroutine

   subroutine log_debug(msg, module, procedure)
      character(len=*), intent(in)  :: msg
      !! Log message to print
      character(len=*), optional, intent(in)  :: module
      !! The name of the module in which the call happens
      character(len=*), optional, intent(in)  :: procedure
      !! The name of the procedure in which the call happens
      if (logger_is_active) then
         call logger%log_debug(msg, module=module, procedure=procedure)
         call flush_log_units()
      else
         print '("DEBUG: ",A)', msg
      end if
   end subroutine log_debug