| Symbol | Description | Uses |
| alphaDT | d\rho/d\theta * d\theta | 7 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_routines.F | 1744 | KPP_DOUBLEDIFF |
_RL alphaDT ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_routines.F | 1769 | KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
| ./pkg/kpp/kpp_routines.F | 1784 | KPP_DOUBLEDIFF |
IF ( alphaDT(I,J) .GT. betaDS(I,J) |
| ./pkg/kpp/kpp_routines.F | 1786 | KPP_DOUBLEDIFF |
Rrho = MIN( alphaDT(I,J)/betaDS(I,J), Rrho0 ) |
| ./pkg/kpp/kpp_routines.F | 1793 | KPP_DOUBLEDIFF |
ELSEIF ( alphaDT(I,J) .LT. 0. _d 0 |
| ./pkg/kpp/kpp_routines.F | 1795 | KPP_DOUBLEDIFF |
& .AND.alphaDT(I,J) .GT. betaDS(I,J) ) THEN |
| ./pkg/kpp/kpp_routines.F | 1800 | KPP_DOUBLEDIFF |
Rrho = alphaDT(I,J)/betaDS(I,J) |