| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
146 |
NO PROCEDURE |
COMMON /exf_stress_r/ ustress, vstress |
|
./pkg/exf/EXF_FIELDS.h |
148 |
NO PROCEDURE |
_RL vstress (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
507 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
513 |
EXF_BULKFORMULAE |
if ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
529 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
111 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
35 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vstress, 'EXFtauy ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
69 |
EXF_GETFFIELDS |
U vstress, vstress0, vstress1, vstressmask, |
|
./pkg/exf/exf_getffields.F |
84 |
EXF_GETFFIELDS |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getforcing.F |
171 |
EXF_GETFORCING |
& CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
|
./pkg/exf/exf_getforcing.F |
239 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
|
./pkg/exf/exf_getforcing.F |
241 |
EXF_GETFORCING |
CALL EXCH_UV_AGRID_3D_RL(ustress, vstress, .TRUE., 1, myThid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
150 |
EXF_GETSURFACEFLUXES |
vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
99 |
EXF_GETSURFACEFLUXES |
& masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy, |
|
./pkg/exf/exf_init.F |
85 |
EXF_INIT |
& vstressconst, vstress, vstress0, vstress1, |
|
./pkg/exf/exf_mapfields.F |
263 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
264 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
273 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
274 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
281 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
289 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj)) |
|
./pkg/exf/exf_monitor.F |
111 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, vstress, '_vstress', |
|
./pkg/exf/exf_monitor.F |
116 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, vstress, '_vstress', |
|
./pkg/exf/exf_wind.F |
127 |
EXF_WIND |
& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj) |
|
./pkg/exf/exf_wind.F |
128 |
EXF_WIND |
& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj) |
|
./pkg/exf/exf_wind.F |
132 |
EXF_WIND |
& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
138 |
EXF_WIND |
sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./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 |
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 |
146 |
BULKF_FORCING |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
168 |
BULKF_FORCING |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/cheapaml/CHEAPAML.h |
33 |
NO PROCEDURE |
& ustress, vstress, |
|
./pkg/cheapaml/CHEAPAML.h |
51 |
NO PROCEDURE |
_RL vstress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml.F |
668 |
CHEAPAML |
CALL EXCH_UV_AGRID_3D_RL( ustress, vstress, .TRUE., 1, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
754 |
CHEAPAML |
& *( vstress(i,j,bi,bj) + vstress(i,j-1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
390 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj) = bWght*vstress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
533 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( VStressFile,' ',vstress,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
538 |
CHEAPAML_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RL( ustress,vstress, .TRUE.,1,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
634 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
663 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
688 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
717 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
72 |
CHEAPAML_INIT_VARIA |
vstress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
118 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
122 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
408 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = vstress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
422 |
COST_AVERAGESFIELDS |
& vstress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
456 |
COST_AVERAGESFIELDS |
& vstress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
474 |
COST_AVERAGESFIELDS |
& tauybar, vstress, xx_tauy_mean_dummy, |