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

c   Declarations

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

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

c   local

      integer lm,l,lnblnk



c     print*,'Transformation pour ',name
      call GatherField(fieldfi_p,fieldfi,nl)
      
      if (phy_rank==0) 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
      
      return
      end