42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
46 LOGICAL,
INTENT(OUT) :: odeepsoil
47 LOGICAL,
INTENT(OUT) :: ophysdomc
48 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'DEFAULT_DEEPSOIL',0,zhook_handle)
58 IF (lhook) CALL dr_hook(
'DEFAULT_DEEPSOIL',1,zhook_handle)
subroutine default_deepsoil(ODEEPSOIL, OPHYSDOMC)