My Project
 All Classes Files Functions Variables Macros
gr_ecrit_fi.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE gr_ecrit_fi(nfield,nlon,iim,jjmp1,ecrit,fi)
5 
6  IMPLICIT none
7 
8 c transformer une variable de la grille d
9 
10 
11 
12 
13 
14 
15 '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
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32