AACALC.f90#48 SWRATIO = SWEFFD/WSTAR CBLPRN.f90#45 & *WSTAR*WSTAR*XARG*XARG/(UP*UP) CHKMSG.f90#65 ELSEIF ( WSTAR.LT.0.0 .AND. & EVALFL.f90#113 IF ( WSTAR.GE.1.0E-10 ) THEN ! 0 #114 FSTAR = FB/(UP*WSTAR*WSTAR*ZI) ! 0 #122 IF ( WSTAR.GE.1.0E-10 ) THEN ! 0 #123 UOWST = UMAX(I)/WSTAR ! 0 #130 XNDIM = DXMAX(I)*WSTAR/(UMAX(I)*ZI) ! 0 #135 PWSTAR = WSTAR ! 0 EV_METEXT.f90#76 WSTAR = AWSTAR(IHOUR) HEFF.f90#60 HED1 = HSP + DHP1 + (ASUB1*WSTAR*XARG/UEFFD) ! 10690K #61 HED2 = HSP + DHP1 + (ASUB2*WSTAR*XARG/UEFFD) #66 HEN1 = HSP + DHP1 - DHP2 + (ASUB1*WSTAR*XARG/UEFFN) #67 HEN2 = HSP + DHP1 - DHP2 + (ASUB2*WSTAR*XARG/UEFFN) 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 , & #125 & WSTAR , VPTGZI , ZICONV , ZIMECH , OBULEN , SFCZ0 , & #134 & WSTAR , VPTGZI , ZICONV , ZIMECH , OBULEN , SFCZ0 , & #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#172 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & #208 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & METQA.f90#101 IF ( WSTAR.GT.4.00 ) THEN ! 4320 #105 ELSEIF ( WSTAR.EQ.0.0 ) THEN #109 WSTAR = 0.001 METSUM.f90#76 & USTAR , WSTAR , VPTGZI , ZICONV , ZIMECH , & PRTDET.f90#99 WSTAR = AWSTAR(IHOUR) REFSVC.f90#56 SV2 = 0.35*WSTAR**2 REFSWC.f90#55 SW2 = 1.6*(HEIGHT/ZICONV)**0.667*WSTAR**2 ! 3836 #59 VALUE = SQRT(0.35*WSTAR**2) ! 5904 #62 SW2 = 0.35*WSTAR**2*EXP(-(6.*(HEIGHT-ZICONV)/ZICONV)) ! 33586 SIGZ.f90#105 SZAD1 = ALPHAB*BSUB1*WSTAR*XARG/UEFFD ! 10656K #106 SZAD2 = ALPHAB*BSUB2*WSTAR*XARG/UEFFD SKCALC.f90#49 WBAR3 = 1.25*(WSTAR**3)*(CENTER/ZI) !8177330 #53 WBAR3 = 0.125*(WSTAR**3) !2517646 VDP.f90#396 IF ( WSTAR.LE.0.0 ) THEN #399 GUST_ADJ = 1.0 + 0.24*WSTAR*WSTAR/(USTAR*USTAR) ! 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