subroutine tmm(a,ymin,ymax,npx) implicit none include 'itg.par' include 'itg.cmn' c include 'post.cmn' real a(lz,mz,nz,nspecz) real ymin,ymax integer npx c real dum integer l,m c ymin=a(1,1,npx,1) ymax=a(1,1,npx,1) c c do 1 l=1,ld do 1 m=1,md dum=a(l,m,npx,1) if(dum.gt.ymax)ymax=dum if(dum.lt.ymin)ymin=dum 1 continue ymax=1.1*ymax ymin=1.1*ymin return end