43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
47 USE modi_default_schemes_mnh
55 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
56 CHARACTER(LEN=6),
INTENT(OUT) :: hnature
57 CHARACTER(LEN=6),
INTENT(OUT) :: hsea
58 CHARACTER(LEN=6),
INTENT(OUT) :: htown
59 CHARACTER(LEN=6),
INTENT(OUT) :: hwater
60 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'DEFAULT_SCHEMES',0,zhook_handle)
69 IF (hprogram==
'MESONH')
THEN
71 CALL default_schemes_mnh(hnature,hsea,htown,hwater)
79 IF (lhook) CALL dr_hook(
'DEFAULT_SCHEMES',1,zhook_handle)
subroutine default_schemes(HPROGRAM, HNATURE, HSEA, HTOWN, HWATER)