Symbol Description Uses
fluidIsAir Set to indicate that the fluid major constituent 55


File Line number Procedure Code
./model/inc/PARAMS.h 376 NO PROCEDURE 
     & fluidIsAir, fluidIsWater,
./model/inc/PARAMS.h 418 NO PROCEDURE 
      LOGICAL fluidIsAir
./pkg/generic_advdiff/gad_diagnostics_init.F 183 GAD_DIAGNOSTICS_INIT 
       IF ( fluidIsAir ) THEN
./pkg/generic_advdiff/gad_diagnostics_init.F 62 GAD_DIAGNOSTICS_INIT 
       IF ( fluidIsAir ) THEN
./model/src/apply_forcing.F 277 APPLY_FORCING_V 
      IF ( fluidIsAir ) THEN
./model/src/apply_forcing.F 465 APPLY_FORCING_T 
      IF ( fluidIsAir ) THEN
./model/src/apply_forcing.F 529 APPLY_FORCING_T 
        IF ( fluidIsAir ) THEN
./model/src/apply_forcing.F 549 APPLY_FORCING_T 
      IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN
./model/src/apply_forcing.F 841 APPLY_FORCING_S 
      IF ( fluidIsAir ) THEN
./model/src/apply_forcing.F 99 APPLY_FORCING_U 
      IF ( fluidIsAir ) THEN
./model/src/calc_grad_phi_hyd.F 209 CALC_GRAD_PHI_HYD 
       ELSEIF ( fluidIsAir ) THEN
./model/src/calc_grad_phi_hyd.F 74 CALC_GRAD_PHI_HYD 
       IF ( fluidIsAir ) THEN
./model/src/calc_grad_phi_hyd.F 93 CALC_GRAD_PHI_HYD 
       IF ( fluidIsAir ) THEN
./model/src/calc_r_star.F 318 CALC_R_STAR 
        IF ( fluidIsAir ) THEN
./pkg/monitor/mon_init.F 45 MON_INIT 
      mon_output_AM = fluidIsAir .AND. useCoriolis
./pkg/monitor/mon_surfcor.F 125 MON_SURFCOR 
          IF ( fluidIsAir ) THEN
./pkg/monitor/mon_surfcor.F 150 MON_SURFCOR 
           IF (fluidIsAir) conv_th2Heat =
./pkg/monitor/mon_surfcor.F 161 MON_SURFCOR 
              IF (fluidIsAir) vT_Heat = vT_Heat
./pkg/monitor/mon_surfcor.F 180 MON_SURFCOR 
       IF ( fluidIsAir ) THEN
./pkg/monitor/mon_surfcor.F 198 MON_SURFCOR 
      IF ( fluidIsAir ) THEN
./pkg/monitor/mon_surfcor.F 96 MON_SURFCOR 
             IF ( fluidIsAir ) THEN
./model/src/config_summary.F 107 CONFIG_SUMMARY 
      CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
./model/src/config_summary.F 268 CONFIG_SUMMARY 
      IF ( fluidIsAir ) THEN
./model/src/diags_phi_hyd.F 79 DIAGS_PHI_HYD 
       IF ( fluidIsAir ) THEN
./model/src/diags_phi_rlow.F 139 DIAGS_PHI_RLOW 
        IF ( fluidIsAir ) THEN
./model/src/do_atmospheric_phys.F 58 DO_ATMOSPHERIC_PHYS 
      IF ( fluidIsAir ) THEN
./model/src/external_forcing.F 202 EXTERNAL_FORCING_V 
      IF ( fluidIsAir ) THEN
./model/src/external_forcing.F 352 EXTERNAL_FORCING_T 
      IF ( fluidIsAir ) THEN
./model/src/external_forcing.F 416 EXTERNAL_FORCING_T 
        IF ( fluidIsAir ) THEN
./model/src/external_forcing.F 436 EXTERNAL_FORCING_T 
      IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN
./model/src/external_forcing.F 62 EXTERNAL_FORCING_U 
      IF ( fluidIsAir ) THEN
./model/src/external_forcing.F 676 EXTERNAL_FORCING_S 
      IF ( fluidIsAir ) THEN
./model/src/ini_linear_phisurf.F 143 INI_LINEAR_PHISURF 
      ELSEIF ( fluidIsAir ) THEN
./model/src/ini_linear_phisurf.F 213 INI_LINEAR_PHISURF 
      IF ( fluidIsAir .AND. topoFile.NE.' ' ) THEN
./pkg/thsice/thsice_readparms.F 267 THSICE_READPARMS 
      IF ( fluidIsAir .AND. thSIceBalanceAtmFW.NE.0 ) THEN
./model/src/ini_parms.F 399 INI_PARMS 
      fluidIsAir      = .FALSE.
./model/src/ini_parms.F 403 INI_PARMS 
        fluidIsAir   = .TRUE.
./model/src/load_ref_files.F 51 LOAD_REF_FILES 
        IF ( fluidIsAir ) tracerDefault = 300.
./model/src/load_ref_files.F 83 LOAD_REF_FILES 
        IF ( fluidIsAir ) tracerDefault = 0.
./verification/rotating_tank/code/apply_forcing.F 259 APPLY_FORCING_V 
      IF ( fluidIsAir ) THEN
./verification/rotating_tank/code/apply_forcing.F 482 APPLY_FORCING_T 
      IF ( fluidIsAir ) THEN
./verification/rotating_tank/code/apply_forcing.F 546 APPLY_FORCING_T 
        IF ( fluidIsAir ) THEN
./verification/rotating_tank/code/apply_forcing.F 566 APPLY_FORCING_T 
      IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN
./verification/rotating_tank/code/apply_forcing.F 903 APPLY_FORCING_S 
      IF ( fluidIsAir ) THEN
./verification/rotating_tank/code/apply_forcing.F 90 APPLY_FORCING_U 
      IF ( fluidIsAir ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 156 EXTERNAL_FORCING_V 
      IF ( fluidIsAir ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 237 EXTERNAL_FORCING_T 
      IF ( fluidIsAir ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 336 EXTERNAL_FORCING_S 
      IF ( fluidIsAir ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 55 EXTERNAL_FORCING_U 
      IF ( fluidIsAir ) THEN
./model/src/reset_nlfs_vars.F 51 RESET_NLFS_VARS 
        IF ( fluidIsAir .AND. select_rStar.GE.1 ) THEN
./model/src/write_grid.F 112 WRITE_GRID 
        IF ( fluidIsAir )
./pkg/diagnostics/diagnostics_check.F 127 DIAGNOSTICS_CHECK 
        IF ( fluidIsAir ) THEN
./pkg/diagnostics/diagnostics_main_init.F 104 DIAGNOSTICS_MAIN_INIT 
      IF ( fluidIsAir ) THEN
./pkg/diagnostics/diagnostics_main_init.F 121 DIAGNOSTICS_MAIN_INIT 
      IF ( fluidIsAir ) THEN
./pkg/diagnostics/diagnostics_out.F 342 DIAGNOSTICS_OUT 
             IF ( fluidIsAir ) THEN