      SUBROUTINE minmaxqfi2(zq,qmin,qmax,comment)
c
      USE dimphy
      USE infotrac
      INCLUDE "dimensions.h"

!      character*20 comment
      character*(*) comment
      real qmin,qmax
      real zq(klon,klev)

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

      integer ismin,ismax

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

      ijlmax=ismax(klon*klev,zq,1)
      lmax=(ijlmax-1)/klon+1
      ijmax=ijlmax-(lmax-1)*klon
      zqmax=zq(ijmax,lmax)
 
      if(zqmin<qmin.or.zqmax>qmax)
     s     write(*,9999) comment,
     s     ijmin,lmin,zqmin,ijmax,lmax,zqmax

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