g2logging.F90

Go to the documentation of this file.

 
 
module g2logging
  integer g2_log_level
  character* 120 g2_log_msg
 
contains
  subroutine g2_log(level)
    integer, intent(in) :: level
 
    if (level .le. g2_log_level) then
       print *, g2_log_msg
    endif
  end subroutine g2_log
end module g2logging