44 USE modi_open_namelist
45 USE modi_close_namelist
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 INTEGER,
INTENT(OUT) :: kzsfilter
72 REAL(KIND=JPRB) :: zhook_handle
74 namelist/nam_zs_filter/nzsfilter
81 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_OROG_FILTER',0,zhook_handle)
93 CALL
posnam(ilunam,
'NAM_ZS_FILTER',gfound,iluout)
94 IF (gfound)
READ(unit=ilunam,nml=nam_zs_filter)
100 kzsfilter = nzsfilter
101 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_OROG_FILTER',1,zhook_handle)
subroutine read_nam_pgd_orog_filter(HPROGRAM, KZSFILTER)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)