ACALC.f90#161            UEFF = US                                                   ! 740558
#181               WRITE (DBGUNT,6015) UEFF , SVEFF , SWEFF                 !      0
#386                  UEFFS(IREC,ISRC) = UEFF
ACPLUME.f90#76         COUT = (1.0/UEFF)*(FSUBY*FSUBZ)                                ! 14517K
AERCALC.f90#83         UEFF = US                                                      !2021756
#105               WRITE (DBGUNT,6015) UEFF , SVEFF , SWEFF                 !      0
#112               WRITE (DBGUNT,6016) UEFF , SVEFF , SWEFF                 !      0
AER_ACHI.f90#146            POUT = VDINP*DRYFLUX + WETFLUX*FYARG/UEFF                   !      0
#154            POUT = WETFLUX*FYARG/UEFF                                   !      0
AER_PCHI.f90#137     &                     QTK*WETFLUX*EMIFAC(ITYP)*FSUBY/UEFF
#171            AEROUT(ITYP) = QTK*WETFLUX*EMIFAC(ITYP)*FSUBY/UEFF          !      0
CPLUME.f90#74         COUT = (QTK/UEFF)*(FSUBY*FSUBZ)                                !2887752
DECAY.f90#44            D = EXP(AMAX1(EXPLIM,-DECOEF*XARG/UEFF))                    !      0
EVALCK.f90#66            UMAX(INDEX) = UEFF                                          !      0
F2INT.f90#34      UEFF = US                                                         !      0
#135            VWRAP = FSUBZ/UEFF                                          !      0
#217            VLIFT = FSUBZ/UEFF                                          !      0
IBLVAL.f90#70     &               GRIDWS(NDXEFF+1),HTEFF,UEFF)
#84         SVEFF = MAX(SVEFF,SVMIN,0.05*UEFF)
#85         UEFF = SQRT(UEFF*UEFF+2.*SVEFF*SVEFF)
#90            WRITE (DBGUNT,6014) UEFF , SVEFF , SWEFF                    !      0
#217         CALL ANYAVG(MXGLVL,GRIDHT,GRIDWS,ZLO,NDXALO,ZHI,NDXBHI,UEFF)
#228         SVEFF = MAX(SVEFF,SVMIN,0.05*UEFF)
#229         UEFF = SQRT(UEFF*UEFF+2.*SVEFF*SVEFF)
#234            WRITE (DBGUNT,6031) UEFF , SVEFF , SWEFF                    !      0
MAIN1.f90#666      REAL :: UEFF , SVEFF , SWEFF , TGEFF , UEFFD , SVEFFD , SWEFFD ,  &
METDEB.f90#81         WRITE (DBMUNT,6131) IREC , X , UEFF , SVEFF , SWEFF            !      0
METINI.f90#195      UEFF = US
OCALC.f90#235            UEFF = US                                                   !      0
#255               WRITE (DBGUNT,6015) UEFF , SVEFF , SWEFF                 !      0
#449                  UEFFS(IREC,ISRC) = UEFF
PCALC.f90#456               CALL MEANDR(UEFF,SVEFF,FRAN)                             !1105632
#533                  UEFFS(IREC,ISRC) = UEFF
PRMCALC.f90#108         CALL ANYAVG(MXGLVL,GRIDHT,GRIDWS,ZLO,NDXALO,ZHI,NDXBHI,UEFF)
#116         SVEFF = AMAX1(SVEFF,SVMIN,0.05*UEFF)
#117         UEFF = SQRT(UEFF*UEFF+2.*SVEFF*SVEFF)
#123            WRITE (IOUNIT,*) 'UEFF,  TGEFF = ' , UEFF , TGEFF
PRM_F2INT.f90#72      VWRAP = FSUBZ/UEFF                                                !      0
#90         VLIFT = FSUBZ/UEFF                                             !      0
PRM_PCHI.f90#121     &                  QTK*WETFLUX*EMIFAC(ITYP)*FSUBY/UEFF
#132     &                  *FSUBY/UEFF
RELDISP.f90#39         SRAMB = (A1*SQRT(EPSEFF)*(XARG/UEFF)**1.5)                     &
#40     &           /(1.+A2*XARG/(UEFF*TLR))
SIGY.f90#55         SVOVRU = AMAX1(SVUMIN,SVEFF/UEFF)                              ! 22818K
#57         SYAMB = (SVOVRU*XARG)/(1.+XARG/(2.*UEFF*TYEFF))**0.3
SIGYPR.f90#37         SVOVRU = AMAX1(SVUMIN,SVEFF/UEFF)                              ! 590078
#39         SYAMB = (SVOVRU*XARG)/(1.+XARG/(2.*UEFF*TYEFF))**0.3
#44         SVOVRU = AMAX1(SVUMIN,SVEFF/UEFF)                              ! 247112
SIGZ.f90#53         TTRAVL = XARG/UEFF                                             ! 50986K
SIGZPR.f90#40         TTRAVL = XARG/UEFF                                             ! 164418
#91         SZAD = ALPHAB*SWEFF*XARG/UEFF                                  !  65808
SZSFCL.f90#57         SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UEFF)*(1.0+0.7*XARG/OBULEN)&
SZSFCLPR.f90#52         SZSURF = BSUBC*(1.0-10.*(ZARG/ZI))**ALPHA1*(USTAR/UEFF)        &
#53     &            *(USTAR/UEFF)*(XARG*XARG/ABS(OBULEN))
#57         SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UEFF)*(1.0+0.7*XARG/OBULEN)&
VCALC.f90#163               CALL MEANDR(UEFF,SVEFF,FRAN)                             !1099872
#191                  UEFFS(IREC,ISRC) = UEFF
VOLCALC.f90#87         UEFF = US                                                      !1972560
#105               WRITE (DBGUNT,6015) UEFF , SVEFF , SWEFF                 !      0
#112               WRITE (DBGUNT,6016) UEFF , SVEFF , SWEFF                 !      0
WAKE_TURB.f90#53      AMBIZ = SWEFF/UEFF                                                !3843816
#54      AMBIY = SVEFF/UEFF
WAKE_XA.f90#56      AMBIZ = SWEFF/UEFF                                                !  10932
#57      AMBIY = SVEFF/UEFF
WAKE_XA2.f90#52      AMBIZ = SWEFF/UEFF                                                ! 502206
#53      AMBIY = SVEFF/UEFF


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