source: LMDZ4/trunk/libf/phylmd/minmaxqfi.F @ 1167

Last change on this file since 1167 was 766, checked in by Laurent Fairhead, 17 years ago

Merge entre la version V3_conv et le HEAD
YM, JG, LF

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