7 hgrid,orect,kdim1,kdim2)
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
53 CHARACTER(LEN=10),
INTENT(OUT) :: hgrid
54 LOGICAL,
INTENT(OUT) :: orect
55 INTEGER,
INTENT(OUT) :: kdim1
56 INTEGER,
INTENT(OUT) :: kdim2
57 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'GET_SURF_GRID_DIM_N',0,zhook_handle)
67 CALL
get_grid_dim(ug%CGRID,ug%NGRID_PAR,ug%XGRID_PAR,orect,kdim1,kdim2)
68 IF (lhook) CALL dr_hook(
'GET_SURF_GRID_DIM_N',1,zhook_handle)
subroutine get_grid_dim(HGRID, KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_surf_grid_dim_n(UG, HGRID, ORECT, KDIM1, KDIM2)