| Symbol | Description | Uses |
| work1 | 6 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_calc.F | 181 | KPP_CALC |
integer work1 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_calc.F | 543 | KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_calc.F | 548 | KPP_CALC |
I work1, shsq, dVsq, ustar |
| ./pkg/kpp/kpp_forcing_surf.F | 304 | KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_forcing_surf.F | 309 | KPP_FORCING_SURF |
& work1(i,j) = k |
| ./pkg/kpp/kpp_forcing_surf.F | 313 | KPP_FORCING_SURF |
k = work1(i,j) |