| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
wsLoc(i,j) = SQRT(wsSq) |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
102 |
EXF_WIND |
sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
104 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
114 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
160 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
164 |
EXF_WIND |
wsLoc(i,j) = SQRT(tmp1 + tmp2) |
|
./pkg/exf/exf_wind.F |
173 |
EXF_WIND |
wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1 |
|
./pkg/exf/exf_wind.F |
182 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
47 |
EXF_WIND |
_RL wsLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/exf/exf_wind.F |
78 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |