Ignore:
Timestamp:
01/09/14 09:56:11 (11 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/physics_dcmip.f90

    r146 r186  
    1         MODULE physics_dcmip_mod 
     1MODULE physics_dcmip_mod 
    22  USE ICOSA 
    33  PRIVATE 
    44   
    55  INTEGER,SAVE :: testcase 
     6!$OMP THREADPRIVATE(testcase) 
     7 
    68  PUBLIC init_physics, physics 
    79  TYPE(t_field),POINTER :: f_out_i(:) 
    … …  
    4244    CALL transfert_request(f_ue,req_e1_vect) 
    4345    DO ind=1,ndomain 
     46      IF (.NOT. assigned_domain(ind)) CYCLE 
    4447      CALL swap_dimensions(ind) 
    4548      CALL swap_geometry(ind) 
Note: See TracChangeset for help on using the changeset viewer.