38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
41 USE modi_get_adj_mes_cart
42 USE modi_get_adj_mes_conf_proj
43 USE modi_get_adj_mes_gauss
44 USE modi_get_adj_mes_ign
45 USE modi_get_adj_mes_lonlat_reg
46 USE modi_get_adj_mes_lonlatval
47 USE modi_get_adj_mes_lonlat_rot
53 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
54 INTEGER,
INTENT(IN) :: kgrid_par
55 INTEGER,
INTENT(IN) :: kl
56 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
57 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kleft
58 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kright
59 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: ktop
60 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kbottom
61 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'GET_ADJACENT_MESHES',0,zhook_handle)
99 IF (lhook) CALL dr_hook(
'GET_ADJACENT_MESHES',1,zhook_handle)
subroutine get_adj_mes_conf_proj(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adjacent_meshes(HGRID, KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_lonlat_reg(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_ign(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_gauss(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_cart(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_adj_mes_lonlatval(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)