Lines Matching refs:t0
30 real*8 :: t0 !t = 0 reference for wave form component
101 real*8 :: t0, t1, t2, t3, t4, vmax, vmin local
126 t0 = 0.0d00
127 t1 = t0 + blower(iBlower)%t_riseTime
134 t = mod(BC_t - blower(iBlower)%t0, t4)
136 if(t0 <= t .and. t < t1) then !rising edge
137 vmagref = (vmax - vmin)*(t - t0)/(t1 - t0) + vmin
154 t = (BC_t - blower(iBlower)%t0)/blower(iBlower)%t_cycle
210 blower(i)%t0 = 0.0d00
226 blower(i)%t0 = -phi*blower(i)%t_cycle
240 call MPI_BCAST(blower(i)%t0, 1, MPI_DOUBLE_PRECISION,
268 phi = mod((BC_t - blower(i)%t0)/blower(i)%t_cycle,1.0d0)