Ignore:
Timestamp:
01/19/18 23:43:11 (6 years ago)
Author:
dubos
Message:

devel/Python : fix numpy messing up OpenMP

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/data_unstructured.F90

    r658 r663  
    188188    PRINT *,' ... Done.' 
    189189    IF(nb_threads==0) nb_threads=OMP_GET_MAX_THREADS() 
    190     PRINT *,'OpenMP : max_threads, num_procs, nb_threads', OMP_GET_MAX_THREADS(), omp_get_num_procs(), nb_threads 
    191  
     190    PRINT *,'OpenMP : max_threads, num_procs, nb_threads', OMP_GET_MAX_THREADS(), OMP_GET_NUM_PROCS(), nb_threads 
    192191  END SUBROUTINE init_metric 
     192  ! 
     193  SUBROUTINE show_openmp() BINDC(show_openmp) 
     194    PRINT *,'OpenMP : max_threads, num_procs', OMP_GET_MAX_THREADS(), OMP_GET_NUM_PROCS() 
     195  END SUBROUTINE show_openmp 
    193196  ! 
    194197  SUBROUTINE init_params() BINDC(init_params) 
Note: See TracChangeset for help on using the changeset viewer.