Symbol Description Uses
zetu 5


File Line number Procedure Code
./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 154 CHEAPAML_COARE3_FLUX 
      L10=zu/zetu                       ! MO length
./pkg/cheapaml/cheapaml_coare3_flux.F 155 CHEAPAML_COARE3_FLUX 
      IF (zetu.GT.50. _d 0) THEN
./pkg/cheapaml/cheapaml_coare3_flux.F 68 CHEAPAML_COARE3_FLUX 
      _RL Ct,zetu,L10,charn