| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getsurfacefluxes.F |
78 |
EXF_GETSURFACEFLUXES |
& maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy, |
|
./pkg/exf/exf_check_range.F |
84 |
EXF_CHECK_RANGE |
if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
88 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
61 |
EXF_GETFFIELDS |
& exf_inscal_ustress, ustress, ustress0, ustress1, ustressmask, |
|
./pkg/exf/exf_getffields.F |
78 |
EXF_GETFFIELDS |
& ustress, ustress0, ustress1, ustressmask, |
|
./pkg/exf/exf_getforcing.F |
214 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL(ustress, vstress, .TRUE., myThid) |
|
./pkg/exf/exf_fields.h |
148 |
NO PROCEDURE |
common /exf_stress_r/ ustress, vstress |
|
./pkg/exf/exf_fields.h |
149 |
NO PROCEDURE |
_RL ustress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
104 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,ustress,'_ustress', |
|
./pkg/exf/exf_bulkformulae.F |
347 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tau*cw(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
360 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*us(i,j,bi,bj)* |
|
./pkg/exf/exf_mapfields.F |
140 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
141 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
150 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
151 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
160 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.* |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
41 |
EXF_INIT |
& ustressconst, ustress, ustress0, ustress1, mythid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
37 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(ustress, 'EXFtaux ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_wind.F |
102 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/sqrt(ustmp) |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
ustmp = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) + |
|
./pkg/bulk_force/BULKF_INT.h |
10 |
NO PROCEDURE |
& ustress, vstress |
|
./pkg/bulk_force/BULKF_INT.h |
18 |
NO PROCEDURE |
_RL ustress(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
|
./pkg/bulk_force/bulkf_forcing.F |
114 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
130 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
145 |
BULKF_FORCING |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
162 |
BULKF_FORCING |
& *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
270 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
282 |
COST_AVERAGESFIELDS |
& ustress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
317 |
COST_AVERAGESFIELDS |
& ustress (i,j,bi,bj) |