42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
46 USE modi_default_grid_mnh
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=10),
INTENT(OUT) :: hgrid
56 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'DEFAULT_GRID',0,zhook_handle)
65 IF (hprogram==
'MESONH')
THEN
67 CALL default_grid_mnh(hgrid)
72 IF (lhook) CALL dr_hook(
'DEFAULT_GRID',1,zhook_handle)
subroutine default_grid(HPROGRAM, HGRID)