64 USE modi_open_namelist
65 USE modi_close_namelist
73 USE yomhook
,ONLY : lhook, dr_hook
74 USE parkind1
,ONLY : jprb
76 USE modi_get_surf_atm_sso_rough
87 TYPE(isba_t
),
INTENT(INOUT) :: i
89 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
99 CHARACTER(LEN=4) :: yrough
101 REAL(KIND=JPRB) :: zhook_handle
106 IF (lhook) CALL dr_hook(
'READ_ISBA_CONF_N',0,zhook_handle)
111 IF (imi.NE.-1 .AND. lnam_read)
THEN
132 CALL
posnam(inam,
'NAM_ISBAN',gfound,iluout)
133 IF (gfound)
READ(unit=inam,nml=nam_isban)
134 CALL
posnam(inam,
'NAM_ISBA_AGSN',gfound,iluout)
135 IF (gfound)
READ(unit=inam,nml=nam_isba_agsn)
136 CALL
posnam(inam,
'NAM_SGH_ISBAN',gfound,iluout)
137 IF (gfound)
READ(unit=inam,nml=nam_sgh_isban)
138 CALL
posnam(inam,
'NAM_DIAG_SURFN',gfound,iluout)
139 IF (gfound)
READ(unit=inam,nml=nam_diag_surfn)
140 CALL
posnam(inam,
'NAM_DIAG_ISBAN',gfound,iluout)
141 IF (gfound)
READ(unit=inam,nml=nam_diag_isban)
142 CALL
posnam(inam,
'NAM_CH_CONTROLN',gfound,iluout)
143 IF (gfound)
READ(unit=inam,nml=nam_ch_controln)
144 CALL
posnam(inam,
'NAM_CH_ISBAN',gfound,iluout)
145 IF (gfound)
READ(unit=inam,nml=nam_ch_isban)
146 CALL
posnam(inam,
'NAM_SPINUP_CARBN',gfound,iluout)
147 IF (gfound)
READ(unit=inam,nml=nam_spinup_carbn)
148 CALL
posnam(inam,
'NAM_ISBA_SNOWN',gfound,iluout)
149 IF (gfound)
READ(unit=inam,nml=nam_isba_snown)
151 CALL
test_nam_var_surf(iluout,
'CROUGH',crough,
'NONE',
'Z01D',
'Z04D',
'BE04',
'UNDE')
153 CALL
test_nam_var_surf(iluout,
'CALBEDO',calbedo,
'EVOL',
'DRY ',
'WET ',
'MEAN',
'USER',
'CM13')
200 IF (yrough/=
"NONE")
THEN
202 WRITE(iluout,*)
" -------------------------------------------------------------------------- "
203 WRITE(iluout,*)
" Orographic roughness is done in SURF_ATM, so it should not be done in ISBA "
204 WRITE(iluout,*)
" CROUGH in NAM_ISBAn is set to 'NONE' "
206 WRITE(iluout,*)
" -------------------------------------------------------------------------- "
210 IF (lhook) CALL dr_hook(
'READ_ISBA_CONF_N',1,zhook_handle)
subroutine update_nam_ch_controln(CHI)
subroutine init_nam_isba_agsn(I)
subroutine init_nam_isba_snown(I)
subroutine init_nam_sgh_isban(I)
subroutine get_surf_atm_sso_rough(HROUGH)
subroutine update_nam_isba_snown(I)
subroutine read_isba_conf_n(CHI, DGEI, DGI, DGMI, I, HPROGRAM)
subroutine init_nam_ch_controln(CHI)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_sgh_isban(I)
subroutine update_nam_spinup_carb_isban(I)
subroutine update_nam_ch_isban(CHI)
subroutine update_nam_diag_surfn(DGF)
subroutine update_nam_isban(I)
subroutine init_nam_ch_isban(CHI)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_nam_isban(I)
subroutine init_nam_spinup_carb_isban(I)
subroutine init_nam_diag_isban(DGEI, DGI, DGMI)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine update_nam_isba_agsn(I)
subroutine update_nam_diag_isban(DGEI, DGI, DGMI)
integer function get_current_model_index_surfex()