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 |