37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
45 INTEGER,
INTENT(IN) :: kgrid_par
46 INTEGER,
INTENT(IN) :: kl
47 INTEGER,
INTENT(IN) :: knear_nbr
48 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
49 INTEGER,
DIMENSION(:,:),
POINTER :: knear
50 REAL(KIND=JPRB) :: zhook_handle
57 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_GAUSS',0,zhook_handle)
59 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_GAUSS',1,zhook_handle)
subroutine get_near_meshes_gauss(KGRID_PAR, KL, PGRID_PAR, KNEAR_NBR, KNEAR)