| File |
Line number |
Procedure |
Code |
|
./pkg/monitor/monitor.F |
142 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, fv , '_fv', |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
200 |
OCN_APPLY_IMPORT |
IF (useImportTau ) CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
66 |
OCN_APPLY_IMPORT |
fv(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
64 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( fv,foFacMom,1, |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
63 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
96 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
109 |
SEAICE_GET_DYNFORCING |
fv(I,J,bi,bj) = 0.5 _d 0*( oceTauY(I,J) + oceTauY(I,J-1) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
127 |
SEAICE_OCEAN_STRESS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
76 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_output.F |
101 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'fv',fv,myThid) |
|
./pkg/seaice/seaice_output.F |
113 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FV.',suff,fv,myIter,myThid) |
|
./model/src/external_fields_load.F |
249 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
310 |
EXTERNAL_FIELDS_LOAD |
& fu(1,sNy,1,1),fv(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
218 |
EXTERNAL_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./pkg/thsice/thsice_main.F |
286 |
THSICE_MAIN |
fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
120 |
OPENAD_DUMPADJOINT |
foo4=fvd |
|
./model/src/ini_forcing.F |
120 |
INI_FORCING |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./model/src/ini_forcing.F |
182 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
|
./model/src/ini_forcing.F |
48 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
83 |
NO PROCEDURE |
COMMON /FFIELDS_fv/ fv |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
97 |
NO PROCEDURE |
_RS fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
201 |
EXTERNAL_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
185 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
47 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm2d/put_ocnvars.F |
78 |
PUT_OCNVARS |
fv(i,j,1,1)= pass_fv(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
83 |
PUT_OCNVARS |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/bulk_force/bulkf_ave.F |
53 |
BULKF_AVE |
& +fv(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_forcing.F |
167 |
BULKF_FORCING |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
452 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
123 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
127 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
243 |
CTRL_MAP_FORCING |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
|
./pkg/ebm/ebm_forcing_surf.F |
71 |
EBM_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./pkg/ebm/ebm_load_climatology.F |
79 |
EBM_LOAD_CLIMATOLOGY |
fv(i,j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_load_climatology.F |
85 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
91 |
EBM_LOAD_CLIMATOLOGY |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
98 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( fv, |
|
./model/inc/FFIELDS.h |
100 |
NO PROCEDURE |
_RS fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
86 |
NO PROCEDURE |
COMMON /FFIELDS_fv/ fv |
|
./pkg/exf/exf_mapfields.F |
192 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
199 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress* |
|
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |