41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
45 CHARACTER(LEN=4),
INTENT(OUT) :: hrough
46 REAL,
INTENT(OUT) :: pfracz0
47 REAL,
INTENT(OUT) :: pcoefbe
48 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'DEFAULT_SSO',0,zhook_handle)
59 IF (lhook) CALL dr_hook(
'DEFAULT_SSO',1,zhook_handle)
subroutine default_sso(HROUGH, PFRACZ0, PCOEFBE)