haut2bas.F

Go to the documentation of this file.

!
! $Header$
!
      SUBROUTINE haut2bas(klon, klev, varB2H, varH2B)
      IMPLICIT NONE
c
      INTEGER klon, klev
      REAL varb2h(klon, klev), varh2b(klon, klev)
      INTEGER i, k, kinv
c
      DO k=1,klev  
       kinv=klev-k+1 
       DO i=1,klon
        varh2b(i,k)=varb2h(i,kinv)
       ENDDO
      ENDDO
c
      RETURN
      END