dr_hook_util_multi.F90

Go to the documentation of this file.

SUBROUTINE dr_hook_util_multi(LDHOOK,CDNAME,KCASE,PKEY,KPKEY,CDFILENAME,KSIZEINFO)
USE parkind1  ,ONLY : jpim     ,jprb
USE oml_mod,ONLY : oml_max_threads,oml_my_thread
IMPLICIT NONE
LOGICAL,INTENT(INOUT)       :: LDHOOK
CHARACTER(LEN=*),INTENT(IN) :: CDNAME,CDFILENAME
INTEGER(KIND=JPIM),INTENT(IN) :: KPKEY, KCASE,KSIZEINFO
REAL(KIND=JPRB),INTENT(INOUT) :: PKEY(kpkey)

LOGICAL,SAVE :: LL_FIRST_TIME = .true.
REAL(KIND=JPRB) :: ZDUMMY
INTEGER(KIND=JPIM) :: IMYTID

#include "dr_hook_util.h"

! -----------------------------------------------------------------

IF (.NOT.ldhook) RETURN
IF (ll_first_time) THEN
  ll_first_time = .false.
  CALL dr_hook_util(ldhook,'',-1,zdummy,'',-1_jpim)
ENDIF

!$OMP PARALLEL DO SCHEDULE(STATIC,1)&
!$OMP&PRIVATE(IMYTID)
DO imytid=1,kpkey
  IF (kcase == 0) THEN
    CALL c_drhook_start(cdname, imytid, pkey(imytid), cdfilename, ksizeinfo)
  ELSE IF (kcase == 1) THEN
    CALL c_drhook_end  (cdname, imytid, pkey(imytid), cdfilename, ksizeinfo)
  ENDIF
ENDDO ! IMYTID=1,KPKEY
!$OMP END PARALLEL DO

END SUBROUTINE dr_hook_util_multi