yomhook.F90

Go to the documentation of this file.

MODULE yomhook

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

! Used by "hook" function
! LHOOK = true implies "hook" function will be called
! Altough initialized to TRUE it will be reset by first call to 
! DR_HOOK unless we really want to use the hook function

LOGICAL :: lhook=.true.

CONTAINS 

SUBROUTINE dr_hook(CDNAME,KSWITCH,PKEY)
CHARACTER(LEN=*), INTENT(IN) :: CDNAME
INTEGER(KIND=JPIM),        INTENT(IN) :: KSWITCH
REAL(KIND=JPRB),        INTENT(INOUT) :: PKEY
IF (kswitch.EQ.0) THEN
!  PRINT *,'--> ON ENTRE DANS: ',CDNAME
ELSE IF (kswitch.EQ.1) THEN
!  PRINT *,'    ON SORT  DE  : ',CDNAME
ENDIF
END SUBROUTINE dr_hook

SUBROUTINE c_drhook_print

! subroutine vide MPL 4.12.08
!INTEGER(KIND=JPIM) ITID, KTID, IPRINT_OPTION, ILEVEL
!ITID = 0
!KTID = 0
!IPRINT_OPTION = 2
!ILEVEL = 0
print *,'ON EST DANS C_DRHOOK_PRINT '

END SUBROUTINE c_drhook_print
END MODULE yomhook