6 SUBROUTINE default_crocus(OSNOWDRIFT,OSNOWDRIFT_SUBLIM,OSNOW_ABS_ZENITH,&
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 LOGICAL,
INTENT(OUT) :: osnowdrift
54 LOGICAL,
INTENT(OUT) :: osnowdrift_sublim
55 LOGICAL,
INTENT(OUT) :: osnow_abs_zenith
58 CHARACTER(*),
INTENT(OUT) :: hsnowmetamo,hsnowrad
64 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'DEFAULT_CROCUS',0,zhook_handle)
70 osnowdrift_sublim = .false.
71 osnow_abs_zenith = .false.
76 IF (lhook) CALL dr_hook(
'DEFAULT_CROCUS',1,zhook_handle)
subroutine default_crocus(OSNOWDRIFT, OSNOWDRIFT_SUBLIM, OSNOW_ABS_ZENITH, HSNOWMETAMO, HSNOWRAD)