Ignore:
Timestamp:
10/31/14 14:52:01 (10 years ago)
Author:
ymipsl
Message:

Merging OpenMP parallisme mode : by subdomain and on vertical level.
This feature is actually experimental but may be retro-compatible with the last method based only on subdomain

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r280 r295  
    1919  CALL xios_init 
    2020  CALL init_earth_const  
    21   CALL init_grid_param(is_mpi_root) 
    22   CALL init_omp_para 
     21  CALL init_grid_param(is_mpi_master) 
     22  CALL init_omp_para(is_mpi_master) 
    2323  CALL compute_metric 
    2424  CALL compute_domain 
    … …  
    2828 
    2929!$OMP PARALLEL   
     30  CALL switch_omp_no_distrib_level 
    3031  CALL compute_geometry 
    3132  CALL check_total_area 
    … …  
    4344   
    4445  CALL timeloop 
    45  
     46  CALL switch_omp_no_distrib_level 
    4647!$OMP END PARALLEL 
    4748 
Note: See TracChangeset for help on using the changeset viewer.