Index: /LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90	(revision 5823)
+++ /LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90	(revision 5824)
@@ -272,5 +272,4 @@
           ig(igrid) = indi
           jg(igrid) = indj
-       print *,' FCCCC je passe', igrid
        ENDDO
        ig(klon) = 1
@@ -287,5 +286,4 @@
        DO igrid = 1, knon
           area(igrid) = cell_area(knindex(igrid))
-          print*, ' FCCCC je passe' ,area(igrid) 
        ENDDO
        
@@ -313,10 +311,4 @@
          IF (is_mpi_root) THEN
             index = 1
-                             IF (klon_glo == 1) THEN
-            lon_scat(:,1) = rlon_g(1)
-            lat_scat(:,1) = rlat_g(1)
-            lon_scat(:,nbp_lat) = rlon_g(1)
-            lat_scat(:,nbp_lat) = rlat_g(klon_glo)
-                             ELSE!FC
             DO jj = 2, nbp_lat-1
                DO ij = 1, nbp_lon
@@ -330,5 +322,4 @@
             lon_scat(:,nbp_lat) = lon_scat(:,2)
             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
-                             ENDIF !FC
 
          ENDIF