42 USE modi_get_interp_halo_ol
45 USE modi_get_interp_halo_mnh
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
58 INTEGER,
INTENT(OUT):: khalo
63 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'GET_INTERP_HALO',0,zhook_handle)
69 IF (hprogram==
'MESONH')
THEN
71 CALL get_interp_halo_mnh(khalo)
80 IF (lhook) CALL dr_hook(
'GET_INTERP_HALO',1,zhook_handle)
subroutine get_interp_halo_ol(HGRID, KHALO)
subroutine get_interp_halo(HPROGRAM, HGRID, KHALO)