56 USE modi_get_default_nam_n
63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
76 TYPE(isba_t
),
INTENT(INOUT) :: i
78 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
89 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
'READ_DEFAULT_ISBA_N',0,zhook_handle)
97 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_ISBA_N',1,zhook_handle)
102 IF (imi.NE.-1 .AND. lnam_read)
THEN
119 CALL
posnam(iludes,
'NAM_ISBAN',gfound,iluout)
120 IF (gfound)
READ(unit=iludes,nml=nam_isban)
121 CALL
posnam(iludes,
'NAM_ISBA_AGSN',gfound,iluout)
122 IF (gfound)
READ(unit=iludes,nml=nam_isba_agsn)
123 CALL
posnam(iludes,
'NAM_SGH_ISBAN',gfound,iluout)
124 IF (gfound)
READ(unit=iludes,nml=nam_sgh_isban)
125 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
126 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
127 CALL
posnam(iludes,
'NAM_DIAG_ISBAN',gfound,iluout)
128 IF (gfound)
READ(unit=iludes,nml=nam_diag_isban)
129 CALL
posnam(iludes,
'NAM_CH_CONTROLN',gfound,iluout)
130 IF (gfound)
READ(unit=iludes,nml=nam_ch_controln)
131 CALL
posnam(iludes,
'NAM_CH_ISBAN',gfound,iluout)
132 IF (gfound)
READ(unit=iludes,nml=nam_ch_isban)
133 CALL
posnam(iludes,
'NAM_SPINUP_CARBN',gfound,iluout)
134 IF (gfound)
READ(unit=iludes,nml=nam_spinup_carbn)
135 CALL
posnam(iludes,
'NAM_ISBA_SNOWN',gfound,iluout)
136 IF (gfound)
READ(unit=iludes,nml=nam_isba_snown)
150 IF (lhook) CALL dr_hook(
'READ_DEFAULT_ISBA_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 update_nam_isba_snown(I)
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 read_default_isba_n(CHI, DGEI, DGI, DGMI, I, HPROGRAM)
subroutine init_nam_ch_isban(CHI)
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 update_nam_isba_agsn(I)
subroutine update_nam_diag_isban(DGEI, DGI, DGMI)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)