9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
14 INTEGER,
INTENT(IN) :: ki
15 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
16 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptot_sw
24 REAL(KIND=JPRB) :: zhook_handle
26 IF (lhook) CALL dr_hook(
'SW_DAYCYCLE',0,zhook_handle)
29 zc_sol = 4.921*1e6/3600
30 zd_corr = 1 + 0.0334 * cos(0.01721 * zjulian - 0.0552)
33 ptot_sw(jj) = zc_sol * zd_corr * cos(pzenith(jj))
36 IF (lhook) CALL dr_hook(
'SW_DAYCYCLE',1,zhook_handle)
subroutine sw_daycycle(KI, PZENITH, PTOT_SW)