43 USE modi_get_default_nam_n
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SLT',0,zhook_handle)
75 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_SLT',1,zhook_handle)
81 CALL
posnam(iludes,
'NAM_SURF_SLT',gfound,iluout)
82 IF (gfound)
READ(unit=iludes,nml=nam_surf_slt)
84 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SLT',1,zhook_handle)
subroutine read_default_slt(HPROGRAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)