7 psfth, psftq, psfco2, &
8 hustartype, pustar, pz0m, palb, &
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(OUT) :: kforcf
54 INTEGER,
INTENT(OUT) :: kforct
55 REAL,
DIMENSION(:),
INTENT(OUT) :: ptimef
56 REAL,
DIMENSION(:),
INTENT(OUT) :: ptimet
57 REAL,
DIMENSION(:),
INTENT(OUT) :: psfth
58 REAL,
DIMENSION(:),
INTENT(OUT) :: psftq
59 REAL,
DIMENSION(:),
INTENT(OUT) :: psfco2
60 CHARACTER(LEN=5),
INTENT(OUT) :: hustartype
63 REAL,
DIMENSION(:),
INTENT(OUT) :: pustar
64 REAL,
INTENT(OUT) :: pz0m
65 REAL,
INTENT(OUT) :: palb
66 REAL,
INTENT(OUT) :: pemis
67 REAL,
DIMENSION(:),
INTENT(OUT) :: ptsrad
71 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'DEFAULT_IDEAL_FLUX',0,zhook_handle)
155 IF (lhook) CALL dr_hook(
'DEFAULT_IDEAL_FLUX',1,zhook_handle)
subroutine default_ideal_flux(KFORCF, KFORCT, PTIMEF, PTIMET, PSFTH, PSFTQ, PSFCO2, HUSTARTYPE, PUSTAR, PZ0M, PALB, PEMIS, PTSRAD)