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 |