DEBOUT.f90#109 & FSUBY , SZAMB , VSIGZ , SZB , SZSURF , SZ , & #118 & SZSURF , SZD1 #122 & SZBD , SZSURF , SZD2 , FSUBZD , CHID #132 & SZSURF , SZN1 #136 & SZBN , SZSURF , SZN2 , FSUBZN , CHIN MAIN1.f90#659 & SZBN , SZ3 , SZD1 , SZD2 , SZN1 , SZN2 , SZEFF , SZSURF , & REFL_HT.f90#83 SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UREFL) & #86 SZSURF = 0.0 ! 195196 #105 SZRF = (1.0-SIGF)*SZSURF + SIGF*SZREFL SIGZ.f90#84 SZAS = (1.0-SIGF)*SZSURF + SIGF*SZAMB #110 SZAD1 = SQRT(SZAD1*SZAD1+SZSURF*SZSURF) #111 SZAD2 = SQRT(SZAD2*SZAD2+SZSURF*SZSURF) SIGZPR.f90#75 SZAS = (1.0-SIGF)*SZSURF + SIGF*SZAMB #95 SZOUT = SQRT(SZAD*SZAD+SZSURF*SZSURF) SZSFCL.f90#52 SZSURF = BSUBC*(1.0-10.*(CENTER/ZI))**ALPHA1*(USTAR/UEFFD) & #57 SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UEFF)*(1.0+0.7*XARG/OBULEN)& #61 SZSURF = 0.0 !2482586 SZSFCLPR.f90#52 SZSURF = BSUBC*(1.0-10.*(ZARG/ZI))**ALPHA1*(USTAR/UEFF) & #57 SZSURF = (RTOF2/RTOFPI)*USTAR*(XARG/UEFF)*(1.0+0.7*XARG/OBULEN)& #61 SZSURF = 0.0 ! 2674
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