| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
209 |
NO PROCEDURE |
COMMON /exfl_wind_r/ wStress, cw, sw, sh |
|
./pkg/exf/EXF_FIELDS.h |
211 |
NO PROCEDURE |
_RL cw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_init.F |
54 |
EXF_INIT |
cw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_wind.F |
102 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
134 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
138 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
187 |
EXF_WIND |
uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
82 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j) |