| Symbol | Description | Uses |
| work1 | 6 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_calc.F | 179 | KPP_CALC |
integer work1 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_calc.F | 533 | KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_calc.F | 538 | KPP_CALC |
I work1, shsq, dVsq, ustar |
| ./pkg/kpp/kpp_forcing_surf.F | 301 | KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_forcing_surf.F | 306 | KPP_FORCING_SURF |
& work1(i,j) = k |
| ./pkg/kpp/kpp_forcing_surf.F | 310 | KPP_FORCING_SURF |
k = work1(i,j) |