| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
68 |
EBM_FORCING_SURF |
& fu(i,j,bi,bj)*horiVertRatio*recip_rhoConst |
|
./pkg/ebm/ebm_load_climatology.F |
106 |
EBM_LOAD_CLIMATOLOGY |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
68 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_load_climatology.F |
75 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
98 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( fu, |
|
./pkg/exf/exf_mapfields.F |
159 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
244 |
EXF_MAPFIELDS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./model/inc/FFIELDS.h |
83 |
NO PROCEDURE |
& fu |
|
./model/inc/FFIELDS.h |
99 |
NO PROCEDURE |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bulk_force/bulkf_ave.F |
51 |
BULKF_AVE |
& +fu(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_forcing.F |
161 |
BULKF_FORCING |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./verification/OpenAD/code/FFIELDS.h |
84 |
NO PROCEDURE |
& fu |
|
./verification/OpenAD/code/FFIELDS.h |
97 |
NO PROCEDURE |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/natl_box/code/external_fields_load.F |
212 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = -(bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
261 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
358 |
EXTERNAL_FIELDS_LOAD |
& fu(1,sNy,1,1),fv(1,sNy,1,1), |
|
./model/src/external_fields_load.F |
364 |
EXTERNAL_FIELDS_LOAD |
& taux0(1,sNy,1,1),taux1(1,sNy,1,1),fu(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
172 |
EXTERNAL_FORCING_SURF |
& fu(i,j,bi,bj)*horiVertRatio*recip_rhoConst |
|
./model/src/ini_forcing.F |
117 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./model/src/ini_forcing.F |
172 |
INI_FORCING |
_EXCH_XY_R4(fu , myThid ) |
|
./model/src/ini_forcing.F |
47 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
60 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL(fu,foFacMom,1, |
|
./pkg/timeave/timeave_surf_flux.F |
56 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMULATE( uFluxtave, fu, 1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
169 |
OCN_APPLY_IMPORT |
IF (useImportTau ) CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
61 |
OCN_APPLY_IMPORT |
fu(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
192 |
CTRL_MAP_FORCING |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
89 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
225 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
115 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( fu , 'Current fu ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
71 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RS_W(pf,'sice',0,0,'fu',fu,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
84 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
250 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIce |
|
./pkg/seaice/seaice_ocean_stress.F |
293 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIce |
|
./pkg/seaice/seaice_ocean_stress.F |
300 |
SEAICE_OCEAN_STRESS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
72 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=0.5*(WINDX(I,J,bi,bj) + WINDX(I-1,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
106 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
131 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
139 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
98 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/seaice_model.F |
146 |
SEAICE_MODEL |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |