Symbol Description Uses
zo 12


File Line number Procedure Code
./pkg/cheapaml/cheapaml_coare3_flux.F 117 CHEAPAML_COARE3_FLUX 
      zo = 0.0001 _d 0
./pkg/cheapaml/cheapaml_coare3_flux.F 131 CHEAPAML_COARE3_FLUX 
      u10 = Du*LOG(10. _d 0/zo)/LOG(zu/zo)
./pkg/cheapaml/cheapaml_coare3_flux.F 177 CHEAPAML_COARE3_FLUX 
        zo=charn*usr*usr/gravity + 0.11 _d 0*visa/usr    !after Smith 1988
./pkg/cheapaml/cheapaml_coare3_flux.F 179 CHEAPAML_COARE3_FLUX 
        zo=(50./twoPI)*lwave*(usr/cwave)**4.5 _d 0
./pkg/cheapaml/cheapaml_coare3_flux.F 182 CHEAPAML_COARE3_FLUX 
        zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5
./pkg/cheapaml/cheapaml_coare3_flux.F 185 CHEAPAML_COARE3_FLUX 
       rr=zo*usr/visa
./pkg/cheapaml/cheapaml_coare3_flux.F 194 CHEAPAML_COARE3_FLUX 
     &    ' rr,zo,usr,visa=', rr, zo, usr, visa
./pkg/cheapaml/cheapaml_coare3_flux.F 198 CHEAPAML_COARE3_FLUX 
     &    ' ln(zu/zo),psu,diff,zL*=', LOG(zu/zo), psu, LOG(zu/zo)-psu,
./pkg/cheapaml/cheapaml_coare3_flux.F 214 CHEAPAML_COARE3_FLUX 
       usr=Du*xkar/(LOG(zu/zo)-psiu(zu/L))
./pkg/cheapaml/cheapaml_coare3_flux.F 60 CHEAPAML_COARE3_FLUX 
      _RL zo,zot,zoq,RR,zL