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

    r105 r186  
    33  PRIVATE 
    44   
    5   TYPE(t_field),POINTER :: f_p(:) 
     5  TYPE(t_field),SAVE, POINTER :: f_p(:) 
    66   
    77 
    … …  
    3636  
    3737    DO ind=1,ndomain 
     38      IF (.NOT. assigned_domain(ind)) CYCLE 
    3839      CALL swap_dimensions(ind) 
    3940      CALL swap_geometry(ind) 
Note: See TracChangeset for help on using the changeset viewer.