--- trunk/libf/phylmd/gr_fi_ecrit.f90	2008/02/27 13:16:39	3
+++ trunk/phylmd/gr_fi_ecrit.f	2014/03/05 14:57:53	82
@@ -1,12 +1,11 @@
 SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
 
   ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
-  ! This procedure is clean: no C preprocessor directive, no include line.
 
   IMPLICIT none
 
   ! Transforme une variable de la grille physique à la grille d'écriture.
-  ! 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.
 
   INTEGER, intent(in):: nfield, nlon, iim, jjmp1
   REAL, intent(in):: fi(nlon, nfield)