1 |
module gr_fi_ecrit_m |
2 |
|
3 |
IMPLICIT none |
4 |
|
5 |
contains |
6 |
|
7 |
SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit) |
8 |
|
9 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
10 |
|
11 |
! 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 |
|
15 |
INTEGER, intent(in):: nfield, nlon, iim, jjmp1 |
16 |
REAL, intent(in):: fi(nlon, nfield) |
17 |
real ecrit(iim*jjmp1, nfield) |
18 |
|
19 |
! Variables local to the procedure: |
20 |
|
21 |
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 |