SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
      USE dimphy
      IMPLICIT NONE
c=======================================================================
c   passage d'un champ de la grille scalaire a la grille physique
c=======================================================================

c-----------------------------------------------------------------------
c   declarations:
c   -------------

      INTEGER im,jm,ngrid,nfield
      REAL pdyn(im,jm,nfield)
      REAL pfi(ngrid,nfield)

      INTEGER i,j,ig

c-----------------------------------------------------------------------
c   calcul:
c   -------

c      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
c   traitement des poles
c   traitement des point normaux

       DO ig=1,klon
         i=Liste_i(ig)
         j=Liste_j(ig)
         pfi(ig,1:nfield)=pdyn(i,j,1:nfield)
       ENDDO


      RETURN
      END