Symbol Description Uses
worka 26



File Line number Procedure Code
./pkg/kpp/kpp_calc.F 182 KPP_CALC
      _RL worka ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                )
./pkg/kpp/kpp_calc.F 629 KPP_CALC
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 634 KPP_CALC
     U     worka,
./pkg/kpp/kpp_calc.F 638 KPP_CALC
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 650 KPP_CALC
              worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 662 KPP_CALC
     U       worka,
./pkg/kpp/kpp_calc.F 666 KPP_CALC
              KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j)
./pkg/kpp/kpp_routines.F 402 BLDEPTH
      _RL worka(imt)
./pkg/kpp/kpp_routines.F 461 BLDEPTH
            worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 468 BLDEPTH
     U       worka,
./pkg/kpp/kpp_routines.F 482 BLDEPTH
            bfsfc(i) = bo(i) + bosol(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 490 BLDEPTH
              worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 498 BLDEPTH
     U         worka,
./pkg/kpp/kpp_routines.F 501 BLDEPTH
              bfsfc(i) = bfsfc(i) + boplume(i,1)*(worka(i))
./pkg/kpp/kpp_routines.F 629 BLDEPTH
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 638 BLDEPTH
     U       worka,
./pkg/kpp/kpp_routines.F 647 BLDEPTH
         bfsfc(i)  = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 654 BLDEPTH
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 661 BLDEPTH
     U         worka,
./pkg/kpp/kpp_routines.F 664 BLDEPTH
           bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i))
./pkg/kpp/kpp_routines.F 752 BLDEPTH
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 761 BLDEPTH
     U     worka,
./pkg/kpp/kpp_routines.F 770 BLDEPTH
         bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 777 BLDEPTH
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 784 BLDEPTH
     U         worka,
./pkg/kpp/kpp_routines.F 787 BLDEPTH
           bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i))