Changeset 2909 for LMDZ5/trunk


Ignore:
Timestamp:
Jun 13, 2017, 3:27:01 PM (7 years ago)
Author:
jbmadeleine
Message:

Added THREADPRIVATE for firstcall and alpha_vert.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2686 r2909  
    311311      ! (J Jouhaud, JL Dufresne, JB Madeleine)
    312312      REAL,SAVE :: vert_alpha
     313      !$OMP THREADPRIVATE(vert_alpha)
    313314      LOGICAL, SAVE :: firstcall = .TRUE.
     315      !$OMP THREADPRIVATE(firstcall)
    314316     
    315317      REAL zpdf_sig(ngrid),zpdf_k(ngrid),zpdf_delta(ngrid)
Note: See TracChangeset for help on using the changeset viewer.