mp_routines.F File Reference

#include "cppdefs.h"

Include dependency graph for mp_routines.F:

Go to the source code of this file.

Functions/Subroutines
subroutine	my_getarg (iarg, carg)
integer function	my_getpid ()
integer function	my_numthreads ()
integer function	my_threadnum ()
real(r8) function	my_wtime (wtime)

Function/Subroutine Documentation

my_getarg()

subroutine my_getarg	(	integer, intent(in)	iarg,
		character (len=*), intent(inout)	carg )

Definition at line 27 of file mp_routines.F.

!-----------------------------------------------------------------------
!
      USE mod_kinds
# if defined NAGFOR
      USE f90_unix_env
# endif
!
      implicit none
!
!  Imported variable declarations.
!
      integer, intent(in) :: Iarg
      character (len=*), intent(inout) :: Carg
!
!  Local variable declarations.
!
      integer :: Lstr, ierror
!
!  Get argument value from command-line.
!
# ifdef CRAY
      CALL pxfgetarg (iarg, carg, lstr, ierror)
# else
      CALL getarg (iarg, carg)
# endif
!
      RETURN

Referenced by read_couplepar(), mod_esmf_esm::read_esmconfig(), and stdinp_mod::stdinp_unit().

Here is the caller graph for this function:

my_getpid()

integer function my_getpid

Definition at line 59 of file mp_routines.F.

!-----------------------------------------------------------------------
!
      USE mod_kinds
#if defined NAGFOR
      USE f90_unix_env
#endif
!
      implicit none
!
#ifndef NAGFOR
      integer :: getpid
#endif
      integer :: my_getpid
!
!  Get ID of the calling process.
!
#if defined CRAYX1
      my_getpid=0
#elif defined CYGWIN
      my_getpid=0
#else
      my_getpid=getpid()
#endif
!
      RETURN

References my_getpid().

Referenced by my_getpid(), and wclock_on().

Here is the call graph for this function:

Here is the caller graph for this function:

my_numthreads()

integer function my_numthreads

Definition at line 88 of file mp_routines.F.

!-----------------------------------------------------------------------
!
      USE mod_kinds
!
      implicit none
!
      integer :: my_numthreads
!
!  Get the number of Persistent Execution Threads (PET) that would
!  execute in parallel regions.
!
#ifdef DISTRIBUTE
      my_numthreads=1
#elif defined _OPENMP
      integer :: omp_get_max_threads
!!    integer :: omp_get_num_threads
 
      my_numthreads=omp_get_max_threads()
!!    my_numthreads=omp_get_num_threads()
#elif defined SGI
      integer :: mp_numthreads
 
      my_numthreads=mp_numthreads()
#else
      my_numthreads=1
#endif
!
      RETURN

References my_numthreads().

Referenced by mod_parallel::initialize_parallel(), and my_numthreads().

Here is the call graph for this function:

Here is the caller graph for this function:

my_threadnum()

integer function my_threadnum

Definition at line 120 of file mp_routines.F.

!-----------------------------------------------------------------------
!
      USE mod_kinds
!
      implicit none
!
      integer :: my_threadnum
!
!  Get the Persistent Execution Thread (PET) number is working that is
!  is working in a parallel region.
!
#if defined _OPENMP
      integer :: omp_get_thread_num
 
      my_threadnum=omp_get_thread_num()
#elif defined SGI
      integer :: mp_my_threadnum
 
      my_threadnum=mp_my_threadnum()
#else
      my_threadnum=0
#endif
!
      RETURN

References my_threadnum().

Referenced by mod_parallel::initialize_parallel(), my_threadnum(), roms_kernel_mod::roms_initialize(), stats_mod::stats_2dfld(), stats_mod::stats_3dfld(), and stats_mod::stats_4dfld().

Here is the call graph for this function:

Here is the caller graph for this function:

my_wtime()

real(r8) function my_wtime

(

real(r8), dimension(2)

wtime

)

Definition at line 148 of file mp_routines.F.

!-----------------------------------------------------------------------
!
      USE mod_kinds
!
      implicit none
!
      real(r8) :: wtime(2)
      real(r8) :: my_wtime
#ifdef _OPENMP
      real(r8) :: omp_get_wtime
#endif
#ifdef CRAYX1
      integer :: count, count_rate, count_max
#endif
!
!  Get the elapsed wall time (seconds) since an arbitrary time in the
!  past.
!
#if defined _OPENMP
      my_wtime=omp_get_wtime()
#elif defined CRAYX1
      CALL system_clock (count, count_rate, count_max)
      my_wtime=real(count,r8)/real(count_rate,r8)
#else
      CALL cpu_time (wtime(1))
      my_wtime=wtime(1)
#endif
!
      RETURN

References my_wtime(), and mod_kinds::r8.

Referenced by my_wtime(), wclock_off(), and wclock_on().

Here is the call graph for this function:

Here is the caller graph for this function: