| ACALC.f90#91 | USTAR = URBUSTR |
| #100 | USTAR = RURUSTR |
| CHKMSG.f90#61 | ELSEIF ( USTAR.LT.0.0 ) THEN |
| DISTF.f90#43 | XLN = FB/(UP*USTAR*USTAR) |
| EVALFL.f90#81 | IF ( USTAR.GE.1.0E-10 ) THEN ! 0 |
| #82 | UOUST = UMAX(I)/USTAR ! 0 |
| #183 | & USTAR , PWSTAR , FB , FM , BOWEN , & |
| EV_METEXT.f90#75 | USTAR = AUSTAR(IHOUR) |
| MAIN1.f90#493 | REAL :: SFCHF , USTAR , WSTAR , VPTGZI , ZICONV , ZIMECH , & |
| METDAT.f90#88 | & SFCHF , USTAR , WSTAR , VPTGZI , & |
| #95 | & IHOUR , SFCHF , USTAR , WSTAR , & |
| #105 | & SFCHF , USTAR , WSTAR , VPTGZI , & |
| #112 | & IHOUR , SFCHF , USTAR , WSTAR , & |
| #124 | & IMONTH , IDAY , IJDAY , IHOUR , SFCHF , USTAR , & |
| #133 | & IMONTH , IDAY , IJDAY , IHOUR , SFCHF , USTAR , & |
| #152 | & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & |
| #162 | & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & |
| METDEB.f90#40 | & USTAR , WSTAR , OBULEN , SFCZ0 , UAVG , & |
| METDET.f90#41 | & USTAR , WSTAR , VPTGZI , ZICONV , ZIMECH , & |
| METEXT.f90#113 | USTAR = 0.0 |
| #172 | & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & |
| #208 | & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & |
| METQA.f90#94 | IF ( USTAR.GT.4.0 ) THEN ! 4320 |
| METSUM.f90#76 | & USTAR , WSTAR , VPTGZI , ZICONV , ZIMECH , & |
| OCALC.f90#78 | USTAR = URBUSTR |
| #87 | USTAR = RURUSTR |
| PCALC.f90#133 | USTAR = URBUSTR |
| #142 | USTAR = RURUSTR |
| PRTDET.f90#98 | USTAR = AUSTAR(IHOUR) |
| REFL_HT.f90#83 | SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UREFL) & |
| REFSVM.f90#51 | SV02 = 3.6*USTAR**2 |
| REFSWM.f90#60 | SWBL = 1.3*USTAR*SQRT(1.0-HEIGHT/ZI) ! 77090 |
| REFWS.f90#98 | UTHEOR = UNSTU(UREF,USTAR,PRFLHT,OBULEN,SFCZ0,PIVALU, & |
| #101 | UTHEOR = STBLU(UREF,USTAR,PRFLHT,OBULEN,SFCZ0,KVALU) ! 279684 |
| #120 | UTHEOR = UNSTU(UREF,USTAR,VLDLB,OBULEN,SFCZ0,PIVALU, & |
| #123 | UTHEOR = STBLU(UREF,USTAR,VLDLB,OBULEN,SFCZ0,KVALU)*UFACT! 5092 |
| #134 | UTHEOR = UNSTU(UREF,USTAR,ZI,OBULEN,SFCZ0,PIVALU,KVALU) ! 29426 |
| #136 | UTHEOR = STBLU(UREF,USTAR,ZI,OBULEN,SFCZ0,KVALU) ! 158228 |
| #156 | UTHEOR = UNSTU(UREF,USTAR,PRFLHT,OBULEN,SFCZ0,PIVALU, & |
| #159 | UTHEOR = STBLU(UREF,USTAR,PRFLHT,OBULEN,SFCZ0,KVALU) ! 0 |
| #170 | UTHEOR = UNSTU(UREF,USTAR,VLDLB,OBULEN,SFCZ0,PIVALU, & |
| #173 | UTHEOR = STBLU(UREF,USTAR,VLDLB,OBULEN,SFCZ0,KVALU) ! 0 |
| #204 | UTHEOR = UNSTU(UREF/UFACT2,USTAR,PRFLHT,OBULEN,SFCZ0, & |
| #207 | UTHEOR = STBLU(UREF/UFACT2,USTAR,PRFLHT,OBULEN,SFCZ0, & |
| #237 | UTHEOR = UNSTU(UREF/UFACT2,USTAR,ZI,OBULEN,SFCZ0,PIVALU, & |
| #240 | UTHEOR = STBLU(UREF/UFACT2,USTAR,ZI,OBULEN,SFCZ0,KVALU) ! 0 |
| SZSFCL.f90#52 | SZSURF = BSUBC*(1.0-10.*(CENTER/ZI))**ALPHA1*(USTAR/UEFFD) & |
| #53 | & *(USTAR/UEFFD)*(XARG*XARG/ABS(OBULEN)) |
| #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)& |
| TGINIT.f90#72 | THSTAR = USTAR**2/(G*VONKAR*OBULEN/TA) ! 2546 |
| URBCALC.f90#52 | URBHF = 0.03*DELTUR*USTAR |
| #62 | URBUSTR = MAX(USTAR,SQRT(1.6*(HT7Z0/ZIURB)**0.6667) & |
| #69 | RURUSTR = USTAR |
| VCALC.f90#82 | USTAR = URBUSTR |
| #91 | USTAR = RURUSTR |
| VDP.f90#248 | RA = (1./(VONKAR*USTAR))*(LOG(ZRDEP/SFCZ0)+5.0*ZRDEP/OBULEN) ! 0 |
| #254 | RA = (1./(VONKAR*USTAR)) & |
| #297 | ELSEIF ( (USTAR.LT.(A/DQ) .AND. ((IHOUR.LT.8) .OR. (IHOUR.GT.19& |
| #302 | IF ( (USTAR.LT.(A/DQ)) .AND. & |
| #322 | RAC = 0.3*RACI/USTAR |
| #330 | RB = 2.2*((XNU/D_SUBA)**(2./3.))/(VONKAR*USTAR) |
| #380 | T1 = USTAR*USTAR/XNU ! 0 |
| #399 | GUST_ADJ = 1.0 + 0.24*WSTAR*WSTAR/(USTAR*USTAR) ! 0 |
| #403 | RD(I) = 1.0/(GUST_ADJ*USTAR*(SCHMIDT(I)**(-2./3.)+XINERT)& |
| #423 | RP = 500./USTAR ! 0 |
| #425 | RP = 500./(USTAR*(1.-(300./OBULEN))) ! 0 |
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