52 USE modi_get_default_nam_n
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
72 TYPE(isba_t
),
INTENT(INOUT) :: i
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITESURF_ISBA_CONF_N',0,zhook_handle)
88 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_ISBA_CONF_N',1,zhook_handle)
101 WRITE(unit=iludes,nml=nam_isban)
102 WRITE(unit=iludes,nml=nam_isba_agsn)
103 WRITE(unit=iludes,nml=nam_sgh_isban)
104 WRITE(unit=iludes,nml=nam_diag_isban)
105 WRITE(unit=iludes,nml=nam_ch_isban)
106 WRITE(unit=iludes,nml=nam_spinup_carbn)
107 WRITE(unit=iludes,nml=nam_isba_snown)
108 WRITE(unit=iludes,nml=nam_agri)
109 WRITE(unit=iludes,nml=nam_deepsoil)
110 WRITE(unit=iludes,nml=nam_treedrag)
111 WRITE(unit=iludes,nml=nam_surf_dst)
113 IF (lhook) CALL dr_hook(
'WRITESURF_ISBA_CONF_N',1,zhook_handle)
subroutine init_nam_isba_agsn(I)
subroutine init_nam_isba_snown(I)
subroutine init_nam_sgh_isban(I)
subroutine writesurf_isba_conf_n(CHI, DGEI, DGI, DGMI, I, HPROGRAM)
subroutine init_nam_ch_isban(CHI)
subroutine init_nam_isban(I)
subroutine init_nam_spinup_carb_isban(I)
subroutine init_nam_diag_isban(DGEI, DGI, DGMI)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)