source: LMDZ5/branches/IPSLCM6.0.8/libf/phylmd/StratAer/minmaxsimple.F90 @ 2791

Last change on this file since 2791 was 2720, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2664:2719 into testing branch

File size: 554 bytes
Line 
1!
2! $Id: minmaxsimple.F90 1910 2013-11-29 08:40:25Z fairhead $
3!
4SUBROUTINE minmaxsimple(zq,qmin,qmax,comment)
5  USE dimphy
6  IMPLICIT NONE
7
8! Entrees
9  REAL,DIMENSION(klon,klev), INTENT(IN)   :: zq
10  REAL,INTENT(IN)                         :: qmin,qmax
11  CHARACTER(LEN=*),INTENT(IN)             :: comment
12
13! Local 
14  REAL zmin, zmax
15 
16  zmin=MINVAL(zq)
17  zmax=MAXVAL(zq)
18  PRINT *, "qmin qmax=", zmin, zmax, comment
19!  IF (zmin.LT.qmin.OR.zmax.GT.qmax) THEN
20!      WRITE(*,*) "qmin qmax=", zmin, zmax, comment
21!  ENDIF
22 
23END SUBROUTINE minmaxsimple
Note: See TracBrowser for help on using the repository browser.