7 kluout,pfieldin,pfieldout)
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
49 USE modi_get_surf_mask_n
59 INTEGER,
INTENT(IN) :: kluout
60 REAL,
DIMENSION(:,:),
INTENT(IN) :: pfieldin
61 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pfieldout
65 INTEGER,
DIMENSION(:),
ALLOCATABLE :: imaskout
67 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'HOR_INTERPOL_BUFFER',0,zhook_handle)
74 ino =
SIZE(pfieldout,1)
75 ALLOCATE(imaskout(ino))
77 cmask,ino,imaskout,nni,kluout)
86 IF (lhook) CALL dr_hook(
'HOR_INTERPOL_BUFFER',1,zhook_handle)
subroutine get_surf_mask_n(DTCO, U, HTYPE, KDIM, KMASK, KLU, KLUOUT)
subroutine hor_interpol_buffer(DTCO, U, KLUOUT, PFIELDIN, PFIELDOUT)