43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
47 LOGICAL,
INTENT(OUT) :: oagrip
48 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'DEFAULT_AGRI',0,zhook_handle)
57 IF (lhook) CALL dr_hook(
'DEFAULT_AGRI',1,zhook_handle)
subroutine default_agri(OAGRIP)