11 USE modn_ideal_flux, ONLY : nforcf, nforct, xtimef, xtimet, xsfth, xsftq, xsfco2, &
12 custartype, xustar, xz0, xalb, xemis, xtsrad
14 USE modi_default_ideal_flux
15 USE modi_read_ideal_flux_conf
20 USE yomhook
,ONLY : lhook, dr_hook
21 USE parkind1
,ONLY : jprb
25 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
26 REAL(KIND=JPRB) :: zhook_handle
30 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_IDEAL',0,zhook_handle)
32 custartype, xustar, xz0, xalb, xemis, xtsrad)
35 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_IDEAL',1,zhook_handle)
subroutine read_ideal_flux_conf(HPROGRAM)
subroutine default_ideal_flux(KFORCF, KFORCT, PTIMEF, PTIMET, PSFTH, PSFTQ, PSFCO2, HUSTARTYPE, PUSTAR, PZ0M, PALB, PEMIS, PTSRAD)
subroutine read_namelists_ideal(HPROGRAM)