subroutine minmaxsource(zq,qmin,qmax,comment)

      USE dimphy
      USE infotrac

#include "dimensions.h"

!      character*20 comment
      character*(*) 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.lt.qmin.or.zqmax.gt.qmax) 
     s     write(*,9999) comment,
     s     ijmin,lmin,zqmin,ijmax,lmax,zqmax

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