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/guided_ncar_mod.f90

    r111 r186  
    44   
    55  INTEGER,SAVE :: case_wind 
     6!$OMP THREADPRIVATE(case_wind) 
    67   
    78  REAL(rstd), PARAMETER :: alpha=0.0 ! tilt of solid-body rotation 
    … …  
    4647     
    4748    DO ind = 1 , ndomain 
     49      IF (.NOT. assigned_domain(ind)) CYCLE 
    4850      CALL swap_dimensions(ind) 
    4951      CALL swap_geometry(ind)  
Note: See TracChangeset for help on using the changeset viewer.