Symbol Description Uses
work1 6


File Line number Procedure Code
./pkg/kpp/kpp_calc.F 172 KPP_CALC 
      integer work1 ( ibot:itop    , jbot:jtop                    )
./pkg/kpp/kpp_calc.F 434 KPP_CALC 
            work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 438 KPP_CALC 
     &              work1(i,j) = k
./pkg/kpp/kpp_calc.F 442 KPP_CALC 
            k = work1(i,j)
./pkg/kpp/kpp_calc.F 647 KPP_CALC 
            work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 654 KPP_CALC 
     I     , work1, shsq, dVsq, ustar