CAV_SRC.f90#202                  CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XRB,ZCAV,WCAV) !   3404


NUMRISE.f90#139      R15SRC = XBADJ + (XLB+15.*RB)


#235         CALL ZSTREAM(HB,WB,XLB,RB,XLR,HR,XB,YB,ZB,DZDX)                !2339196


#419               CALL ZSTREAM(HB,WB,XLB,RB,XLR,HR,XBB,YB,ZB,DZDXB)        !2800928


#420               CALL ZSTREAM(HB,WB,XLB,RB,XLR,HR,XBE,YB,ZB,DZDXE)


POSITION.f90#63      RBY2 = HALF*RB


#64      RBY3 = THIRD*RB


#93            ZCAV = HR + 4.*(X-RBY2)**2*(HB-HR)/(RB**2)                  !   5492


#103      IF ( X.LE.RB ) THEN                                               ! 13285K


#106         YCAV = (WBY2+RBY3) - (X-RB)**2/(3.*RB)                         ! 354564


#110         YCAV = (WBY2+RBY3)*SQRT(1.-((X-RB)/(XLB+XLR-RB))**2)           !1602356


#119         CALL WAKE_DIM(X,HB,WB,RB,ZWAKE,YWAKE)                          ! 12885K


VDP.f90#112      REAL D_SUBA , RB , RCL , VD1 , VD2 , RSUBM , SFACT , D_SUB_B


#330         RB = 2.2*((XNU/D_SUBA)**(2./3.))/(VONKAR*USTAR)


#370         VDEPG = 1./(RA+RB+RC)


#448         WRITE (100,1001) KURDAT , ISRC , RA , RB , RC , VDEPG          !      0


WAKE_DBG.f90#111            CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW)                        !      0


#114            CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC)


#159         CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW)                           !      0


#162         CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC)


#205            CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW)                        !      0


#208            CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC)


WAKE_DFSN.f90#69      CALL WAKE_XA(ISTAB,LRURL,XLB,RB,XAZ,XAY)                          !   5466


#251               CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#255     &              ASIGY(N-1),HB,WB,RB,ZK,YK,ASIGZ(N),ASIGY(N),DSZ(N))


#259     &              CSIGY(N-1),HB,WB,RB,ZKC,YKC,CSIGZ(N),CSIGY(N),      &


#282                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#286     &                             ASIGY(N-1),HB,WB,RB,ZK,YKDUM,SIGZXA, &


#305     &                             CSIGY(N-1),HB,WB,RB,ZKC,YKDUM,SIGZXA,&


#324                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#328     &                 ASIGY(N-1),HB,WB,RB,ZK,YKDUM,ASIGZ(N),SYDUM,     &


#333     &                 CSIGY(N-1),HB,WB,RB,ZKC,YKDUM,CSIGZ(N),SYDUM,    &


#355                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#362     &                             ASIGY(N-1),HB,WB,RB,ZKDUM,YK,SZDUM,  &


#379     &                             CSIGY(N-1),HB,WB,RB,ZKDUM,YKC,SZDUM, &


#395                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#399     &                 ASIGY(N-1),HB,WB,RB,ZKDUM,YK,SZDUM,ASIGY(N),     &


#404     &                 CSIGY(N-1),HB,WB,RB,ZKDUM,YKC,SZDUM,CSIGY(N),    &


WAKE_DFSN2.f90#70      CALL WAKE_XA(ISTAB,LRURL,XLB,RB,XAZ,XAY)                          !   5466


#257               CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#261     &              ASIGY(N-1),HB,WB,RB,ZK,YK,ASIGZ(N),ASIGY(N),DSZ(N))


#265     &              CSIGY(N-1),HB,WB,RB,ZKC,YKC,CSIGZ(N),CSIGY(N),      &


#289                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#293     &                             ASIGY(N-1),HB,WB,RB,ZK,YKDUM,SIGZXA, &


#313     &                             CSIGY(N-1),HB,WB,RB,ZKC,YKDUM,SIGZXA,&


#332                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#336     &                 ASIGY(N-1),HB,WB,RB,ZK,YKDUM,ASIGZ(N),SYDUM,     &


#341     &                 CSIGY(N-1),HB,WB,RB,ZKC,YKDUM,CSIGZ(N),SYDUM,    &


#364                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#371     &                             ASIGY(N-1),HB,WB,RB,ZKDUM,YK,SZDUM,  &


#389     &                             CSIGY(N-1),HB,WB,RB,ZKDUM,YKC,SZDUM, &


#405                  CALL WAKE_TURB(ISTAB,LRURL,XMID,XLB,RB,WAKIZ,WAKIY)


#409     &                 ASIGY(N-1),HB,WB,RB,ZKDUM,YK,SZDUM,ASIGY(N),     &


#414     &                 CSIGY(N-1),HB,WB,RB,ZKDUM,YKC,SZDUM,CSIGY(N),    &


WAKE_FQC.f90#76         CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,ZCAV,YCAV)


WAKE_SCALES.f90#41         RB = 0.0                                                       !      0


#61         RB = (AMIN1(HH,WW)**TWOBY3)*(AMAX1(HH,WW)**THIRD)


#64         XLC = 0.9*RB


#77         HR = HB + 0.22*RB


#90         WRITE (IO6,*) '   Scale length (R)               = ' , RB


WAKE_U.f90#53      CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,X,ZCAV,YCAV)               !4317496


#56      CALL WAKE_DIM(X,HB,WB,RB,HWAKE,WWAKE)


#66      YMIN = AMAX1(0.5*WB,WWAKE-RB/3.)                                  !4317496


#75      DU_UA = DU_UA*((XML+RB)/RB)**(-XDECAY)




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