17 USE modi_default_flake
18 USE modi_default_ch_dep
19 USE modi_default_diag_flake
20 USE modi_read_default_flake_n
21 USE modi_read_flake_conf_n
23 USE modi_read_nam_prep_flake_n
26 USE yomhook
,ONLY : lhook, dr_hook
27 USE parkind1
,ONLY : jprb
34 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
35 CHARACTER(LEN=3),
INTENT(IN) :: hinit
36 REAL(KIND=JPRB) :: zhook_handle
40 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_FLAKE_N',0,zhook_handle)
41 CALL
default_flake(xtstep,xout_tstep,lsediments,csnow_flk,cflk_flux,cflk_alb,&
47 lwater_profile,lsurf_budgetc,lreset_budgetc,xdiag_tstep, &
59 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_FLAKE_N',1,zhook_handle)
subroutine read_default_flake_n(CHF, DGF, DGMF, F, HPROGRAM)
subroutine read_namelists_flake_n(FM, HPROGRAM, HINIT)
subroutine default_flake(PTSTEP, POUT_TSTEP, OSEDIMENTS, HSNOW_FLK, HFLK_FLUX, HFLK_ALB, OSKINTEMP)
subroutine read_flake_conf_n(CHF, DGF, DGMF, F, HPROGRAM)
subroutine read_nam_prep_flake_n(HPROGRAM)
subroutine default_diag_flake(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OWATER_PROFILE, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP, PZWAT_PROFILE)
subroutine default_ch_dep(HCH_DRY_DEP)