| Symbol | Description | Uses |
| work1 | 6 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_calc.F | 175 | KPP_CALC |
integer work1 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_calc.F | 501 | KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_calc.F | 506 | KPP_CALC |
I work1, shsq, dVsq, ustar |
| ./pkg/kpp/kpp_forcing_surf.F | 276 | KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
| ./pkg/kpp/kpp_forcing_surf.F | 281 | KPP_FORCING_SURF |
& work1(i,j) = k |
| ./pkg/kpp/kpp_forcing_surf.F | 285 | KPP_FORCING_SURF |
k = work1(i,j) |