source: LMDZ.3.3/trunk/libf/phylmd/minmaxqfi.F @ 220

Last change on this file since 220 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 634 bytes
Line 
1      SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
2      IMPLICIT none
3
4#include "dimensions.h"
5#include "dimphy.h"
6
7      CHARACTER*(*) comment
8      real qmin,qmax
9      real zq(klon,klev)
10
11      INTEGER jadrs(klon), jbad, k, i
12
13      DO k = 1, klev
14         jbad = 0
15         DO i = 1, klon
16         IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
17            jbad = jbad + 1
18            jadrs(jbad) = i
19         ENDIF
20         ENDDO
21         IF (jbad.GT.0) THEN
22         PRINT*, comment
23         DO i = 1, jbad
24            PRINT*, "i,k,q=", jadrs(i),k,zq(jadrs(i),k)
25         ENDDO
26         ENDIF
27      ENDDO
28
29      return
30      end
Note: See TracBrowser for help on using the repository browser.