54 USE modi_get_default_nam_n
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
70 TYPE(teb_t),
INTENT(INOUT) :: t
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
80 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'WRITESURF_TEB_CONF_N',0,zhook_handle)
87 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_TEB_CONF_N',1,zhook_handle)
96 WRITE(unit=iludes,nml=nam_tebn)
97 WRITE(unit=iludes,nml=nam_diag_tebn)
98 WRITE(unit=iludes,nml=nam_ch_tebn)
100 IF (lhook) CALL dr_hook(
'WRITESURF_TEB_CONF_N',1,zhook_handle)
subroutine writesurf_teb_conf_n(CHT, DGMTO, DGT, DGUT, T, TOP, HPROGRAM)
subroutine init_nam_diag_tebn(DGMTO, DGT, DGUT)
subroutine init_nam_ch_tebn(CHT)
subroutine init_nam_tebn(T, TOP)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)