50 USE modi_open_namelist
51 USE modi_close_namelist
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'READ_IDEAL_CONF_N',0,zhook_handle)
102 CALL
posnam(inam,
'NAM_DIAG_SURFN',gfound,iluout)
103 IF (gfound)
READ(unit=inam,nml=nam_diag_surfn)
112 IF (lhook) CALL dr_hook(
'READ_IDEAL_CONF_N',1,zhook_handle)
subroutine read_ideal_conf_n(DGL, HPROGRAM)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_diag_surfn(DGF)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
integer function get_current_model_index_surfex()