Ignore:
Timestamp:
08/06/15 10:39:21 (9 years ago)
Author:
dubos
Message:

Thread safety fixes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/omp_para.F90

    r327 r351  
    9797    ENDIF 
    9898 
    99     omp_level_size=1  
     99    !$OMP CRITICAL 
     100    omp_level_size=1 
    100101    CALL getin("omp_level_size",omp_level_size) 
     102    !$OMP END CRITICAL 
     103 
    101104    IF(is_mpi_master) PRINT *,'GETIN omp_level_size', ' = ', omp_level_size 
    102105 
Note: See TracChangeset for help on using the changeset viewer.