Directory: | ./ |
---|---|
File: | phys/minmaxqfi.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 7 | 13 | 53.8% |
Branches: | 7 | 14 | 50.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | ! | ||
2 | ! $Id: minmaxqfi.F90 2311 2015-06-25 07:45:24Z emillour $ | ||
3 | ! | ||
4 | 1920 | SUBROUTINE minmaxqfi(zq,qmin,qmax,comment) | |
5 | USE dimphy | ||
6 | USE print_control_mod, ONLY: prt_level | ||
7 | IMPLICIT NONE | ||
8 | |||
9 | ! Entrees | ||
10 | REAL,DIMENSION(klon,klev), INTENT(IN) :: zq | ||
11 | REAL,INTENT(IN) :: qmin,qmax | ||
12 | CHARACTER(LEN=*),INTENT(IN) :: comment | ||
13 | |||
14 | ! Local | ||
15 | 3840 | INTEGER,DIMENSION(klon) :: jadrs | |
16 | INTEGER :: i, jbad, k | ||
17 | |||
18 |
2/2✓ Branch 0 taken 74880 times.
✓ Branch 1 taken 1920 times.
|
76800 | DO k = 1, klev |
19 | jbad = 0 | ||
20 |
2/2✓ Branch 0 taken 74430720 times.
✓ Branch 1 taken 74880 times.
|
74505600 | DO i = 1, klon |
21 |
2/4✓ Branch 0 taken 74430720 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 74430720 times.
|
74505600 | IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN |
22 | ✗ | jbad = jbad + 1 | |
23 | ✗ | jadrs(jbad) = i | |
24 | ENDIF | ||
25 | ENDDO | ||
26 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 74880 times.
|
76800 | IF (jbad.GT.0) THEN |
27 | ✗ | WRITE(*,*)comment, "k = ", k, "jbad > 0" | |
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 | ||
33 | ENDIF | ||
34 | ENDDO | ||
35 | |||
36 | 1920 | END SUBROUTINE minmaxqfi | |
37 |