Index: LMDZ6/trunk/libf/phylmd/orografi_strato.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/orografi_strato.F90	(revision 3585)
+++ LMDZ6/trunk/libf/phylmd/orografi_strato.F90	(revision 3586)
@@ -1863,7 +1863,10 @@
   ENDDO
   
+  !PRINT *, 'SUGWD distmin cell=', dist_min,cell
   CALL reduce_min(dist_min,dist_min_glo)
+  CALL bcast(dist_min_glo)
   IF (dist_min/=dist_min_glo) cell=-1
 !ym in future find the point at equator close to (0,0) coordinates.
+  !PRINT *, 'SUGWD distmin dist_min_glo cell=', dist_min,dist_min_glo,cell
 
   nktopg_tmp=nktopg