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