File |
Line number |
Procedure |
Code |
./pkg/shelfice/shelfice_thermodynamics.F |
183 |
SHELFICE_THERMODYNAMICS |
fwflxFac = 0. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
455 |
SHELFICE_THERMODYNAMICS |
fwflxFac = 0. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
456 |
SHELFICE_THERMODYNAMICS |
IF ( tLoc(I,J) .GT. thetaFreeze ) fwflxFac = dFac |
./pkg/shelfice/shelfice_thermodynamics.F |
480 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) * fwflxFac |
./pkg/shelfice/shelfice_thermodynamics.F |
544 |
SHELFICE_THERMODYNAMICS |
& - freshWaterFlux*SHELFICEheatCapacity_Cp*fwflxFac ) |
./pkg/shelfice/shelfice_thermodynamics.F |
97 |
SHELFICE_THERMODYNAMICS |
_RL cFac, rFac, dFac, fwflxFac |