42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 INTEGER,
INTENT(IN) :: kludes
51 CHARACTER(LEN=5),
INTENT(IN) :: hemisparam
52 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'WRITE_DST_CONF',0,zhook_handle)
65 cemisparam_dst=hemisparam
66 WRITE(unit=kludes,nml=nam_surf_dst)
67 IF (lhook) CALL dr_hook(
'WRITE_DST_CONF',1,zhook_handle)
subroutine write_dst_conf(KLUDES, HEMISPARAM)