Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/haut2bas.F90	Lines:	0	6	0.0 %
Date:	2023-06-30 12:51:15	Branches:	0	4	0.0 %



! $Header$

SUBROUTINE haut2bas(klon, klev, varb2h, varh2b)
  IMPLICIT NONE

  INTEGER klon, klev
  REAL varb2h(klon, klev), varh2b(klon, klev)
  INTEGER i, k, kinv

  DO k = 1, klev
    kinv = klev - k + 1
    DO i = 1, klon
      varh2b(i, k) = varb2h(i, kinv)
    END DO
  END DO

  RETURN
END SUBROUTINE haut2bas


Generated by: GCOVR (Version 4.2)

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