--- trunk/libf/dyn3d/grid_change.f90	2008/08/01 15:24:12	15
+++ trunk/libf/dyn3d/grid_change.f90	2008/10/15 16:19:57	20
@@ -88,26 +88,25 @@
 
   function gr_phy_write_3d(pfi)
 
-    ! Transforme une variable dépendant de la position verticale de la
-    ! grille physique à la grille d'écriture.
+    ! Transforme une variable de la grille physique à la grille d'écriture.
     ! The grid for output files does not duplicate the first longitude
     ! in the last longitude.
+    ! Input array has rank 2. Horizontal index is in the first dimension.
 
     use dimphy, only: klon
-    use dimens_m, only: llm
     use numer_rec, only: assert
 
     REAL, intent(in):: pfi(:, :)
-    real gr_phy_write_3d(iim, jjm + 1, llm)
+    real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2))
 
     ! Variable local to the procedure:
     integer l
 
     !-----------------------------------------------------------------------
 
-    call assert(shape(pfi) == (/klon, llm/), "gr_phy_write_3d")
+    call assert(size(pfi, 1) == klon, "gr_phy_write_3d")
 
-    do l = 1, llm
+    do l = 1, size(pfi, 2)
        gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))
     end do