Ignore:
Timestamp:
Jun 19, 2017, 3:02:51 PM (7 years ago)
Author:
acaubel
Message:

Added OMP THREADPRIVATE for infosend and inforecv variables.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/oasis.F90

    r2872 r2916  
    8080
    8181  TYPE(FLD_CPL), DIMENSION(maxsend), SAVE, PUBLIC :: infosend   ! Information for sending coupling fields
     82!$OMP THREADPRIVATE(infosend)
    8283  TYPE(FLD_CPL), DIMENSION(maxrecv), SAVE, PUBLIC :: inforecv   ! Information for receiving coupling fields
     84!$OMP THREADPRIVATE(inforecv)
    8385 
    8486  LOGICAL,SAVE :: cpl_current
Note: See TracChangeset for help on using the changeset viewer.