GCC Code Coverage Report


Directory: ./
File: phys/add_wake_tend.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 13 20 65.0%
Branches: 10 14 71.4%

Line Branch Exec Source
1 720 SUBROUTINE add_wake_tend(zddeltat, zddeltaq, zds, zddensaw, zddensw, zoccur, text, abortphy)
2 !===================================================================
3 ! Ajoute les tendances li´┐Żes aux diverses parametrisations physiques aux
4 ! variables d'etat des poches froides.
5 !===================================================================
6 !======================================================================
7 ! Declarations
8 !======================================================================
9
10 USE dimphy, ONLY: klon, klev
11 USE phys_state_var_mod, ONLY: wake_deltat, wake_deltaq, wake_s, &
12 awake_dens, wake_dens
13
14 USE print_control_mod, ONLY: prt_level
15 IMPLICIT none
16
17 ! Arguments :
18 !------------
19 REAL, DIMENSION(klon, klev), INTENT (IN) :: zddeltat, zddeltaq
20 REAL, DIMENSION(klon), INTENT (IN) :: zds, zddensaw, zddensw
21 INTEGER, DIMENSION(klon), INTENT (IN) :: zoccur
22 CHARACTER*(*), INTENT (IN) :: text
23 INTEGER, INTENT (IN) :: abortphy
24
25 ! Local :
26 !--------
27
28 INTEGER :: i, l
29
30
31
32
1/2
✗ Branch 0 not taken.
✓ Branch 1 taken 720 times.
720 IF (prt_level >= 5) then
33 write (*,*) "In add_wake_tend, after ",text
34 call flush
35 end if
36
37
1/2
✓ Branch 0 taken 720 times.
✗ Branch 1 not taken.
720 IF (abortphy==1) RETURN ! on n ajoute pas les tendance si le modele
38 ! a deja plante.
39
40 !======================================================================
41 ! Add tendencies to wake state variables
42 !======================================================================
43
2/2
✓ Branch 0 taken 28080 times.
✓ Branch 1 taken 720 times.
28800 DO l = 1, klev
44
2/2
✓ Branch 0 taken 27911520 times.
✓ Branch 1 taken 28080 times.
27940320 DO i = 1, klon
45
1/2
✓ Branch 0 taken 27911520 times.
✗ Branch 1 not taken.
27939600 IF (zoccur(i) .GE. 1) THEN
46 27911520 wake_deltat(i, l) = wake_deltat(i, l) + zddeltat(i,l)
47 27911520 wake_deltaq(i, l) = wake_deltaq(i, l) + zddeltaq(i,l)
48 ELSE
49 wake_deltat(i, l) = 0.
50 wake_deltaq(i, l) = 0.
51 ENDIF ! (zoccur(i) .GE. 1)
52 END DO
53 END DO
54
2/2
✓ Branch 0 taken 715680 times.
✓ Branch 1 taken 720 times.
716400 DO i = 1, klon
55
1/2
✓ Branch 0 taken 715680 times.
✗ Branch 1 not taken.
716400 IF (zoccur(i) .GE. 1) THEN
56 715680 wake_s(i) = wake_s(i) + zds(i)
57 715680 awake_dens(i) = awake_dens(i) + zddensaw(i)
58 715680 wake_dens(i) = wake_dens(i) + zddensw(i)
59 ELSE
60 wake_s(i) = 0.
61 awake_dens(i) = 0.
62 wake_dens(i) = 0.
63 ENDIF ! (zoccur(i) .GE. 1)
64 END DO
65
66 RETURN
67 END
68