Symbol Description Uses
worka 26


File Line number Procedure Code
./pkg/kpp/kpp_calc.F 176 KPP_CALC 
      _RL worka ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                )
./pkg/kpp/kpp_calc.F 582 KPP_CALC 
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 587 KPP_CALC 
     U     worka,
./pkg/kpp/kpp_calc.F 591 KPP_CALC 
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 602 KPP_CALC 
              worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 607 KPP_CALC 
     U       worka,
./pkg/kpp/kpp_calc.F 611 KPP_CALC 
              KPPplumefrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_routines.F 367 BLDEPTH 
      _RL worka(imt)
./pkg/kpp/kpp_routines.F 420 BLDEPTH 
            worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 425 BLDEPTH 
     U       worka,
./pkg/kpp/kpp_routines.F 437 BLDEPTH 
            bfsfc(i) = bo(i) + bosol(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 444 BLDEPTH 
              worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 448 BLDEPTH 
     U         worka,
./pkg/kpp/kpp_routines.F 451 BLDEPTH 
              bfsfc(i) = bfsfc(i) + boplume(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 556 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 563 BLDEPTH 
     U       worka,
./pkg/kpp/kpp_routines.F 570 BLDEPTH 
         bfsfc(i)  = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 576 BLDEPTH 
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 580 BLDEPTH 
     U         worka,
./pkg/kpp/kpp_routines.F 583 BLDEPTH 
           bfsfc(i) = bfsfc(i) + boplume(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 652 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 659 BLDEPTH 
     U     worka,
./pkg/kpp/kpp_routines.F 666 BLDEPTH 
         bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 672 BLDEPTH 
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 676 BLDEPTH 
     U         worka,
./pkg/kpp/kpp_routines.F 679 BLDEPTH 
           bfsfc(i) = bfsfc(i) + boplume(i) * (1. - worka(i))