32 USE modd_prep, ONLY : xlat_out, xlon_out,linterp
33 USE modd_grid_arome, ONLY : xx, xy, nx, ny, xlat0, xlon0, xlator, xlonor, xrpk, xbeta
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
48 INTEGER,
INTENT(IN) :: kluout
49 REAL,
DIMENSION(:,:),
INTENT(IN) :: pfieldin
50 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pfieldout
54 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
55 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
56 INTEGER,
DIMENSION(:),
ALLOCATABLE :: imaskin
57 INTEGER,
DIMENSION(:),
ALLOCATABLE :: imaskout
60 INTEGER,
DIMENSION(:),
ALLOCATABLE :: ix
61 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'HOR_INTERPOL_AROME',0,zhook_handle)
70 ALLOCATE(imaskin(nni))
74 ALLOCATE(imaskout(ino))
81 CALL
xy_conf_proj(xlat0,xlon0,xrpk,xbeta,xlator,xlonor,zx,zy,xlat_out,xlon_out)
86 DO jl=1,
SIZE(pfieldin,2)
88 WHERE(pfieldin(:,jl)==xundef) imaskin = 0
93 CALL
horibl_surf(0.,0.,xy,xx,ny,ix,nni,pfieldin(:,jl),ino,zx,zy,pfieldout(:,jl), &
94 .false.,kluout,linterp,imaskin,imaskout)
104 IF (lhook) CALL dr_hook(
'HOR_INTERPOL_AROME',1,zhook_handle)
subroutine horibl_surf(PILA1, PILO1, PILA2, PILO2, KINLA, KINLO, KILEN, PARIN, KOLEN, PXOUT, PYOUT, PAROUT, ODVECT, KLUOUT, OINTERP, KLSMIN, KLSMOUT)
subroutine hor_interpol_arome(KLUOUT, PFIELDIN, PFIELDOUT)
subroutine xy_conf_proj(PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, PX, PY, PLAT, PLON)