File |
Line number |
Procedure |
Code |
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
./pkg/icefront/icefront_thermodynamics.F |
152 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
./pkg/icefront/icefront_thermodynamics.F |
182 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = 0. _d 0 |
./pkg/icefront/icefront_thermodynamics.F |
191 |
ICEFRONT_THERMODYNAMICS |
CALL DIAGNOSTICS_FILL_RS(FreshWaterFlux,'ICFfwFlx', |
./pkg/icefront/icefront_thermodynamics.F |
65 |
ICEFRONT_THERMODYNAMICS |
_RS FreshWaterFlux( 1:sNx, 1:sNy ) |