WAKE_DFSN.f90#64 DATA ZERO/0.0/ , HALF/0.5/ , ONE/1.0/ #164 DX = XRANGE/(FLOAT(NP)-ONE) #165 DXI = ONE/DX #445 RN = ONE #447 RN = RN + ONE + (IN-1)*DELN ! 248352 #494 RN = ONE #496 RN = RN + ONE + (IN-1)*DELN ! 215520 WAKE_DFSN2.f90#65 DATA ZERO/0.0/ , HALF/0.5/ , ONE/1.0/ #169 DX = XRANGE/(FLOAT(NP)-ONE) #170 DXI = ONE/DX #455 RN = ONE #457 RN = RN + ONE + (IN-1)*DELN ! 248352 #504 RN = ONE #506 RN = RN + ONE + (IN-1)*DELN ! 215520 WAKE_TURB.f90#50 DATA ONE/1.0/ , ZERO/0.0/ #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#49 DATA TWO/2.0/ , ONE/1.0/ , ZERO/0.0/ #60 UBYUA = ONE #70 & DU_UA = DUA_UA*(ONE-(YABS-YMIN)/YDIFF) #85 UCBYUA = AMAX1(ZERO,(ONE-TWO*HWAKE*DU_UA/(HWAKE+ZCAV))) !4317496 #89 IF ( Z.GT.ZCAV ) DUFAC = (ONE-UCBYUA)/(HWAKE-ZCAV) WAKE_XA.f90#53 DATA ONE/1.0/ #68 X0BYR = L/RINP - ONE #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#49 DATA ONE/1.0/ #64 X0BYR = L/RINP - ONE #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)&