| Directory: | ./ |
|---|---|
| File: | phys/haut2bas.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 6 | 0.0% |
| Branches: | 0 | 4 | 0.0% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | |||
| 2 | ! $Header$ | ||
| 3 | |||
| 4 | ✗ | SUBROUTINE haut2bas(klon, klev, varb2h, varh2b) | |
| 5 | IMPLICIT NONE | ||
| 6 | |||
| 7 | INTEGER klon, klev | ||
| 8 | REAL varb2h(klon, klev), varh2b(klon, klev) | ||
| 9 | INTEGER i, k, kinv | ||
| 10 | |||
| 11 | ✗ | DO k = 1, klev | |
| 12 | ✗ | kinv = klev - k + 1 | |
| 13 | ✗ | DO i = 1, klon | |
| 14 | ✗ | varh2b(i, k) = varb2h(i, kinv) | |
| 15 | END DO | ||
| 16 | END DO | ||
| 17 | |||
| 18 | ✗ | RETURN | |
| 19 | END SUBROUTINE haut2bas | ||
| 20 |