57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
64 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdef
65 REAL,
DIMENSION(:),
INTENT(OUT) :: pas
66 LOGICAL,
DIMENSION(:),
INTENT(INOUT) :: gtopd
70 REAL,
DIMENSION(SIZE(PAS,1)) :: zcount
71 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'SAT_AREA_FRAC',0,zhook_handle)
82 IF (pdef(jj,ji)==0.0 .AND. nmaskt(jj,ji)/=nundef .AND. nmaskt(jj,ji)/=0)
THEN
83 pas(nmaskt(jj,ji)) = pas(nmaskt(jj,ji)) +1.
90 WHERE ((nnpix/=0.).AND.(pas/=xundef))
91 pas(:) = pas(:) / nnpix(:)
94 IF (lhook) CALL dr_hook(
'SAT_AREA_FRAC',1,zhook_handle)
subroutine sat_area_frac(PDEF, PAS, GTOPD)