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

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

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