56 USE modi_open_namelist
57 USE modi_close_namelist
65 USE yomhook
,ONLY : lhook, dr_hook
66 USE parkind1
,ONLY : jprb
78 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
88 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'READ_WATFLUX_CONF_N',0,zhook_handle)
98 IF (imi.NE.-1 .AND. lnam_read)
THEN
113 CALL
posnam(inam,
'NAM_WATFLUXN',gfound,iluout)
114 IF (gfound)
READ(unit=inam,nml=nam_watfluxn)
115 CALL
posnam(inam,
'NAM_DIAG_SURFN',gfound,iluout)
116 IF (gfound)
READ(unit=inam,nml=nam_diag_surfn)
117 CALL
posnam(inam,
'NAM_CH_WATFLUXN',gfound,iluout)
118 IF (gfound)
READ(unit=inam,nml=nam_ch_watfluxn)
122 CALL
test_nam_var_surf(iluout,
'CINTERPOL_TS',cinterpol_ts,
'QUADRA',
'LINEAR',
'UNIF ',
'NONE ')
141 IF (lhook) CALL dr_hook(
'READ_WATFLUX_CONF_N',1,zhook_handle)
subroutine init_nam_watfluxn(W)
subroutine init_nam_ch_watfluxn(CHW)
subroutine init_nam_diag_surfn(DGF)
subroutine read_watflux_conf_n(CHW, DGW, W, HPROGRAM)
subroutine update_nam_diag_surfn(DGF)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine update_nam_watfluxn(W)
subroutine update_nam_ch_watfluxn(CHW)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
integer function get_current_model_index_surfex()