16 USE modi_open_namelist
17 USE modi_close_namelist
21 USE yomhook
,ONLY : lhook, dr_hook
22 USE parkind1
,ONLY : jprb
26 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
31 REAL(KIND=JPRB) :: zhook_handle
35 IF (lhook) CALL dr_hook(
'READ_NAM_PREP_SURF_N',0,zhook_handle)
52 CALL
posnam(ilunam,
'NAM_PREP_SURF_ATM',gfound,iluout)
53 IF (gfound)
READ(unit=ilunam,nml=nam_prep_surf_atm)
56 CALL
test_nam_var_surf(iluout,
'CFILETYPE', cfiletype,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'LFI ',
'FA ')
57 CALL
test_nam_var_surf(iluout,
'CFILEPGDTYPE', cfilepgdtype,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'LFI ',
'FA ')
58 IF (lhook) CALL dr_hook(
'READ_NAM_PREP_SURF_N',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine read_nam_prep_surf_n(HPROGRAM)