24 USE modi_default_ch_surf_atm
26 USE modi_default_diag_surf_atm
28 USE modi_read_default_surf_atm_n
30 USE modi_read_surf_atm_conf_n
32 USE modi_read_nam_prep_surf_n
37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
47 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
48 CHARACTER(LEN=3),
INTENT(IN) :: hinit
49 REAL(KIND=JPRB) :: zhook_handle
53 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_SURF_N',0,zhook_handle)
59 lcoef,lsurf_vars,lsurf_budgetc, &
60 lreset_budgetc,lselect, lprovar_to_diag, &
61 ldiag_grid,lfrac, xdiag_tstep, cselect )
72 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_SURF_N',1,zhook_handle)
subroutine default_diag_surf_atm(K2M, OT2MMW, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, OSELECT, OPROVAR_TO_DIAG, ODIAG_GRID, OFRAC, PDIAG_TSTEP, CSELECT)
subroutine read_surf_atm_conf_n(CHU, DGU, USS, HPROGRAM)
subroutine default_ch_surf_atm(HCHEM_SURF_FILE, OSURF_EMIS)
subroutine default_sso(HROUGH, PFRACZ0, PCOEFBE)
subroutine read_namelists_surf_n(CHU, DGU, USS, HPROGRAM, HINIT)
subroutine read_default_surf_atm_n(CHU, DGU, USS, HPROGRAM)
subroutine read_nam_prep_surf_n(HPROGRAM)