18 USE modi_default_diag_ideal
19 USE modi_read_default_ideal_n
20 USE modi_read_ideal_conf_n
23 USE yomhook
,ONLY : lhook, dr_hook
24 USE parkind1
,ONLY : jprb
31 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
32 REAL(KIND=JPRB) :: zhook_handle
36 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_IDEAL_N',0,zhook_handle)
38 lsurf_budgetc,lreset_budgetc,xdiag_tstep )
45 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_IDEAL_N',1,zhook_handle)
subroutine read_namelists_ideal_n(DGL, HPROGRAM)
subroutine default_diag_ideal(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP)
subroutine read_ideal_conf_n(DGL, HPROGRAM)
subroutine read_default_ideal_n(DGL, HPROGRAM)