43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
47 CHARACTER(LEN=4),
INTENT(OUT) :: hrough
48 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'GET_SURF_ATM_SSO_ROUGH',0,zhook_handle)
57 IF (lhook) CALL dr_hook(
'GET_SURF_ATM_SSO_ROUGH',1,zhook_handle)
subroutine get_surf_atm_sso_rough(HROUGH)