38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 INTEGER,
INTENT(IN) :: kl
48 INTEGER,
INTENT(IN) :: knear_nbr
49 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
50 INTEGER,
DIMENSION(:,:),
POINTER :: knear
55 REAL,
DIMENSION(KL) :: zdis
56 REAL,
DIMENSION(KL) :: zx
57 REAL,
DIMENSION(KL) :: zy
58 REAL,
DIMENSION(KL) :: zdx
59 REAL,
DIMENSION(KL) :: zdy
62 INTEGER :: jp1, jp2, jn, il
63 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_LONLATVAL',0,zhook_handle)
80 zdis(jp2) = sqrt((zx(jp1)-zx(jp2))**2+(zy(jp1)-zy(jp2))**2)
82 zdmax = maxval(zdis(:)) + 1.
87 DO jn=1,min(kl-1,knear_nbr)
89 id0 = maxval(minloc(zdis(:)))
98 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_LONLATVAL',1,zhook_handle)
subroutine get_near_meshes_lonlatval(KGRID_PAR, KL, PGRID_PAR, KNEAR_NBR, KNEAR)
subroutine get_gridtype_lonlatval(PGRID_PAR, KL, PX, PY, PDX, PDY)