| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_thermodynamics.F |
273 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = 0. |
|
./pkg/shelfice/shelfice_thermodynamics.F |
277 |
SHELFICE_THERMODYNAMICS |
& velSq(I,J) = ( |
|
./pkg/shelfice/shelfice_thermodynamics.F |
283 |
SHELFICE_THERMODYNAMICS |
& velSq(I,J) = velSq(I,J) + ( |
|
./pkg/shelfice/shelfice_thermodynamics.F |
300 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = uLoc(I,J)*uLoc(I,J)+vLoc(I,J)*vLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
334 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = uLoc(I,J)*uLoc(I,J)+vLoc(I,J)*vLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
358 |
SHELFICE_THERMODYNAMICS |
ustarSq = shiCdrag * MAX( 1.D-6, velSq(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
92 |
SHELFICE_THERMODYNAMICS |
_RL velSq(1:sNx,1:sNy) |