frame/module_sm.F

   1 !WRF:PACKAGE:OPENMP
   2 !
   3
   4 MODULE module_sm
   5
   6 #ifdef _OPENMP
   7
   8    !  There are a few functions in the OpenMP library,
   9    !  and to use them easily, we need to define the
  10    !  return types of these functions.
  11
  12    INTEGER , EXTERNAL :: omp_get_num_threads , &
  13                          omp_get_max_threads , &
  14                          omp_get_thread_num  , &
  15                          omp_get_num_procs
  16
  17    LOGICAL , EXTERNAL :: omp_in_parallel
  18 #endif
  19
  20 CONTAINS
  21
  22    SUBROUTINE omp_info
  23
  24 #ifdef _OPENMP
  25
  26       IMPLICIT NONE
  27
  28       PRINT '(/A,/,A,/,A,I2/)','omp_get_num_threads:', &
  29                               'Number of threads currently in the team executing', &
  30                               'the parallel region = ',omp_get_num_threads()
  31
  32       PRINT '(A,/,A,/,A,I2/)', 'omp_get_max_threads:', &
  33                               'Maximum value that can be returned by the',&
  34                               'omp_get_num_threads function = ',omp_get_max_threads()
  35
  36       PRINT '(A,/,A,/,A,I2/)', 'omp_get_thread_num:', &
  37                               'Returns the thread number, within the team, between', &
  38                               '0 and omp_get_num_threads-1, inclusive = ',omp_get_thread_num()
  39
  40       PRINT '(A,/,A,/,A,I2/)', 'omp_get_num_procs:', &
  41                               'Returns the number of processors that are available', &
  42                               'to the program = ',omp_get_num_procs()
  43
  44       PRINT '(A,/,A,/,A,L7/)','omp_in_parallel:', &
  45                               'Returns .TRUE. if called with the dynamic extent of a region', &
  46                               'executing in parallel, and otherwise .FALSE. = ',omp_in_parallel()
  47
  48 #endif
  49
  50    END SUBROUTINE omp_info
  51
  52    SUBROUTINE init_module_sm
  53    END SUBROUTINE init_module_sm
  54
  55 END MODULE module_sm