60 USE yomhook
,ONLY : lhook, dr_hook
61 USE parkind1
,ONLY : jprb
71 INTEGER,
INTENT(IN) :: ki
76 INTEGER :: jcat,jpix,jj
77 REAL,
DIMENSION(KI) :: zcount
79 REAL,
DIMENSION(KI) :: zsso_slope
80 REAL(KIND=JPRB) :: zhook_handle
83 IF (lhook) CALL dr_hook(
'TOPD_TO_ISBA_SLOPE',0,zhook_handle)
90 zsso_slope = uss%XSSO_SLOPE
92 zcount(:) =
REAL(nnpix(:))
100 IF (nmaskt(jcat,jpix) /= nundef)
THEN
101 zsso_slope(nmaskt(jcat,jpix)) = zsso_slope(nmaskt(jcat,jpix)) + xtanb(jcat,jpix)
106 WHERE (zcount /= 0.0)
107 zsso_slope = zsso_slope / zcount
110 uss%XSSO_SLOPE = zsso_slope
115 IF (lhook) CALL dr_hook(
'TOPD_TO_ISBA_SLOPE',1,zhook_handle)
subroutine topd_to_isba_slope(USS, KI)