1 |
SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit) |
SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit) |
2 |
|
|
3 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
|
! This procedure is clean: no C preprocessor directive, no include line. |
|
4 |
|
|
5 |
IMPLICIT none |
IMPLICIT none |
6 |
|
|
7 |
! Transforme une variable de la grille physique à la grille d'écriture. |
! Transforme une variable de la grille physique à la grille d'écriture. |
8 |
! Cf. version moderne "gr_phy_write", dans le cas où "nfield" vaut 1. |
! Cf. version moderne "gr_phy_write_2d", dans le cas où "nfield" vaut 1. |
9 |
|
|
10 |
INTEGER, intent(in):: nfield, nlon, iim, jjmp1 |
INTEGER, intent(in):: nfield, nlon, iim, jjmp1 |
11 |
REAL, intent(in):: fi(nlon, nfield) |
REAL, intent(in):: fi(nlon, nfield) |