source: LMDZ4/branches/pre_V3/libf/phylmd/minmaxqfi.F @ 5451

Last change on this file since 5451 was 701, checked in by (none), 19 years ago

This commit was manufactured by cvs2svn to create branch 'pre_V3'.

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