51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
58 INTEGER,
INTENT(IN) :: ki
62 INTEGER,
DIMENSION(KI) :: inbpix_in_mesh
63 INTEGER :: jcat, jpix, inumpix
64 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'MAKE_MASK_ISBA_TO_TOPD',0,zhook_handle)
70 ALLOCATE(nmaski(ki,nncat,inumpix))
71 nmaski(:,:,:) = nundef
77 DO jpix = 1,nnmc(jcat)
79 IF ((nmaskt(jcat,jpix)/=0).AND.(nmaskt(jcat,jpix)/=nundef))
THEN
81 inbpix_in_mesh(nmaskt(jcat,jpix)) = inbpix_in_mesh(nmaskt(jcat,jpix)) + 1
85 nmaski(nmaskt(jcat,jpix),jcat,inbpix_in_mesh(nmaskt(jcat,jpix))) = jpix
99 IF (lhook) CALL dr_hook(
'MAKE_MASK_ISBA_TO_TOPD',1,zhook_handle)
subroutine make_mask_isba_to_topd(KI)