File |
Line number |
Procedure |
Code |
./pkg/icefront/icefront_thermodynamics.F |
140 |
ICEFRONT_THERMODYNAMICS |
thetaFreeze = a0*saltFreeze + eps4 |
./pkg/icefront/icefront_thermodynamics.F |
147 |
ICEFRONT_THERMODYNAMICS |
& eps1 * ( thetaFreeze - tLoc ) / |
./pkg/icefront/icefront_thermodynamics.F |
149 |
ICEFRONT_THERMODYNAMICS |
& (thetaFreeze - thetaIce)) |
./pkg/icefront/icefront_thermodynamics.F |
152 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
./pkg/icefront/icefront_thermodynamics.F |
64 |
ICEFRONT_THERMODYNAMICS |
_RL thetaFreeze, saltFreeze |
./pkg/shelfice/shelfice_thermodynamics.F |
403 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = |
./pkg/shelfice/shelfice_thermodynamics.F |
409 |
SHELFICE_THERMODYNAMICS |
& * ( tLoc(I,J) - thetaFreeze ) |
./pkg/shelfice/shelfice_thermodynamics.F |
425 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
./pkg/shelfice/shelfice_thermodynamics.F |
456 |
SHELFICE_THERMODYNAMICS |
IF ( tLoc(I,J) .GT. thetaFreeze ) fwflxFac = dFac |
./pkg/shelfice/shelfice_thermodynamics.F |
527 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*saltFreeze + eps4 |
./pkg/shelfice/shelfice_thermodynamics.F |
545 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - SHELFICEthetaSurface ) |
./pkg/shelfice/shelfice_thermodynamics.F |
547 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
./pkg/shelfice/shelfice_thermodynamics.F |
553 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
./pkg/shelfice/shelfice_thermodynamics.F |
93 |
SHELFICE_THERMODYNAMICS |
_RL thetaFreeze, saltFreeze, recip_Cp |