!-----------------------------------------------------------------------------
Real Function Time_Ave(X, N)
Integer :: N, i, icount
Real :: X(N), Mean
Mean=0.; icount=0
Do i=1, N
   if (X(i)/=Miss) then
      icount=icount+1; Mean=Mean+X(i)
   endif
Enddo
if (icount>0) then
   Mean=Mean/real(icount)
else
   Mean=Miss
endif
Time_Ave=Mean
End Function Time_Ave
!-----------------------------------------------------------------------------