source: LMDZ6/branches/Amaury_dev/libf/phylmd/minmaxqfi.F90 @ 5099

Last change on this file since 5099 was 5099, checked in by abarral, 4 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 833 bytes
RevLine 
[5099]1
[1191]2! $Id: minmaxqfi.F90 5099 2024-07-22 19:29:09Z abarral $
[5099]3
[1191]4SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
5  USE dimphy
[2311]6  USE print_control_mod, ONLY: prt_level
[1191]7  IMPLICIT NONE
[524]8
[1191]9! Entrees
10  REAL,DIMENSION(klon,klev), INTENT(IN)   :: zq
11  REAL,INTENT(IN)                         :: qmin,qmax
12  CHARACTER(LEN=*),INTENT(IN)             :: comment
[524]13
[1191]14! Local 
15  INTEGER,DIMENSION(klon)     :: jadrs
16  INTEGER                     :: i, jbad, k
[2098]17
[1191]18  DO k = 1, klev
19     jbad = 0
20     DO i = 1, klon
[5082]21        IF (zq(i,k)>qmax .OR. zq(i,k)<qmin) THEN
[1191]22           jbad = jbad + 1
23           jadrs(jbad) = i
24        ENDIF
25     ENDDO
[5082]26     IF (jbad>0) THEN
[4912]27        WRITE(*,*)comment, "  k = ", k, "jbad > 0"
[2098]28        if (prt_level >= 1) then
29           DO i = 1, jbad
30              WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k)
31           ENDDO
32        end if
[1191]33     ENDIF
34  ENDDO
35 
36END SUBROUTINE minmaxqfi
Note: See TracBrowser for help on using the repository browser.