
! $Id: minmaxsimple.F90 5099 2024-07-22 19:29:09Z abarral $

SUBROUTINE minmaxsimple(zq,qmin,qmax,comment)
  USE dimphy
  IMPLICIT NONE

! Entrees
  REAL,DIMENSION(klon,klev), INTENT(IN)   :: zq
  REAL,INTENT(IN)                         :: qmin,qmax
  CHARACTER(LEN=*),INTENT(IN)             :: comment

! Local  
  REAL zmin, zmax
  
  zmin=MINVAL(zq)
  zmax=MAXVAL(zq)
  PRINT *, "qmin qmax=", zmin, zmax, comment
!  IF (zmin.LT.qmin.OR.zmax.GT.qmax) THEN
!      WRITE(*,*) "qmin qmax=", zmin, zmax, comment
!  ENDIF
  
END SUBROUTINE minmaxsimple
