1 |
|
2 |
SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit) |
2 |
|
|
IMPLICIT none |
3 |
|
|
! |
4 |
|
|
! Tranformer une variable de la grille physique a |
5 |
|
|
! la grille d'ecriture |
6 |
|
|
! |
7 |
|
|
! WARNING: This only works on the full global grid |
8 |
|
|
! (ie for GCM in serial mode) |
9 |
|
|
INTEGER nfield,nlon,iim,jjmp1, jjm |
10 |
|
|
REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield) |
11 |
|
|
! |
12 |
|
|
INTEGER i, n, ig |
13 |
|
|
! |
14 |
|
2 |
jjm = jjmp1 - 1 |
15 |
✓✓ |
4 |
DO n = 1, nfield |
16 |
✓✓ |
66 |
DO i=1,iim |
17 |
|
64 |
ecrit(i,n) = fi(1,n) |
18 |
|
66 |
ecrit(i+jjm*iim,n) = fi(nlon,n) |
19 |
|
|
ENDDO |
20 |
✓✓ |
1988 |
DO ig = 1, nlon - 2 |
21 |
|
1986 |
ecrit(iim+ig,n) = fi(1+ig,n) |
22 |
|
|
ENDDO |
23 |
|
|
ENDDO |
24 |
|
2 |
END SUBROUTINE gr_fi_ecrit |