18 USE modi_default_watflux
19 USE modi_default_ch_dep
20 USE modi_default_diag_watflux
21 USE modi_read_default_watflux_n
22 USE modi_read_watflux_conf_n
24 USE modi_read_nam_prep_watflux_n
27 USE yomhook
,ONLY : lhook, dr_hook
28 USE parkind1
,ONLY : jprb
30 USE modi_read_watflux_conf_n
36 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
37 CHARACTER(LEN=3),
INTENT(IN) :: hinit
38 REAL(KIND=JPRB) :: zhook_handle
42 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_WATFLUX_N',0,zhook_handle)
48 lsurf_budgetc,lreset_budgetc,xdiag_tstep )
59 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_WATFLUX_N',1,zhook_handle)
subroutine read_namelists_watflux_n(WM, HPROGRAM, HINIT)
subroutine read_nam_prep_watflux_n(HPROGRAM)
subroutine read_watflux_conf_n(CHW, DGW, W, HPROGRAM)
subroutine default_watflux(PTSTEP, POUT_TSTEP, HWAT_ALB, HINTERPOL_TS)
subroutine default_ch_dep(HCH_DRY_DEP)
subroutine default_diag_watflux(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP)
subroutine read_default_watflux_n(CHW, DGW, W, HPROGRAM)