| Symbol | Description | Uses |
| alphaDT | d\rho/d\theta * d\theta | 7 |
| File | Line number | Procedure | Code |
| ./pkg/kpp/kpp_routines.F | 1818 | KPP_DOUBLEDIFF |
_RL alphaDT ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
| ./pkg/kpp/kpp_routines.F | 1843 | KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
| ./pkg/kpp/kpp_routines.F | 1858 | KPP_DOUBLEDIFF |
IF ( alphaDT(I,J) .GT. betaDS(I,J) |
| ./pkg/kpp/kpp_routines.F | 1860 | KPP_DOUBLEDIFF |
Rrho = MIN( alphaDT(I,J)/betaDS(I,J), Rrho0 ) |
| ./pkg/kpp/kpp_routines.F | 1867 | KPP_DOUBLEDIFF |
ELSEIF ( alphaDT(I,J) .LT. 0. _d 0 |
| ./pkg/kpp/kpp_routines.F | 1869 | KPP_DOUBLEDIFF |
& .AND.alphaDT(I,J) .GT. betaDS(I,J) ) THEN |
| ./pkg/kpp/kpp_routines.F | 1874 | KPP_DOUBLEDIFF |
Rrho = alphaDT(I,J)/betaDS(I,J) |