! $Header$

SUBROUTINE gr_int_dyn(champin,champdyn,iim,jp1)
  IMPLICIT NONE
  !=======================================================================
  !   passage d'un champ interpole a un champ sur grille scalaire
  !=======================================================================
  !-----------------------------------------------------------------------
  !   declarations:
  !   -------------

  INTEGER :: iim
  INTEGER :: ip1, jp1
  REAL :: champin(iim, jp1)
  REAL :: champdyn(iim+1, jp1)

  INTEGER :: i, j
  REAL :: polenord, polesud

  !-----------------------------------------------------------------------
  !   calcul:
  !   -------

  ip1 = iim + 1
  polenord = 0.
  polesud = 0.
  DO i = 1, iim
    polenord = polenord + champin (i, 1)
    polesud = polesud + champin (i, jp1)
  enddo
  polenord = polenord / iim
  polesud = polesud / iim
  DO j = 1, jp1
    DO i = 1, iim
      IF (j == 1) THEN
        champdyn(i, j) = polenord
      ELSE IF (j == jp1) THEN
        champdyn(i, j) = polesud
      else
        champdyn(i, j) = champin (i, j)
      endif
    enddo
    champdyn(ip1, j) = champdyn(1, j)
  enddo

  RETURN
END SUBROUTINE gr_int_dyn