| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
412 |
NO PROCEDURE |
& fluidIsAir, fluidIsWater, |
|
./model/inc/PARAMS.h |
456 |
NO PROCEDURE |
LOGICAL fluidIsWater |
|
./model/src/calc_grad_phi_hyd.F |
165 |
CALC_GRAD_PHI_HYD |
IF ( fluidIsWater .AND. usingZCoords ) THEN |
|
./model/src/calc_grad_phi_hyd.F |
190 |
CALC_GRAD_PHI_HYD |
ELSEIF ( fluidIsWater ) THEN |
|
./model/src/calc_phi_hyd.F |
636 |
CALC_PHI_HYD |
IF ( fluidIsWater ) THEN |
|
./pkg/mom_common/mom_quasihydrostatic.F |
65 |
MOM_QUASIHYDROSTATIC |
ELSEIF ( fluidIsWater ) THEN |
|
./pkg/monitor/mon_init.F |
45 |
MON_INIT |
IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3 |
|
./model/src/config_check.F |
612 |
CONFIG_CHECK |
IF ( fluidIsWater ) THEN |
|
./model/src/config_summary.F |
109 |
CONFIG_SUMMARY |
CALL WRITE_0D_L( fluidIsWater, INDEX_NONE, |
|
./model/src/config_summary.F |
283 |
CONFIG_SUMMARY |
IF ( fluidIsWater ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
115 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( fluidIsWater .AND. |
|
./model/src/diags_oceanic_surf_flux.F |
151 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( fluidIsWater .AND. |
|
./model/src/diags_oceanic_surf_flux.F |
81 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( fluidIsWater .OR. useAtm_Phys ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
94 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
1168 |
DO_OCEANIC_PHYS |
IF ( fluidIsWater .AND. useDiagnostics ) THEN |
|
./model/src/do_oceanic_phys.F |
239 |
DO_OCEANIC_PHYS |
IF ( useDiagnostics .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
327 |
DO_OCEANIC_PHYS |
IF ( useThSIce .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
510 |
DO_OCEANIC_PHYS |
IF ( useThSIce .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
537 |
DO_OCEANIC_PHYS |
IF ( useShelfIce .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
558 |
DO_OCEANIC_PHYS |
IF ( useICEFRONT .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
601 |
DO_OCEANIC_PHYS |
IF ( fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
764 |
DO_OCEANIC_PHYS |
IF ( fluidIsWater ) THEN |
|
./pkg/shap_filt/shap_filt_diagnostics_init.F |
68 |
SHAP_FILT_DIAGNOSTICS_INIT |
IF ( fluidIsWater .OR. useAIM ) trUnits = 'g/kg' |
|
./model/src/ini_eos.F |
44 |
INI_EOS |
IF ( .NOT.fluidIsWater ) RETURN |
|
./model/src/ini_linear_phisurf.F |
107 |
INI_LINEAR_PHISURF |
ELSEIF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_ave.F |
129 |
THSICE_AVE |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_ave.F |
89 |
THSICE_AVE |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
130 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
170 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
222 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
171 |
TIMEAVE_STATV_WRITE |
IF ( fluidIsWater ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
267 |
TIMEAVE_STATV_WRITE |
IF ( fluidIsWater ) THEN |
|
./model/src/ini_parms.F |
1046 |
INI_PARMS |
IF ( fluidIsWater ) monitorSelect = 3 |
|
./model/src/ini_parms.F |
415 |
INI_PARMS |
fluidIsWater = .FALSE. |
|
./model/src/ini_parms.F |
421 |
INI_PARMS |
fluidIsWater = .TRUE. |
|
./model/src/ini_parms.F |
424 |
INI_PARMS |
fluidIsWater = .TRUE. |
|
./model/src/ini_vertical_grid.F |
140 |
INI_VERTICAL_GRID |
& usingZCoords.AND.fluidIsWater ) 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/load_fields_driver.F |
164 |
LOAD_FIELDS_DRIVER |
IF ( fluidIsWater ) THEN |
|
./model/src/pre_cg3d.F |
93 |
PRE_CG3D |
IF ( useRealFreshWaterFlux.AND.fluidIsWater ) THEN |
|
./model/src/solve_for_pressure.F |
136 |
SOLVE_FOR_PRESSURE |
IF (useRealFreshWaterFlux.AND.fluidIsWater) THEN |
|
./model/src/write_state.F |
156 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
|
./model/src/write_state.F |
206 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
488 |
DIAGNOSTICS_FILL_STATE |
IF ( fluidIsWater .AND. |
|
./pkg/diagnostics/diagnostics_main_init.F |
195 |
DIAGNOSTICS_MAIN_INIT |
IF ( fluidIsWater ) THEN |
|
./pkg/diagnostics/diagnostics_main_init.F |
241 |
DIAGNOSTICS_MAIN_INIT |
IF ( fluidIsWater ) THEN |