7 hflk_flux,hflk_alb,oskintemp)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 REAL,
INTENT(OUT) :: ptstep
54 REAL,
INTENT(OUT) :: pout_tstep
56 LOGICAL,
INTENT(OUT) :: osediments
57 LOGICAL,
INTENT(OUT) :: oskintemp
58 CHARACTER(LEN=3),
INTENT(OUT) :: hsnow_flk
59 CHARACTER(LEN=5),
INTENT(OUT) :: hflk_flux
60 CHARACTER(LEN=4),
INTENT(OUT) :: hflk_alb
61 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'DEFAULT_FLAKE',0,zhook_handle)
79 IF (lhook) CALL dr_hook(
'DEFAULT_FLAKE',1,zhook_handle)
subroutine default_flake(PTSTEP, POUT_TSTEP, OSEDIMENTS, HSNOW_FLK, HFLK_FLUX, HFLK_ALB, OSKINTEMP)