38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 INTEGER,
INTENT(IN) :: kl
48 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
49 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdx
50 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdy
51 REAL(KIND=JPRB) :: zhook_handle
58 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_CARTESIAN',0,zhook_handle)
60 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_CARTESIAN',1,zhook_handle)
subroutine get_mesh_dim_cartesian(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)