| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check_range.F |
122 |
EXF_CHECK_RANGE |
if ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
123 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
95 |
EXF_GETFFIELDS |
& wspeed, wspeed0, wspeed1, wspeedmask, |
|
./pkg/exf/exf_fields.h |
158 |
NO PROCEDURE |
common /exf_wspeed_r/ wspeed |
|
./pkg/exf/exf_fields.h |
159 |
NO PROCEDURE |
_RL wspeed (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
118 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,wspeed,'_wspeed', |
|
./pkg/exf/exf_init.F |
53 |
EXF_INIT |
& wspeedconst, wspeed, wspeed0, wspeed1, mythid ) |
|
./pkg/exf/exf_wind.F |
135 |
EXF_WIND |
us(i,j,bi,bj) = wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
136 |
EXF_WIND |
sh(i,j,bi,bj) = max(wspeed(i,j,bi,bj),umin) |
|
./pkg/exf/exf_wind.F |
138 |
EXF_WIND |
wspeed(i,j,bi,bj) = sh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_init_varia.F |
53 |
BULKF_INIT_VARIA |
wspeed(i,j,bi,bj) = 0. |
|
./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.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/fizhi/fizhi_turb.F |
222 |
TURBIO |
_RL wspeed(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
656 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
657 |
TURBIO |
if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20 |
|
./pkg/fizhi/fizhi_turb.F |
763 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
222 |
TURBIO |
_RL wspeed(istrip) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
656 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
657 |
TURBIO |
if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
763 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |
|
./pkg/thsice/thsice_get_bulkf.F |
100 |
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 |
106 |
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 |
78 |
THSICE_GET_BULKF |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |