!
! $Header$
!
      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
      USE dimphy
      USE mod_grid_phy_lmdz
      USE mod_phys_lmdz_para
      implicit none

!c   Declarations

#include "dimensions.h"
!cym#include "dimphy.h"

!c   arguments
      integer if,nl
      real fieldfi_p(klon,nl)
      real fieldfi(klon_glo,nl)
      real fielddyn((iim+1)*(jjm+1),llm)
      character*10 name
      character*10 titlevar

!c   local

      integer lm,l



!c     print*,'Transformation pour ',name
      call Gather(fieldfi_p,fieldfi)

!$OMP MASTER      
      if (is_mpi_root) then
        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
        
!c     print*,'Transformation OK '
        call wrgrads(if,nl,fielddyn,name,titlevar)
!c     print*,'Ecriture ok'
      endif
!$OMP END MASTER
      
      return
      end subroutine wrgradsfi