Symbol | Description | Uses |
uNorm | 7 |
File | Line number | Procedure | Code |
./model/src/calc_grid_angles.F | 45 | CALC_GRID_ANGLES |
_RL uC, vC, uNorm, tmpVal |
./model/src/calc_grid_angles.F | 83 | CALC_GRID_ANGLES |
uNorm = SQRT(uC*uC+vC*vC) |
./model/src/calc_grid_angles.F | 84 | CALC_GRID_ANGLES |
IF ( uNorm .NE. 0. _d 0 ) uNorm = 1. _d 0/uNorm |
./model/src/calc_grid_angles.F | 85 | CALC_GRID_ANGLES |
angleCosC(i,j,bi,bj) = uC*uNorm |
./model/src/calc_grid_angles.F | 86 | CALC_GRID_ANGLES |
angleSinC(i,j,bi,bj) = -vC*uNorm |