Index: trunk/LMDZ.VENUS/libf/phyvenus/mod_grid_phy_lmdz.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/mod_grid_phy_lmdz.F90	(revision 808)
+++ trunk/LMDZ.VENUS/libf/phyvenus/mod_grid_phy_lmdz.F90	(revision 814)
@@ -3,4 +3,9 @@
 !
 MODULE mod_grid_phy_lmdz
+
+  PUBLIC
+  PRIVATE :: grid1dTo2d_glo_igen, grid1dTo2d_glo_rgen, grid1dTo2d_glo_lgen, &
+             grid2dTo1d_glo_igen, grid2dTo1d_glo_rgen, grid2dTo1d_glo_lgen
+
   INTEGER,SAVE :: nbp_lon  ! == iim
   INTEGER,SAVE :: nbp_lat  ! == jjmp1
@@ -271,10 +276,8 @@
   END SUBROUTINE grid2dTo1d_glo_l3
 
-END MODULE mod_grid_phy_lmdz
-
-
-  
+!---------------------------------------------------------------- 
+!  fonctions generiques (privees)
+!---------------------------------------------------------------- 
   SUBROUTINE grid1dTo2d_glo_igen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
 
@@ -311,5 +314,4 @@
 
   SUBROUTINE grid1dTo2d_glo_rgen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
 
@@ -345,5 +347,4 @@
 
   SUBROUTINE grid1dTo2d_glo_lgen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
     
@@ -379,5 +380,4 @@
   
   SUBROUTINE grid2dTo1d_glo_igen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
 
@@ -402,5 +402,4 @@
   
   SUBROUTINE grid2dTo1d_glo_rgen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
 
@@ -425,5 +424,4 @@
     
   SUBROUTINE grid2dTo1d_glo_lgen(VarIn,VarOut,dimsize)
-    USE mod_grid_phy_lmdz
     IMPLICIT NONE
 
@@ -446,2 +444,4 @@
     
   END SUBROUTINE grid2dTo1d_glo_lgen   
+
+END MODULE mod_grid_phy_lmdz