#ifdef CPP_PARA
MODULE lmdz_gr_dyn_fi_p
  IMPLICIT NONE
  PRIVATE
  PUBLIC gr_dyn_fi_p
CONTAINS

  SUBROUTINE gr_dyn_fi_p(nfield, im, jm, ngrid, pdyn, pfi)
    ! Interface with parallel physics,
    USE mod_interface_dyn_phys
    USE dimphy
    USE parallel_lmdz
    !=======================================================================
    !   passage d'un champ de la grille scalaire a la grille physique
    !=======================================================================

    INTEGER im, jm, ngrid, nfield
    REAL pdyn(im, jm, nfield)
    REAL pfi(ngrid, nfield)
    INTEGER i, j, ig, l

    !      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
    !   traitement des poles
    !   traitement des point normaux
    !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    DO l=1,nfield
     DO ig=1,klon
       i=index_i(ig)
       j=index_j(ig)
       pfi(ig,l)=pdyn(i,j,l)
     ENDDO
    ENDDO
    !$OMP END DO NOWAIT
  END SUBROUTINE gr_dyn_fi_p

END MODULE lmdz_gr_dyn_fi_p
#endif