Changeset 3586 for LMDZ6/trunk/libf/phylmd

Timestamp:

Oct 15, 2019, 4:24:36 PM (5 years ago)

Author:

fhourdin

Message:

bcast manquant.

File:

• LMDZ6/trunk/libf/phylmd/orografi_strato.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/orografi_strato.F90

@@ -1863 +1863 @@
   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