PRIME1.f90#52
      DUA_UA = 0.7
WAKE_TURB.f90#62
      XFAC = ONE/(((XML+RINP)/RINP)**XDECAY-DUA_UA)
#63
      TIZ = FARIZ*(ONE+((WFZ*WIZ0/FARIZ-ONE)+DUA_UA)*XFAC)
#64
      TIY = FARIY*(ONE+((WFY*WIY0/FARIY-ONE)+DUA_UA)*XFAC)
WAKE_U.f90#67
      DU_UA = DUA_UA
#70
     &     DU_UA = DUA_UA*(ONE-(YABS-YMIN)/YDIFF)
WAKE_XA.f90#71
      XAZ = X0BYR + (DUA_UA+(WFZ*WIZ0-FARIZ*(ONE-DUA_UA))/(FARIZT-FARIZ)&
#75
      XAY = X0BYR + (DUA_UA+(WFY*WIY0-FARIY*(ONE-DUA_UA))/(FARIYT-FARIY)&
WAKE_XA2.f90#67
      XAZ = X0BYR + (DUA_UA+(WFZ*WIZ0-FARIZ*(ONE-DUA_UA))/(FARIZT-FARIZ)&
#71
      XAY = X0BYR + (DUA_UA+(WFY*WIY0-FARIY*(ONE-DUA_UA))/(FARIYT-FARIY)&

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use