52 USE modi_get_default_nam_n
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
66 TYPE(flake_t),
INTENT(INOUT) :: f
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
75 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'WRITESURF_FLAKE_CONF_N',0,zhook_handle)
83 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_FLAKE_CONF_N',1,zhook_handle)
92 WRITE(unit=iludes,nml=nam_flaken)
93 WRITE(unit=iludes,nml=nam_diag_flaken)
94 WRITE(unit=iludes,nml=nam_ch_flaken)
96 IF (lhook) CALL dr_hook(
'WRITESURF_FLAKE_CONF_N',1,zhook_handle)
subroutine init_nam_ch_flaken(CHF)
subroutine init_nam_diag_flaken(DGMF)
subroutine writesurf_flake_conf_n(CHF, DGMF, F, HPROGRAM)
subroutine init_nam_flaken(F)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)