--- trunk/libf/dyn3d/grid_change.f90	2008/02/27 13:16:39	3
+++ trunk/dyn3d/grid_change.f	2014/03/05 14:57:53	82
@@ -32,7 +32,7 @@
 
     use dimphy, only: klon
 
-    REAL, intent(in):: pfi(:)
+    REAL, intent(in):: pfi(:) ! (klon)
     real gr_fi_dyn(iim + 1, jjm + 1)
 
     ! Variable local to the procedure:
@@ -57,7 +57,7 @@
 
   !********************************************
 
-  function gr_phy_write(pfi)
+  function gr_phy_write_2d(pfi)
 
     ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
     ! Transforme une variable de la grille physique à la grille d'écriture.
@@ -67,21 +67,21 @@
     use dimphy, only: klon
 
     REAL, intent(in):: pfi(:)
-    real gr_phy_write(iim, jjm + 1)
+    real gr_phy_write_2d(iim, jjm + 1)
 
     ! Variable local to the procedure:
     real field(iim, jjm + 1)
 
     !-----------------------------------------------------------------------
 
-    if (size(pfi) /= klon) stop "gr_phy_write"
+    if (size(pfi) /= klon) stop "gr_phy_write_2d"
 
     ! Traitement des pôles :
     field(2:, 1) = pfi(1)
     field(2:, jjm + 1) = pfi(klon)
 
-    gr_phy_write = unpack(pfi, dyn_phy(:iim, :), field)
+    gr_phy_write_2d = unpack(pfi, dyn_phy(:iim, :), field)
 
-  END function gr_phy_write
+  END function gr_phy_write_2d
 
 end module grid_change