Symbol Description Uses
worka 14


File Line number Procedure Code
./pkg/kpp/kpp_calc.F 171 KPP_CALC 
      _RL     worka ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                )
./pkg/kpp/kpp_calc.F 719 KPP_CALC 
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 725 KPP_CALC 
     U     worka )
./pkg/kpp/kpp_calc.F 728 KPP_CALC 
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_routines.F 314 BLDEPTH 
      _RL     worka(imt)
./pkg/kpp/kpp_routines.F 350 BLDEPTH 
            worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 356 BLDEPTH 
     U        worka )
./pkg/kpp/kpp_routines.F 368 BLDEPTH 
            bfsfc(i) = bo(i) + bosol(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 452 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 459 BLDEPTH 
     U     worka )
./pkg/kpp/kpp_routines.F 464 BLDEPTH 
         bfsfc(i)  = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 524 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 531 BLDEPTH 
     U     worka )
./pkg/kpp/kpp_routines.F 536 BLDEPTH 
         bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i))