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


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