46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
57 INTEGER,
INTENT(OUT) :: kdim_full
58 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'GET_DIM_FULL_N',0,zhook_handle)
67 kdim_full = u%NDIM_FULL
68 IF (lhook) CALL dr_hook(
'GET_DIM_FULL_N',1,zhook_handle)
subroutine get_dim_full_n(U, KDIM_FULL)