47 USE modi_split_grid_conf_proj
48 USE modi_split_grid_cartesian
49 USE modi_get_size_full_n
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
70 REAL(KIND=JPRB) :: zhook_handle
71 CHARACTER(LEN=100) :: ycomment
74 IF (lhook) CALL dr_hook(
'SPLIT_GRID',0,zhook_handle)
84 hprogram,u%NDIM_FULL,u%NSIZE_FULL)
89 IF (lhook) CALL dr_hook(
'SPLIT_GRID',1,zhook_handle)
subroutine split_grid_cartesian(HPROGRAM, KDIM_FULL, KSIZE_FULL, KGRID_PAR, PGRID_PAR)
subroutine split_grid_conf_proj(HPROGRAM, KDIM_FULL, KSIZE_FULL, KGRID_PAR, PGRID_PAR)
subroutine split_grid(UG, U, HPROGRAM)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)