Symbol Description Uses
ju 12



File Line number Procedure Code
./pkg/kpp/kpp_routines.F 603 WSCALE
      integer iz, izp1, ju, i, jup1
./pkg/kpp/kpp_routines.F 624 WSCALE
            ju    = int( udiff / deltau )
./pkg/kpp/kpp_routines.F 625 WSCALE
            ju    = min( ju, nnj )
./pkg/kpp/kpp_routines.F 626 WSCALE
            ju    = max( ju, 0 )
./pkg/kpp/kpp_routines.F 627 WSCALE
            jup1  = ju + 1
./pkg/kpp/kpp_routines.F 630 WSCALE
            ufrac = udiff / deltau - float(ju)
./pkg/kpp/kpp_routines.F 634 WSCALE
            wbm   = fzfrac     * wmt(iz,ju  ) + zfrac * wmt(izp1,ju  )
./pkg/kpp/kpp_routines.F 638 WSCALE
            wbs   = fzfrac     * wst(iz,ju  ) + zfrac * wst(izp1,ju  )