--- trunk/libf/dyn3d/grid_change.f90	2008/10/15 16:19:57	20
+++ trunk/dyn3d/grid_change.f90	2013/11/15 18:45:49	76
@@ -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:
@@ -84,32 +84,4 @@
 
   END function gr_phy_write_2d
 
-  !***************************************************
-
-  function gr_phy_write_3d(pfi)
-
-    ! 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 numer_rec, only: assert
-
-    REAL, intent(in):: pfi(:, :)
-    real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2))
-
-    ! Variable local to the procedure:
-    integer l
-
-    !-----------------------------------------------------------------------
-
-    call assert(size(pfi, 1) == klon, "gr_phy_write_3d")
-
-    do l = 1, size(pfi, 2)
-       gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))
-    end do
-
-  END function gr_phy_write_3d
-
 end module grid_change