Ignore:
Timestamp:
01/09/14 09:56:11 (10 years ago)
Author:
ymipsl
Message:

Add new openMP parallelism based on distribution of domains on threads. There is no more limitation of number of threads by MPI process.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/disvert_ncarl30.f90

    r131 r186  
    11MODULE disvert_ncarl30_mod 
    22  USE icosa 
     3 
    34  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:) 
     5!$OMP THREADPRIVATE(ap) 
    46  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: bp(:) 
     7!$OMP THREADPRIVATE(bp) 
    58  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: presnivs(:) 
     9!$OMP THREADPRIVATE(presnivs) 
    610 
    711CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.