gr_ecrit_fi.F

Go to the documentation of this file.

!
! $Header$
!
                SUBROUTINE gr_ecrit_fi(nfield,nlon,iim,jjmp1,ecrit,fi)

                IMPLICIT none

c transformer une variable de la grille d






'ecriture a la grille physique                  INTEGER nfield,nlon,iim,jjmp1, jjm      REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield)c      INTEGER i, j, n, igcc               print*,'iim jjm