| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
108 |
NO PROCEDURE |
_RS saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
94 |
NO PROCEDURE |
COMMON /FFIELDS_saltFlux/ saltFlux |
|
./pkg/exf/exf_mapfields.F |
342 |
EXF_MAPFIELDS |
saltFlux(I,J,bi,bj) = saltflx(I,J,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
68 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( saltFlux,tmpFac,1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
186 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS( saltFlux, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
92 |
OCN_APPLY_IMPORT |
saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
294 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
109 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( saltFlux, fixVal, 1, myThid ) |
|
./model/src/external_forcing_surf.F |
222 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./pkg/seaice/seaice_growth.F |
2000 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2059 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2089 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2134 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2135 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2136 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
241 |
SEAICE_MODEL |
_EXCH_XY_RS(saltFlux, myThid ) |
|
./pkg/seaice/seaice_tracer_phys.F |
207 |
SEAICE_TRACER_PHYS |
saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
212 |
SEAICE_TRACER_PHYS |
saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj)) |
|
./model/src/ini_ffields.F |
53 |
INI_FFIELDS |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
156 |
INI_FORCING |
CALL EXCH_XY_RS( saltFlux, myThid ) |
|
./model/src/ini_forcing.F |
97 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
|
./pkg/thsice/thsice_ave.F |
103 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_salFx_Ave, saltFlux, |
|
./pkg/thsice/thsice_ave.F |
138 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_do_advect.F |
112 |
THSICE_DO_ADVECT |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
356 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
434 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
108 |
NO PROCEDURE |
_RS saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
94 |
NO PROCEDURE |
COMMON /FFIELDS_saltFlux/ saltFlux |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
112 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( saltFlux, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
148 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
191 |
INI_FORCING |
CALL EXCH_XY_RS( saltFlux, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
108 |
NO PROCEDURE |
_RS saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
94 |
NO PROCEDURE |
COMMON /FFIELDS_saltFlux/ saltFlux |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
112 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( saltFlux, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
148 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
191 |
INI_FORCING |
CALL EXCH_XY_RS( saltFlux, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm2d/put_ocnvars.F |
81 |
PUT_OCNVARS |
saltFlux(i,j,1,1)= sFluxFromIce(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
85 |
PUT_OCNVARS |
_EXCH_XY_RS(saltFlux, myThid ) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
93 |
ATM_STORE_SURFFLUX |
& + saltFlux(i,j,bi,bj)*cplTimeFraction |
|
./pkg/ctrl/ctrl_map_forcing.F |
353 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:11).EQ.'xx_saltflux') saltFlux |
|
./pkg/ctrl/ctrl_map_forcing.F |
354 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=saltFlux(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
371 |
CTRL_MAP_FORCING |
CALL EXCH_XY_RS( saltFlux , myThid ) |