| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
103 |
NO PROCEDURE |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
89 |
NO PROCEDURE |
COMMON /FFIELDS_fu/ fu |
|
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
253 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
364 |
EXF_MAPFIELDS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/monitor/monitor.F |
145 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, fu , '_fu', |
|
./model/src/diags_oceanic_surf_flux.F |
83 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( fu,foFacMom,1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
185 |
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/openad/openad_dumpAdjoint.F |
132 |
OPENAD_DUMPADJOINT |
foo4=fud |
|
./pkg/openad/the_model_main.F |
515 |
THE_MODEL_MAIN |
foo2D=fud |
|
./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 |
329 |
EXTERNAL_FIELDS_LOAD |
& fu(1,sNy,1,1), fv(1,sNy,1,1) |
|
./model/src/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./pkg/seaice/ostres.F |
55 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
63 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
96 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/seaice_fake.F |
56 |
SEAICE_FAKE |
fu(i,j,bi,bj) = fu(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
82 |
SEAICE_FAKE |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
267 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
292 |
SEAICE_GET_DYNFORCING |
& + fu(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
128 |
SEAICE_OCEAN_STRESS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_output.F |
116 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'fu',fu,myThid) |
|
./pkg/seaice/seaice_output.F |
134 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FU.',suff,fu,myIter,myThid) |
|
./model/src/ini_ffields.F |
48 |
INI_FFIELDS |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
153 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
|
./model/src/ini_forcing.F |
71 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./pkg/thsice/thsice_main.F |
313 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
103 |
NO PROCEDURE |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
89 |
NO PROCEDURE |
COMMON /FFIELDS_fu/ fu |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
188 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
103 |
NO PROCEDURE |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
89 |
NO PROCEDURE |
COMMON /FFIELDS_fu/ fu |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
188 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm2d/put_ocnvars.F |
77 |
PUT_OCNVARS |
fu(i,j,1,1)= pass_fu(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
83 |
PUT_OCNVARS |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
107 |
ATM_STORE_SURFFLUX |
& + fu(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_phys/atm_phys_driver.F |
518 |
ATM_PHYS_DRIVER |
fu(i,j,bi,bj) = halfRL |
|
./pkg/autodiff/addummy_in_stepping.F |
555 |
ADDUMMY_IN_STEPPING |
foo2D = fud |
|
./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) |
|
./pkg/cheapaml/cheapaml.F |
634 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
645 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
666 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
677 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
701 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
124 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
128 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
275 |
CTRL_MAP_FORCING |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
338 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj)=fu(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
355 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fu') fu |
|
./pkg/ctrl/ctrl_map_forcing.F |
356 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fu(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
372 |
CTRL_MAP_FORCING |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
77 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_load_climatology.F |
90 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS(fu,'Wind Stress Climatology FU',1,myThid) |
|
./pkg/ebm/ebm_wind_perturb.F |
133 |
EBM_WIND_PERTURB |
fu(i,j,bi,bj) = fu(i,j,bi,bj) |