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'ecriture a la grille physique |
9 |
|
|
|
10 |
|
|
INTEGER nfield,nlon,iim,jjmp1, jjm |
11 |
|
|
REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield) |
12 |
|
|
c |
13 |
|
|
INTEGER i, j, n, ig |
14 |
|
|
c |
15 |
|
|
c print*,'iim jjm ',iim,jjm |
16 |
|
|
|
17 |
|
|
c modif par abd 21 02 01 |
18 |
|
|
|
19 |
|
|
jjm = jjmp1 - 1 |
20 |
|
|
do n = 1, nfield |
21 |
|
|
fi(1,n) = ecrit(1,1,n) |
22 |
|
|
fi(nlon,n) = ecrit(1,jjm+1,n) |
23 |
|
|
DO j = 2, jjm |
24 |
|
|
ig = 2+(j-2)*iim |
25 |
|
|
DO i = 1, iim |
26 |
|
|
fi(ig-1+i,n) = ecrit(i,j,n) |
27 |
|
|
ENDDO |
28 |
|
|
ENDDO |
29 |
|
|
ENDDO |
30 |
|
|
RETURN |
31 |
|
|
END |
32 |
|
|
|