42 USE modi_open_namelist
43 USE modi_close_namelist
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'READ_SURF_ATM_CONF',0,zhook_handle)
83 CALL
posnam(inam,
'NAM_CHS_ORILAM',gfound,iluout)
84 IF (gfound)
READ(unit=inam,nml=nam_chs_orilam)
86 CALL
posnam(inam,
'NAM_SURF_ATM',gfound,iluout)
87 IF (gfound)
READ(unit=inam,nml=nam_surf_atm)
89 CALL
posnam(inam,
'NAM_WRITE_SURF_ATM',gfound,iluout)
90 IF (gfound)
READ(unit=inam,nml=nam_write_surf_atm)
96 IF (lhook) CALL dr_hook(
'READ_SURF_ATM_CONF',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_surf_atm_conf(HPROGRAM)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)