Symbol Description Uses
Ribu 7



File Line number Procedure Code
./pkg/cheapaml/cheapaml_coare3_flux.F 148 CHEAPAML_COARE3_FLUX
      Ribu=-gravity*zu*(Dt+0.61 _d 0*tta*Dq)/(tta*Du**2)
./pkg/cheapaml/cheapaml_coare3_flux.F 149 CHEAPAML_COARE3_FLUX
      IF (Ribu.LT.0. _d 0) THEN
./pkg/cheapaml/cheapaml_coare3_flux.F 150 CHEAPAML_COARE3_FLUX
          zetu=CC*Ribu/(1. _d 0+Ribu/Ribcu)   ! Unstable G and F
./pkg/cheapaml/cheapaml_coare3_flux.F 152 CHEAPAML_COARE3_FLUX
          zetu=CC*Ribu*(1. _d 0 +27. _d 0/9. _d 0*Ribu/CC) ! Stable
./pkg/cheapaml/cheapaml_coare3_flux.F 65 CHEAPAML_COARE3_FLUX
      _RL psiu,psit,zot10,Ct10,CC,Ribu