| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
169 |
NO PROCEDURE |
COMMON /exf_atm_wind_r/ uwind, vwind |
|
./pkg/exf/EXF_FIELDS.h |
170 |
NO PROCEDURE |
_RL uwind (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_check_range.F |
91 |
EXF_CHECK_RANGE |
IF ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
95 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
42 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
130 |
EXF_GETFFIELDS |
U uwind, uwind0, uwind1, |
|
./pkg/exf/exf_getffields.F |
150 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
165 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
591 |
EXF_GETFFIELDS |
& maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
626 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
655 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
736 |
EXF_GETFFIELDS |
& uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
762 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
112 |
EXF_INIT_VARIA |
O uwind, uwind0, uwind1, |
|
./pkg/exf/exf_init_varia.F |
136 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
95 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_monitor.F |
132 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, uwind, '_uwind', |
|
./pkg/exf/exf_wind.F |
116 |
EXF_WIND |
wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
120 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(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 |
264 |
EXF_WIND |
& * uwind(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
76 |
SEAICE_MODEL |
CALL EXCH_UV_AGRID_3D_RL( uwind, vwind, .TRUE., 1, myThid ) |
|
./pkg/seaice/seaice_output.F |
113 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UWIND',uwind,myThid) |
|
./pkg/seaice/seaice_output.F |
131 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UWIND.',suff,uwind,myIter,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 |
42 |
NO PROCEDURE |
_RL uwind (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 |
52 |
BULKF_INIT_VARIA |
uwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
112 |
CHEAPAML_LANL_FLUX |
uw=uwind(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
112 |
COST_GENCOST_CUSTOMIZE |
CALL ROTATE_UV2EN_RL(uwind,vwind,zonwind,merwind, |