File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_phys.F |
125 |
ECCO_PHYS |
IF ( useRealFreshWaterFlux ) sIceLoadFac=recip_rhoConst |
./model/inc/PARAMS.h |
435 |
NO PROCEDURE |
& exactConserv, linFSConserveTr, useRealFreshWaterFlux, |
./model/inc/PARAMS.h |
520 |
NO PROCEDURE |
LOGICAL useRealFreshWaterFlux |
./pkg/longstep/longstep_forcing_surf.F |
72 |
LONGSTEP_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./pkg/longstep/longstep_init_fixed.F |
34 |
LONGSTEP_INIT_FIXED |
& .AND. useRealFreshWaterFlux ) THEN |
./pkg/mom_fluxform/mom_calc_rtrans.F |
72 |
MOM_CALC_RTRANS |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
./pkg/mom_fluxform/mom_u_adv_wu.F |
52 |
MOM_U_ADV_WU |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
./pkg/mom_fluxform/mom_v_adv_wv.F |
53 |
MOM_V_ADV_WV |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
./model/src/check_pickup.F |
86 |
CHECK_PICKUP |
& .AND. .NOT.useRealFreshWaterFlux ) THEN |
./model/src/config_check.F |
327 |
CONFIG_CHECK |
IF ( useRealFreshWaterFlux .AND. useThSIce ) THEN |
./model/src/config_check.F |
508 |
CONFIG_CHECK |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
./model/src/config_check.F |
562 |
CONFIG_CHECK |
IF (rigidLid .AND. useRealFreshWaterFlux) THEN |
./model/src/config_check.F |
653 |
CONFIG_CHECK |
IF ( useRealFreshWaterFlux .AND. exactConserv |
./model/src/config_check.F |
665 |
CONFIG_CHECK |
IF ( useRealFreshWaterFlux .AND. .NOT.exactConserv |
./model/src/config_check.F |
678 |
CONFIG_CHECK |
IF (useRealFreshWaterFlux .AND. .NOT.exactConserv |
./model/src/config_check.F |
689 |
CONFIG_CHECK |
IF (useRealFreshWaterFlux |
./model/src/config_summary.F |
381 |
CONFIG_SUMMARY |
CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE, |
./model/src/config_summary.F |
399 |
CONFIG_SUMMARY |
IF ( .NOT.useRealFreshWaterFlux .OR. selectAddFluid.EQ.-1 |
./model/src/diags_oceanic_surf_flux.F |
131 |
DIAGS_OCEANIC_SURF_FLUX |
& .AND. useRealFreshWaterFlux ) THEN |
./model/src/diags_oceanic_surf_flux.F |
164 |
DIAGS_OCEANIC_SURF_FLUX |
& .AND. useRealFreshWaterFlux ) THEN |
./pkg/ptracers/ptracers_forcing_surf.F |
119 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./pkg/ptracers/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) |
./model/src/external_forcing_surf.F |
251 |
EXTERNAL_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./model/src/external_forcing_surf.F |
359 |
EXTERNAL_FORCING_SURF |
IF ( useRealFreshWaterFlux ) THEN |
./pkg/seaice/dynsolver.F |
175 |
DYNSOLVER |
IF ( useRealFreshWaterFlux ) THEN |
./pkg/seaice/seaice_dynsolver.F |
214 |
SEAICE_DYNSOLVER |
IF ( useRealFreshWaterFlux ) THEN |
./pkg/seaice/seaice_growth.F |
2271 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_growth.F |
2275 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_growth.F |
2289 |
SEAICE_GROWTH |
IF ( useRealFreshWaterFlux.AND.(nonlinFreeSurf.GT.0) |
./pkg/seaice/seaice_growth.F |
2339 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_growth.F |
2343 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_growth.F |
2454 |
SEAICE_GROWTH |
IF ( useRealFreshWaterFlux ) THEN |
./pkg/seaice/seaice_growth.F |
2643 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_growth.F |
2647 |
SEAICE_GROWTH |
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN |
./pkg/seaice/seaice_init_varia.F |
685 |
SEAICE_INIT_VARIA |
IF ( useRealFreshWaterFlux .AND. .NOT.useThSIce ) THEN |
./pkg/seaice/seaice_model.F |
247 |
SEAICE_MODEL |
IF ( useRealFreshWaterFlux ) |
./pkg/shelfice/shelfice_forcing_surf.F |
96 |
SHELFICE_FORCING_SURF |
IF ( useRealFreshWaterFlux ) THEN |
./pkg/shelfice/shelfice_thermodynamics.F |
178 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICEconserve .AND. useRealFreshWaterFlux ) rFac = 0. _d 0 |
./pkg/thsice/thsice_do_advect.F |
130 |
THSICE_DO_ADVECT |
IF ( useRealFreshWaterFlux ) |
./pkg/thsice/thsice_main.F |
264 |
THSICE_MAIN |
IF ( useRealFreshWaterFlux ) |
./pkg/thsice/thsice_main.F |
272 |
THSICE_MAIN |
ELSEIF ( thSIceAdvScheme.LE.0 .AND. useRealFreshWaterFlux ) THEN |
./model/src/ini_parms.F |
235 |
INI_PARMS |
& selectAddFluid, useRealFreshWaterFlux, convertFW2Salt, |
./model/src/ini_parms.F |
602 |
INI_PARMS |
IF (useRealFreshWaterFlux) convertFW2Salt=-1 |
./pkg/timeave/timeave_surf_flux.F |
77 |
TIMEAVE_SURF_FLUX |
& .AND. useRealFreshWaterFlux ) THEN |
./pkg/timeave/timeave_surf_flux.F |
98 |
TIMEAVE_SURF_FLUX |
& .AND. useRealFreshWaterFlux ) THEN |
./model/src/integr_continuity.F |
137 |
INTEGR_CONTINUITY |
& .AND. fluidIsWater .AND. useRealFreshWaterFlux ) THEN |
./model/src/integr_continuity.F |
266 |
INTEGR_CONTINUITY |
& .AND. fluidIsWater .AND. useRealFreshWaterFlux ) THEN |
./model/src/integr_continuity.F |
88 |
INTEGR_CONTINUITY |
IF ( fluidIsWater.AND.useRealFreshWaterFlux ) facEmP=mass2rUnit |
./model/src/pre_cg3d.F |
93 |
PRE_CG3D |
IF ( useRealFreshWaterFlux.AND.fluidIsWater ) THEN |
./model/src/set_defaults.F |
260 |
SET_DEFAULTS |
useRealFreshWaterFlux = .FALSE. |
./model/src/solve_for_pressure.F |
136 |
SOLVE_FOR_PRESSURE |
IF (useRealFreshWaterFlux.AND.fluidIsWater) THEN |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
122 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
254 |
EXTERNAL_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
IF ( useRealFreshWaterFlux ) THEN |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
254 |
EXTERNAL_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
IF ( useRealFreshWaterFlux ) THEN |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
117 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
117 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) THEN |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
& .AND. useRealFreshWaterFlux ) |