7 kluout,pfieldin,pfieldout)
38 USE modd_prep, ONLY : xlat_out, xlon_out, cmask
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,
POINTER,
DIMENSION(:,:) :: 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_NONE',0,zhook_handle)
75 ALLOCATE(imaskout(ino))
77 cmask,ino,imaskout,nni,kluout)
86 IF (lhook) CALL dr_hook(
'HOR_INTERPOL_NONE',1,zhook_handle)
subroutine get_surf_mask_n(DTCO, U, HTYPE, KDIM, KMASK, KLU, KLUOUT)
subroutine hor_interpol_none(DTCO, U, KLUOUT, PFIELDIN, PFIELDOUT)