Ignore:
Timestamp:
Aug 23, 2013, 2:20:58 PM (11 years ago)
Author:
yann meurdesoif
Message:

Solve performance problem comming from declarations of a derived type.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/gradiv2_loc.F

    r1823 r1848  
    3838      INTEGER l,ij,iter,ld
    3939      INTEGER :: ijb,ije,jjb,jje
    40       Type(Request)  :: request_dissip
    41      
     40      Type(Request),SAVE  :: request_dissip
     41!$OMP THREADPRIVATE(request_dissip)     
    4242c    ........................................................
    4343c
Note: See TracChangeset for help on using the changeset viewer.