Changeset 3469 for LMDZ6/trunk


Ignore:
Timestamp:
Mar 25, 2019, 11:28:20 AM (6 years ago)
Author:
yann meurdesoif
Message:

Fix problem in limit.nc creation for unstructured case in OpenMP.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3435 r3469  
    169169   IF (is_omp_master) ndays_in=year_len(annee_ref, calendar)
    170170   CALL bcast_omp(ndays_in)
    171    timeyear=mid_months(annee_ref, calendar, lmdep)
     171   IF (is_omp_master) timeyear=mid_months(annee_ref, calendar, lmdep)
     172   CALL bcast_omp(timeyear)
    172173   
    173174   n_extrap = 0
Note: See TracChangeset for help on using the changeset viewer.