SUBROUTINE minmaxsource(zq, qmin, qmax, comment)

  USE dimphy
  USE infotrac

  INCLUDE "dimensions.h"

  ! character*20 comment
  character(len = *) :: comment
  real :: qmin, qmax
  real :: zq(klon, nbtr)

  integer :: ijmin, lmin, ijlmin
  integer :: ijmax, lmax, ijlmax

  integer :: ismin, ismax

  ijlmin = ismin(klon * nbtr, zq, 1)
  lmin = (ijlmin - 1) / klon + 1
  ijmin = ijlmin - (lmin - 1) * klon
  zqmin = zq(ijmin, lmin)

  ijlmax = ismax(klon * nbtr, zq, 1)
  lmax = (ijlmax - 1) / klon + 1
  ijmax = ijlmax - (lmax - 1) * klon
  zqmax = zq(ijmax, lmax)

  if(zqmin<qmin.or.zqmax>qmax) &
          write(*, 9999) comment, &
                  ijmin, lmin, zqmin, ijmax, lmax, zqmax

  return
  9999   format(a20, 2('  q(', i4, ',', i2, ')=', e12.5))
end subroutine minmaxsource