45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(IN) :: kgrid_par
54 INTEGER,
INTENT(IN) :: kl
55 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
56 REAL,
DIMENSION(KL),
INTENT(OUT) :: px
57 REAL,
DIMENSION(KL),
INTENT(OUT) :: py
58 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_CONF_PROJ',0,zhook_handle)
70 IF (lhook) CALL dr_hook(
'GET_GRID_COORD_CONF_PROJ',1,zhook_handle)
subroutine get_grid_coord_conf_proj(KGRID_PAR, KL, PGRID_PAR, PX, PY)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)