source: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomhook.F90 @ 5159

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