!
! $Header$
!
  subroutine interpost(q,qppm)

   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
implicit none




  include "comgeom2.h"

  ! Arguments
  real :: q(iip1,jjp1,llm)
  real :: qppm(iim,jjp1,llm)
  ! Local
  integer :: l,i,j

  ! RE-INVERSION DES NIVEAUX
  ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
  ! On passe donc des niveaux de Lin � ceux du LMDZ

    do l=1,llm
      do j=1,jjp1
         do i=1,iim
             q(i,j,l)=qppm(i,j,llm-l+1)
         enddo
      enddo
     enddo

  ! BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D

     do l=1,llm
       do j=1,jjp1
        q(iip1,j,l)=q(1,j,l)
       enddo
     enddo


   return

end subroutine interpost