7 ki,ksw,pzenith,pdir_alb, &
8 psca_alb,pemis,ptsrad,ptsurf )
50 USE modi_update_rad_sea
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
64 INTEGER,
INTENT(IN) :: ki
65 INTEGER,
INTENT(IN) :: ksw
67 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
69 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: pdir_alb
70 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: psca_alb
71 REAL,
DIMENSION(KI),
INTENT(OUT) :: pemis
72 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsrad
73 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsurf
79 REAL(KIND=JPRB) :: zhook_handle
87 IF (lhook) CALL dr_hook(
'UPDATE_ESM_SEAFLUX_N',0,zhook_handle)
89 CALL
update_rad_sea(s%CSEA_ALB,s%XSST,pzenith,xtts,s%XEMIS,s%XDIR_ALB,&
90 s%XSCA_ALB,pdir_alb,psca_alb,pemis,ptsrad )
94 IF (lhook) CALL dr_hook(
'UPDATE_ESM_SEAFLUX_N',1,zhook_handle)
subroutine update_rad_sea(HALB, PSST, PZENITH, PTT, PEMIS, PDIR_ALB, PSCA_ALB, PDIR_ALB_ATMOS, PSCA_ALB_ATMOS, PEMIS_ATMOS, PTRAD, OHANDLE_SIC, PTICE, PSIC, PICE_ALB, PU, PV)
subroutine update_esm_seaflux_n(S, KI, KSW, PZENITH, PDIR_ALB, PSCA_ALB, PEMIS, PTSRAD, PTSURF)