INTEGER yr,mo,dy,hr,mi,sc
dy=DAT_VALS(3)
tins=(((((yr-05)*12+mo)*30.+dy)*24.+hr)*60.+mi)*60.+sc+0.001*ms
dy=mod(tm,30)
tm=(tm-dy)/30
SUBROUTINE RUNCLOCK_GETTIME( yr,mo,dy,hr,mi,sc,tins )
dy=0.5*(y3+y4-y1-y2)
& tmp_v(i,j,bi,bj)*dy)/
& sqrt(dx*dx+dy*dy)
dy=0.5*(y2+y4-y1-y3)
_RL fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy