| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_model.F |
69 |
SEAICE_MODEL |
CALL EXCH_UV_AGRID_3D_RL( uwind, vwind, .TRUE., 1, myThid ) |
|
./pkg/seaice/seaice_output.F |
111 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VWIND.',suff,vwind,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
99 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VWIND',vwind,myThid) |
|
./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/bulk_force/BULKF.h |
30 |
NO PROCEDURE |
& wspeed, uwind, vwind, runoff, |
|
./pkg/bulk_force/BULKF.h |
43 |
NO PROCEDURE |
_RL vwind (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 |
125 |
BULKF_FORCING |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_init_varia.F |
53 |
BULKF_INIT_VARIA |
vwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/CHEAPAML.h |
23 |
NO PROCEDURE |
& uwind, vwind, solar, |
|
./pkg/cheapaml/CHEAPAML.h |
32 |
NO PROCEDURE |
_RL vwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/cheapaml/cheapaml.F |
177 |
CHEAPAML |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
224 |
CHEAPAML |
I uwind, vwind, |
|
./pkg/cheapaml/cheapaml.F |
331 |
CHEAPAML |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
175 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = 0.d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
180 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL(vwind, mythid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
281 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
370 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( VWindFile, ' ', vwind, 0, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
377 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = 0.d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
383 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL(vwind, mythid) |
|
./pkg/exf/EXF_FIELDS.h |
160 |
NO PROCEDURE |
COMMON /exf_atm_wind_r/ uwind, vwind |
|
./pkg/exf/EXF_FIELDS.h |
162 |
NO PROCEDURE |
_RL vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
496 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
521 |
EXF_BULKFORMULAE |
& vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
126 |
EXF_CHECK_RANGE |
if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
130 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
48 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vwind, 'EXFvwind',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
115 |
EXF_GETFFIELDS |
& exf_inscal_vwind, vwind, vwind0, vwind1, vwindmask, |
|
./pkg/exf/exf_getffields.F |
131 |
EXF_GETFFIELDS |
& vwind, vwind0, vwind1, vwindmask, |
|
./pkg/exf/exf_getffields.F |
143 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 * |
|
./pkg/exf/exf_getffields.F |
460 |
EXF_GETFFIELDS |
& maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getffields.F |
502 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
124 |
EXF_INIT |
& vwindconst, vwind, vwind0, vwind1, |
|
./pkg/exf/exf_monitor.F |
119 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, vwind, '_vwind', |
|
./pkg/exf/exf_wind.F |
188 |
EXF_WIND |
vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
95 |
EXF_WIND |
& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j) |