Symbol Description Uses
ju 12



File Line number Procedure Code
./pkg/kpp/kpp_routines.F 825 WSCALE
      integer iz, izp1, ju, i, jup1
./pkg/kpp/kpp_routines.F 846 WSCALE
            ju    = int( udiff / deltau )
./pkg/kpp/kpp_routines.F 847 WSCALE
            ju    = min( ju, nnj )
./pkg/kpp/kpp_routines.F 848 WSCALE
            ju    = max( ju, 0 )
./pkg/kpp/kpp_routines.F 849 WSCALE
            jup1  = ju + 1
./pkg/kpp/kpp_routines.F 852 WSCALE
            ufrac = udiff / deltau - float(ju)
./pkg/kpp/kpp_routines.F 856 WSCALE
            wbm   = fzfrac     * wmt(iz,ju  ) + zfrac * wmt(izp1,ju  )
./pkg/kpp/kpp_routines.F 860 WSCALE
            wbs   = fzfrac     * wst(iz,ju  ) + zfrac * wst(izp1,ju  )