| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
176 |
EXF_BULKFORMULAE |
_RL ustmp |
|
./pkg/exf/exf_bulkformulae.F |
276 |
EXF_BULKFORMULAE |
ustmp = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) + |
|
./pkg/exf/exf_bulkformulae.F |
278 |
EXF_BULKFORMULAE |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
279 |
EXF_BULKFORMULAE |
us = sqrt(ustmp) |
|
./pkg/exf/exf_bulkformulae.F |
297 |
EXF_BULKFORMULAE |
ustmp = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) + |
|
./pkg/exf/exf_bulkformulae.F |
299 |
EXF_BULKFORMULAE |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
300 |
EXF_BULKFORMULAE |
ustar = sqrt(ustmp/atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
cw = ustress(i,j,bi,bj)/sqrt(ustmp) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
sw = vstress(i,j,bi,bj)/sqrt(ustmp) |