| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
163 |
NO PROCEDURE |
COMMON /exf_wspeed_r/ wspeed |
|
./pkg/exf/EXF_FIELDS.h |
164 |
NO PROCEDURE |
_RL wspeed (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
428 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
110 |
EXF_CHECK_RANGE |
IF ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
111 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
115 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
36 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(wspeed, 'EXFwspee',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
115 |
EXF_GETFFIELDS |
U wspeed, wspeed0, wspeed1, |
|
./pkg/exf/exf_init_varia.F |
147 |
EXF_INIT_VARIA |
O wspeed, wspeed0, wspeed1, |
|
./pkg/exf/exf_monitor.F |
138 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, wspeed, '_wspeed', |
|
./pkg/exf/exf_wind.F |
133 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
203 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
220 |
EXF_WIND |
uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
221 |
EXF_WIND |
vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
234 |
EXF_WIND |
& wspeed(i,j,bi,bj)=wspeed(i,j,bi,bj)+ |
|
./pkg/exf/exf_wind.F |
248 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
263 |
EXF_WIND |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
265 |
EXF_WIND |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_turb.F |
238 |
TURBIO |
_RL wspeed(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
633 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
634 |
TURBIO |
if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20 |
|
./pkg/fizhi/fizhi_turb.F |
740 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |
|
./pkg/seaice/seaice_growth.F |
736 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/thsice/thsice_get_bulkf.F |
102 |
THSICE_GET_BULKF |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
124 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
132 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_exf.F |
396 |
THSICE_GET_EXF |
usn = wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
435 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
437 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
141 |
BLING_AIRSEAFLUX |
wind(i,j,bi,bj) = wspeed(i,j,bi,bj) |
|
./pkg/bulk_force/BULKF.h |
30 |
NO PROCEDURE |
& wspeed, uwind, vwind, runoff, |
|
./pkg/bulk_force/BULKF.h |
41 |
NO PROCEDURE |
_RL wspeed (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bulk_force/bulkf_forcing.F |
109 |
BULKF_FORCING |
I uwind(i,j,bi,bj),vwind(i,j,bi,bj),wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
126 |
BULKF_FORCING |
I wspeed(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
90 |
BULKF_FORCING |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_init_varia.F |
51 |
BULKF_INIT_VARIA |
wspeed(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_customize.F |
187 |
COST_GENCOST_CUSTOMIZE |
& wspeed(i,j,bi,bj)*maskC(i,j,1,bi,bj) |