42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 INTEGER,
INTENT(IN) :: kgrid_par
51 INTEGER,
INTENT(IN) :: kl
52 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
53 REAL,
DIMENSION(KL),
INTENT(OUT) :: px
54 REAL,
DIMENSION(KL),
INTENT(OUT) :: py
55 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_IGN',0,zhook_handle)
67 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_IGN',1,zhook_handle)
subroutine get_gridtype_ign(PGRID_PAR, KLAMBERT, KL, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine get_grid_coord_ign(KGRID_PAR, KL, PGRID_PAR, PX, PY)