| Symbol | Description | Uses |
| work3 | 4 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_forcing_surf.F | 132 | KPP_FORCING_SURF |
_RL work3 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_forcing_surf.F | 183 | KPP_FORCING_SURF |
work3(i,j) = |
| ./pkg/kpp/kpp_forcing_surf.F | 198 | KPP_FORCING_SURF |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
| ./pkg/kpp/kpp_forcing_surf.F | 201 | KPP_FORCING_SURF |
tempVar2 = SQRT( work3(i,j) ) * p5 |