init_level_generate_debug_message Subroutine

  subroutine init_level_generate_debug_message(self, going_up)
    use unit_tests, only: debug_message
    implicit none
    class(init_level_type), intent(in) :: self
    logical, intent(in) :: going_up
    character(len=:), allocatable :: direction_msg
    character(len=3) :: level_as_string
    if (going_up) then
       direction_msg = 'up'
    else
       direction_msg = 'down'
    end if
    write(level_as_string , '(I0)') self%level
    call debug_message(self%debug_message_level, &
         'gs2_init:init '//direction_msg//' reached init level -- '// &
         trim(adjustl(self%name))//' ('//trim(level_as_string)//')')
  end subroutine init_level_generate_debug_message