Symbol Description Uses
fluidIsWater Set to indicate that the fluid major constituent 47


File Line number Procedure Code
./model/inc/PARAMS.h 376 NO PROCEDURE 
     & fluidIsAir, fluidIsWater,
./model/inc/PARAMS.h 419 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 631 CALC_PHI_HYD 
       IF ( fluidIsWater ) THEN
./pkg/mom_common/mom_quasihydrostatic.F 64 MOM_QUASIHYDROSTATIC 
      ELSEIF ( fluidIsWater ) THEN
./pkg/monitor/mon_init.F 44 MON_INIT 
      IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3
./model/src/config_check.F 529 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 261 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 1053 DO_OCEANIC_PHYS 
      IF ( fluidIsWater .AND. useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 154 DO_OCEANIC_PHYS 
      IF ( useDiagnostics .AND. fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 232 DO_OCEANIC_PHYS 
      IF ( useThSIce .AND. fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 402 DO_OCEANIC_PHYS 
      IF ( useThSIce .AND. fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 433 DO_OCEANIC_PHYS 
      IF ( useShelfIce .AND. fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 448 DO_OCEANIC_PHYS 
      IF ( useICEFRONT .AND. fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 502 DO_OCEANIC_PHYS 
      IF ( fluidIsWater ) THEN
./model/src/do_oceanic_phys.F 662 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 165 THSICE_OUTPUT 
         IF ( fluidIsWater ) THEN
./pkg/thsice/thsice_output.F 217 THSICE_OUTPUT 
         IF ( fluidIsWater ) THEN
./pkg/timeave/timeave_statv_write.F 167 TIMEAVE_STATV_WRITE 
          IF ( fluidIsWater ) THEN
./pkg/timeave/timeave_statv_write.F 263 TIMEAVE_STATV_WRITE 
          IF ( fluidIsWater ) THEN
./model/src/ini_parms.F 1004 INI_PARMS 
        IF ( fluidIsWater ) monitorSelect = 3
./model/src/ini_parms.F 400 INI_PARMS 
      fluidIsWater    = .FALSE.
./model/src/ini_parms.F 406 INI_PARMS 
        fluidIsWater  = .TRUE.
./model/src/ini_parms.F 409 INI_PARMS 
        fluidIsWater  = .TRUE.
./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 78 PRE_CG3D 
        IF ( useRealFreshWaterFlux.AND.fluidIsWater ) THEN
./model/src/set_parms.F 229 SET_PARMS 
      useDynP_inEos_Zc = ( fluidIsWater .AND. usingZCoords
./model/src/solve_for_pressure.F 129 SOLVE_FOR_PRESSURE 
        IF (useRealFreshWaterFlux.AND.fluidIsWater) THEN
./model/src/write_state.F 152 WRITE_STATE 
          IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN
./model/src/write_state.F 202 WRITE_STATE 
          IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 478 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