| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check_range.F |
103 |
EXF_CHECK_RANGE |
if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
110 |
EXF_GETFFIELDS |
& exf_inscal_uwind, uwind, uwind0, uwind1, uwindmask, |
|
./pkg/exf/exf_getffields.F |
127 |
EXF_GETFFIELDS |
& uwind, uwind0, uwind1, uwindmask, |
|
./pkg/exf/exf_getffields.F |
366 |
EXF_GETFFIELDS |
& maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_fields.h |
164 |
NO PROCEDURE |
common /exf_atm_wind_r/ uwind, vwind |
|
./pkg/exf/exf_fields.h |
165 |
NO PROCEDURE |
_RL uwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
113 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,uwind,'_uwind', |
|
./pkg/exf/exf_bulkformulae.F |
361 |
EXF_BULKFORMULAE |
& uwind(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
47 |
EXF_INIT |
& uwindconst, uwind, uwind0, uwind1, mythid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
45 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
uwind(i,j,bi,bj) = us(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
79 |
EXF_WIND |
ustmp = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) + |
|
./pkg/exf/exf_wind.F |
83 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/us(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_init_varia.F |
54 |
BULKF_INIT_VARIA |
uwind (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 |
125 |
BULKF_FORCING |
I uwind(i,j,bi,bj), vwind(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/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/seaice/SEAICE_FFIELDS.h |
73 |
NO PROCEDURE |
COMMON /SEAICE_FFIELDS/ uwind, vwind, atemp, |
|
./pkg/seaice/SEAICE_FFIELDS.h |
75 |
NO PROCEDURE |
_RL uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_do_diags.F |
104 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( uwind , 'Current uwind ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
69 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RS_W(pf,'sice',0,0,'si_UWIND',uwind,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
82 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'UWIND.',suff,uwind,myIter,myThid) |
|
./pkg/seaice/seaice_model.F |
68 |
SEAICE_MODEL |
CALL EXCH_UV_XY_RL(uwind,vwind,.TRUE.,myThid) |
|
./pkg/seaice/seaice_get_forcing.F |
419 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = bWghtWind * uwind0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
432 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = aWghtWind * uwind0(i,j,bi,bj) + |