48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
55 INTEGER,
INTENT(IN) :: kluout
56 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
57 REAL,
POINTER,
DIMENSION(:,:) :: pfield
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'PREP_FLAKE_UNIF',0,zhook_handle)
101 ALLOCATE(pfield(1,1))
105 ALLOCATE(pfield(1,1))
109 ALLOCATE(pfield(1,1))
110 pfield = xunif_h_snow
113 ALLOCATE(pfield(1,1))
117 ALLOCATE(pfield(1,1))
121 ALLOCATE(pfield(1,1))
131 IF (lhook) CALL dr_hook(
'PREP_FLAKE_UNIF',1,zhook_handle)
subroutine prep_flake_unif(KLUOUT, HSURF, PFIELD)