| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/BULKF_INT.h |
10 |
NO PROCEDURE |
& ustress, vstress |
|
./pkg/bulk_force/BULKF_INT.h |
19 |
NO PROCEDURE |
_RL vstress(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
|
./pkg/bulk_force/bulkf_forcing.F |
103 |
BULKF_FORCING |
& ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
132 |
BULKF_FORCING |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
155 |
BULKF_FORCING |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
600 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = vstress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
614 |
COST_AVERAGESFIELDS |
& vstress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
648 |
COST_AVERAGESFIELDS |
& vstress (i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
42 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,vstress,'_vstress', |
|
./pkg/exf/exf_init.F |
43 |
EXF_INIT |
& vstressconst, vstress, vstress0, vstress1, mythid ) |
|
./pkg/exf/exf_bulkformulae.F |
298 |
EXF_BULKFORMULAE |
& vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
sw = vstress(i,j,bi,bj)/sqrt(ustmp) |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tau*sw |
|
./pkg/exf/exf_bulkformulae.F |
454 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
465 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*us* |
|
./pkg/exf/exf_getffields.F |
68 |
EXF_GETFFIELDS |
& exf_inscal_vstress, vstress, vstress0, vstress1, vstressmask, |
|
./pkg/exf/exf_getffields.F |
83 |
EXF_GETFFIELDS |
& vstress, vstress0, vstress1, vstressmask, |
|
./pkg/exf/exf_getsurfacefluxes.F |
83 |
EXF_GETSURFACEFLUXES |
& masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy, |
|
./pkg/exf/exf_check_range.F |
93 |
EXF_CHECK_RANGE |
if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
97 |
EXF_CHECK_RANGE |
& i, j, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
162 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
173 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
182 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.* |
|
./pkg/exf/exf_mapfields.F |
185 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
38 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vstress,'EXFtauy ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getforcing.F |
169 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL(ustress, vstress, .TRUE., myThid) |
|
./pkg/exf/exf_fields.h |
138 |
NO PROCEDURE |
common /exf_stress_r/ ustress, vstress |
|
./pkg/exf/exf_fields.h |
140 |
NO PROCEDURE |
_RL vstress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |