Changeset 3586 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 15, 2019, 4:24:36 PM (5 years ago)
Author:
fhourdin
Message:

bcast manquant.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/orografi_strato.F90

    r3473 r3586  
    18631863  ENDDO
    18641864 
     1865  !PRINT *, 'SUGWD distmin cell=', dist_min,cell
    18651866  CALL reduce_min(dist_min,dist_min_glo)
     1867  CALL bcast(dist_min_glo)
    18661868  IF (dist_min/=dist_min_glo) cell=-1
    18671869!ym in future find the point at equator close to (0,0) coordinates.
     1870  !PRINT *, 'SUGWD distmin dist_min_glo cell=', dist_min,dist_min_glo,cell
    18681871
    18691872  nktopg_tmp=nktopg
Note: See TracChangeset for help on using the changeset viewer.