Index: /LMDZ.3.3/trunk/libf/phylmd/haut2bas.F
===================================================================
--- /LMDZ.3.3/trunk/libf/phylmd/haut2bas.F	(revision 483)
+++ /LMDZ.3.3/trunk/libf/phylmd/haut2bas.F	(revision 483)
@@ -0,0 +1,16 @@
+      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