File |
Line number |
Procedure |
Code |
./pkg/shelfice/shelfice_thermodynamics.F |
181 |
SHELFICE_THERMODYNAMICS |
dFac = 0. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
182 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICEadvDiffHeatFlux ) dFac = 1. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
456 |
SHELFICE_THERMODYNAMICS |
IF ( tLoc(I,J) .GT. thetaFreeze ) fwflxFac = dFac |
./pkg/shelfice/shelfice_thermodynamics.F |
474 |
SHELFICE_THERMODYNAMICS |
& * SHELFICEkappa * ( 1. _d 0 - dFac ) |
./pkg/shelfice/shelfice_thermodynamics.F |
97 |
SHELFICE_THERMODYNAMICS |
_RL cFac, rFac, dFac, fwflxFac |