47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
57 REAL,
DIMENSION(:,:),
INTENT(IN) :: pfrac_tile
58 REAL,
DIMENSION(:,:),
INTENT(IN) :: ptsurf_tile
59 REAL,
DIMENSION(:),
INTENT(OUT):: ptsurf
66 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'AVERAGE_TSURF',0,zhook_handle)
71 ini =
SIZE(pfrac_tile,1)
72 inp =
SIZE(pfrac_tile,2)
78 ptsurf(ji) = ptsurf(ji) + pfrac_tile(ji,jp) * ptsurf_tile(ji,jp)
82 IF (lhook) CALL dr_hook(
'AVERAGE_TSURF',1,zhook_handle)
subroutine average_tsurf(PFRAC_TILE, PTSURF_TILE, PTSURF)