Searched refs:t_cycle (Results 1 – 1 of 1) sorted by relevance
27 real*8 :: t_cycle !period of the cycle (a) component46 & t_cycle, t_fullOn, argument55 real*8 :: t_cycle( nBlowers), t_fullOn( nBlowers), local71 blower(i)%t_cycle = t_cycle(i)130 t4 = blower(iBlower)%t_cycle154 t = (BC_t - blower(iBlower)%t0)/blower(iBlower)%t_cycle226 blower(i)%t0 = -phi*blower(i)%t_cycle 268 phi = mod((BC_t - blower(i)%t0)/blower(i)%t_cycle,1.0d0)417 if(blower(iBlower)%t_cycle >= 1.0 .or. !Unreasonable cycle 418 & blower(iBlower)%t_cycle <= 0.0 .or. !periods are provided,