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/bilan_dyn_loc.F

    r1823 r1848  
    157157      real,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
    158158      integer :: jjb,jje,jjn,ijb,ije
    159       type(Request) :: Req
     159      type(Request),SAVE :: Req
     160!$OMP THREADPRIVATE(Req)
    160161
    161162! definition du domaine d'ecriture pour le rebuild
Note: See TracChangeset for help on using the changeset viewer.