| 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 |