42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
46 USE modi_pgd_grid_io_init_mnh
53 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
54 REAL(KIND=JPRB) :: zhook_handle
62 IF (lhook) CALL dr_hook(
'PGD_GRID_IO_INIT',0,zhook_handle)
63 IF (hprogram==
'MESONH')
THEN
65 CALL pgd_grid_io_init_mnh
68 IF (lhook) CALL dr_hook(
'PGD_GRID_IO_INIT',1,zhook_handle)
subroutine pgd_grid_io_init(HPROGRAM)