20 USE yomhook
,ONLY : lhook, dr_hook
21 USE parkind1
,ONLY : jprb
27 INTEGER,
INTENT(IN) :: ksize
28 INTEGER,
INTENT(IN) :: kfrac
29 REAL,
DIMENSION(KFRAC),
INTENT(IN) :: pfrac
31 INTEGER,
DIMENSION(KSIZE),
INTENT(OUT) :: kmask
36 REAL(KIND=JPRB) :: zhook_handle
40 IF (lhook) CALL dr_hook(
'GET_1D_MASK',0,zhook_handle)
44 IF(pfrac(jj) > 0.0)
THEN
49 IF (lhook) CALL dr_hook(
'GET_1D_MASK',1,zhook_handle)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)