dr_hook_procinfo.F90

Go to the documentation of this file.

SUBROUTINE dr_hook_procinfo(KMYPROC, KNPROC)
USE parkind1  ,ONLY : jpim     ,jprb
#ifdef SFX_MPI
USE mpl_module, ONLY : mpl_rank,mpl_numproc
#endif
IMPLICIT NONE
INTEGER(KIND=JPIM),INTENT(OUT) :: KMYPROC, KNPROC
#ifdef SFX_MPI
kmyproc = mpl_rank
knproc = mpl_numproc
#else
kmyproc = 0
knproc = 1
#endif
END SUBROUTINE dr_hook_procinfo