| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
153 |
NO PROCEDURE |
COMMON /exf_stress_r/ ustress, vstress |
|
./pkg/exf/EXF_FIELDS.h |
154 |
NO PROCEDURE |
_RL ustress (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
508 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
514 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_check_range.F |
72 |
EXF_CHECK_RANGE |
IF ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
34 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(ustress, 'EXFtaux ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
82 |
EXF_GETFFIELDS |
U ustress, ustress0, ustress1, |
|
./pkg/exf/exf_getforcing.F |
165 |
EXF_GETFORCING |
& CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
|
./pkg/exf/exf_getforcing.F |
245 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
|
./pkg/exf/exf_getforcing.F |
247 |
EXF_GETFORCING |
CALL EXCH_UV_AGRID_3D_RL(ustress, vstress, .TRUE., 1, myThid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
114 |
EXF_GETSURFACEFLUXES |
& ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+ |
|
./pkg/exf/exf_getsurfacefluxes.F |
161 |
EXF_GETSURFACEFLUXES |
& maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
216 |
EXF_GETSURFACEFLUXES |
ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
71 |
EXF_INIT_VARIA |
O ustress, ustress0, ustress1, |
|
./pkg/exf/exf_mapfields.F |
228 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
229 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
238 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
239 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
254 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj)) |
|
./pkg/exf/exf_monitor.F |
113 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, ustress, '_ustress', |
|
./pkg/exf/exf_monitor.F |
118 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, ustress, '_ustress', |
|
./pkg/exf/exf_wind.F |
146 |
EXF_WIND |
usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
147 |
EXF_WIND |
& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
152 |
EXF_WIND |
usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
158 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
263 |
EXF_WIND |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(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/cheapaml/CHEAPAML.h |
32 |
NO PROCEDURE |
& ustress, vstress, |
|
./pkg/cheapaml/CHEAPAML.h |
49 |
NO PROCEDURE |
_RL ustress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml.F |
585 |
CHEAPAML |
CALL EXCH_UV_AGRID_3D_RL( ustress, vstress, .TRUE., 1, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
702 |
CHEAPAML |
& *( ustress(i,j,bi,bj) + ustress(i-1,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
398 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj) = bWght*ustress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
538 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( UStressFile,' ',ustress,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
549 |
CHEAPAML_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RL( ustress,vstress, .TRUE.,1,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
662 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
691 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
716 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
745 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
70 |
CHEAPAML_INIT_VARIA |
ustress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
117 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
121 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
421 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
433 |
COST_AVERAGESFIELDS |
& ustress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
468 |
COST_AVERAGESFIELDS |
& ustress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
483 |
COST_AVERAGESFIELDS |
& tauxbar, ustress, xx_taux_mean_dummy, |
|
./pkg/ecco/cost_gencost_customize.F |
96 |
COST_GENCOST_CUSTOMIZE |
& *(ustress(i,j,bi,bj)+ustress(i+1,j,bi,bj)) |