source: LMDZ5/trunk/libf/phylmd/StratAer/minmaxsimple.F90 @ 4273

Last change on this file since 4273 was 2690, checked in by oboucher, 8 years ago

Adding a module for stratospheric aerosols with a bin scheme.
The module gets activated with -strataer true compiling option.
May not quite work yet, more testing needed, but should not affect
the rest of LMDz as everything is under a CPP_StratAer key.

File size: 554 bytes
RevLine 
[2690]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.