source:
LMDZ4/tags/LMDZ4_V2/libf/dyn3dpar/gr_ecrit_fi.F
@
1807
Last change on this file since 1807 was 630, checked in by , 19 years ago | |
---|---|
|
|
File size: 628 bytes |
Line | |
---|---|
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 |
Note: See TracBrowser
for help on using the repository browser.