1 |
guez |
186 |
module gr_fi_ecrit_m |
2 |
guez |
3 |
|
3 |
|
|
IMPLICIT none |
4 |
|
|
|
5 |
guez |
186 |
contains |
6 |
guez |
3 |
|
7 |
guez |
186 |
SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit) |
8 |
guez |
3 |
|
9 |
guez |
186 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
10 |
guez |
3 |
|
11 |
guez |
186 |
! Transforme une variable de la grille physique \`a la grille |
12 |
|
|
! d'\'ecriture. Cf. version moderne "gr_phy_write_2d", dans le |
13 |
|
|
! cas o\`u "nfield" vaut 1. |
14 |
guez |
3 |
|
15 |
guez |
186 |
INTEGER, intent(in):: nfield, nlon, iim, jjmp1 |
16 |
|
|
REAL, intent(in):: fi(nlon, nfield) |
17 |
|
|
real ecrit(iim*jjmp1, nfield) |
18 |
guez |
3 |
|
19 |
guez |
186 |
! Variables local to the procedure: |
20 |
guez |
3 |
|
21 |
guez |
186 |
integer jjm |
22 |
|
|
INTEGER i, n, ig |
23 |
|
|
|
24 |
|
|
!--------------- |
25 |
|
|
|
26 |
|
|
jjm = jjmp1 - 1 |
27 |
|
|
DO n = 1, nfield |
28 |
|
|
DO i=1, iim |
29 |
|
|
ecrit(i, n) = fi(1, n) |
30 |
|
|
ecrit(i+jjm*iim, n) = fi(nlon, n) |
31 |
|
|
ENDDO |
32 |
|
|
DO ig = 1, nlon - 2 |
33 |
|
|
ecrit(iim+ig, n) = fi(1+ig, n) |
34 |
|
|
ENDDO |
35 |
|
|
ENDDO |
36 |
|
|
|
37 |
|
|
END SUBROUTINE gr_fi_ecrit |
38 |
|
|
|
39 |
|
|
end module gr_fi_ecrit_m |