--- trunk/libf/dyn3d/grid_change.f90	2008/08/01 15:24:12	15
+++ 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,33 +84,4 @@
 
   END function gr_phy_write_2d
 
-  !***************************************************
-
-  function gr_phy_write_3d(pfi)
-
-    ! Transforme une variable dépendant de la position verticale de la
-    ! grille physique à la grille d'écriture.
-    ! The grid for output files does not duplicate the first longitude
-    ! in the last longitude.
-
-    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)
-
-    ! Variable local to the procedure:
-    integer l
-
-    !-----------------------------------------------------------------------
-
-    call assert(shape(pfi) == (/klon, llm/), "gr_phy_write_3d")
-
-    do l = 1, llm
-       gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))
-    end do
-
-  END function gr_phy_write_3d
-
 end module grid_change