56 USE modi_get_default_nam_n
63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
76 TYPE(flake_t),
INTENT(INOUT) :: f
78 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
89 REAL(KIND=JPRB) :: zhook_handle
94 IF (lhook) CALL dr_hook(
'READ_DEFAULT_FLAKE_N',0,zhook_handle)
99 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_FLAKE_N',1,zhook_handle)
100 IF (iludes==0)
RETURN
104 IF (imi.NE.-1 .AND. lnam_read)
THEN
116 CALL
posnam(iludes,
'NAM_FLAKEN',gfound,iluout)
117 IF (gfound)
READ(unit=iludes,nml=nam_flaken)
118 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
119 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
120 CALL
posnam(iludes,
'NAM_DIAG_FLAKEN',gfound,iluout)
121 IF (gfound)
READ(unit=iludes,nml=nam_diag_flaken)
122 IF (lwater_profile .AND. count(xzwat_profile /= xundef) == 0) &
123 CALL
abor1_sfx(
"XZWAT_PROFILE MUST BE DEFINED IN NAMELIST NAM_DIAG_FLAKEN IF LWATER_PROFILE=T")
124 CALL
posnam(iludes,
'NAM_CH_FLAKEN',gfound,iluout)
125 IF (gfound)
READ(unit=iludes,nml=nam_ch_flaken)
135 IF (lhook) CALL dr_hook(
'READ_DEFAULT_FLAKE_N',1,zhook_handle)
subroutine read_default_flake_n(CHF, DGF, DGMF, F, HPROGRAM)
subroutine init_nam_ch_flaken(CHF)
subroutine init_nam_diag_flaken(DGMF)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_flaken(F)
subroutine abor1_sfx(YTEXT)
subroutine update_nam_ch_flaken(CHF)
subroutine update_nam_diag_surfn(DGF)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_nam_flaken(F)
subroutine update_nam_diag_flaken(DGMF)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)