44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 INTEGER,
INTENT(IN) :: kgrid_par
53 INTEGER,
INTENT(IN) :: kl
54 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
55 REAL,
DIMENSION(KL),
INTENT(OUT) :: px
56 REAL,
DIMENSION(KL),
INTENT(OUT) :: py
57 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_LONLAT_ROT',0,zhook_handle)
69 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_LONLAT_ROT',1,zhook_handle)
subroutine get_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)
subroutine get_grid_coord_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, PX, PY)