37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
64 TYPE(ideal_t),
INTENT(INOUT) :: yideal
65 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
"MODD_IDEAL_N:IDEAL_INIT",0,zhook_handle)
69 IF (lhook) CALL dr_hook(
"MODD_IDEAL_N:IDEAL_INIT",1,zhook_handle)
subroutine ideal_init(YIDEAL)