40 USE modd_prep_flake, ONLY : cfile_flake, ctype, cfilepgd_flake, ctypepgd, xts_unif, &
41 xunif_t_snow, xunif_t_ice, xunif_t_mnw, xunif_t_wml, &
42 xunif_t_bot, xunif_t_b1, xunif_ct, xunif_h_snow, &
43 xunif_h_ice, xunif_h_ml, xunif_h_b1
61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
77 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'DEFAULT_PREP_FLAKE',0,zhook_handle)
101 IF (lhook) CALL dr_hook(
'DEFAULT_PREP_FLAKE',1,zhook_handle)
subroutine default_prep_flake