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