Symbol Description Uses
usingPCoords Set to indicate that we are working in a pressure 100


File Line number Procedure Code
./model/inc/PARAMS.h 364 NO PROCEDURE 
     & usingPCoords, usingZCoords, useDynP_inEos_Zc,
./model/inc/PARAMS.h 405 NO PROCEDURE 
      LOGICAL usingPCoords
./pkg/generic_advdiff/gad_diagnostics_init.F 55 GAD_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F 217 GAD_SOM_ADV_R 
      IF ( usingPCoords .AND. k.NE.1 .AND.
./pkg/longstep/longstep_forcing_surf.F 53 LONGSTEP_FORCING_SURF 
      IF ( usingPCoords ) THEN
./pkg/longstep/longstep_forcing_surf.F 71 LONGSTEP_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/longstep/longstep_init_fixed.F 33 LONGSTEP_INIT_FIXED 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/mnc/mnc_cw_cvars.F 317 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 336 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 355 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 375 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 395 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mom_common/mom_diagnostics_init.F 394 MOM_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./pkg/mom_common/mom_diagnostics_init.F 419 MOM_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) 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
./pkg/monitor/monitor.F 124 MONITOR 
         IF ( usingPCoords ) k = Nr
./pkg/monitor/monitor_ad.F 126 ADMONITOR 
         IF ( usingPCoords ) k = Nr
./pkg/monitor/monitor_g.F 127 G_MONITOR 
         IF ( usingPCoords ) k = Nr
./model/src/config_check.F 299 CONFIG_CHECK 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./pkg/pp81/pp81_calc.F 95 PP81_CALC 
     &      (usingPCoords .AND. K .EQ. Nr) ) THEN
./model/src/config_summary.F 627 CONFIG_SUMMARY 
      IF ( usingPCoords ) THEN
./model/src/config_summary.F 65 CONFIG_SUMMARY 
      IF ( usingPCoords ) rUnits = 'Pa'
./model/src/config_summary.F 89 CONFIG_SUMMARY 
      CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
./pkg/ptracers/ptracers_diagnostics_init.F 58 PTRACERS_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_dwnslp_apply.F 54 PTRACERS_DWNSLP_APPLY 
          IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing.F 54 PTRACERS_FORCING 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 116 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/ptracers/ptracers_forcing_surf.F 57 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/diags_oceanic_surf_flux.F 125 DIAGS_OCEANIC_SURF_FLUX 
         IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/diags_oceanic_surf_flux.F 152 DIAGS_OCEANIC_SURF_FLUX 
         IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/diags_oceanic_surf_flux.F 53 DIAGS_OCEANIC_SURF_FLUX 
       IF ( usingPCoords ) THEN
./model/src/diags_phi_rlow.F 125 DIAGS_PHI_RLOW 
       IF ( usingPCoords ) THEN
./pkg/salt_plume/salt_plume_forcing_surf.F 51 SALT_PLUME_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/do_oceanic_phys.F 755 DO_OCEANIC_PHYS 
         IF ( usingPCoords ) THEN
./model/src/external_forcing.F 159 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 271 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 455 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 55 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing_surf.F 268 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/external_forcing_surf.F 68 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/freeze_surface.F 45 FREEZE_SURFACE 
      IF ( usingPCoords ) THEN
./pkg/timeave/timeave_surf_flux.F 40 TIMEAVE_SURF_FLUX 
       IF ( usingPCoords ) THEN
./pkg/timeave/timeave_surf_flux.F 76 TIMEAVE_SURF_FLUX 
       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/timeave/timeave_surf_flux.F 98 TIMEAVE_SURF_FLUX 
       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/ini_depths.F 154 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./model/src/ini_depths.F 227 INI_DEPTHS 
      IF (usingPCoords) THEN
./model/src/ini_depths.F 63 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./model/src/ini_depths.F 94 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 154 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 227 INI_DEPTHS 
      IF (usingPCoords) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 63 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 94 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') THEN
./model/src/ini_eos.F 103 INI_EOS 
         IF ( equationOfState .EQ. 'JMD95Z' .AND. usingPCoords ) THEN
./model/src/ini_forcing.F 201 INI_FORCING 
      IF ( pLoadFile .NE. ' ' .AND. usingPCoords ) THEN
./model/src/ini_parms.F 1287 INI_PARMS 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 376 INI_PARMS 
      usingPCoords    = .FALSE.
./model/src/ini_parms.F 381 INI_PARMS 
        usingPCoords = .TRUE.
./model/src/ini_parms.F 384 INI_PARMS 
        usingPCoords  = .TRUE.
./model/src/ini_sigma_hfac.F 57 INI_SIGMA_HFAC 
      IF ( usingPCoords ) rEmpty = rF(Nr+1)
./model/src/ini_vertical_grid.F 189 INI_VERTICAL_GRID 
         IF ( usingPCoords ) rSigBndRS = rF(Nr+1)
./model/src/ini_vertical_grid.F 205 INI_VERTICAL_GRID 
        IF ( usingPCoords .AND. setInterFDr ) THEN
./model/src/ini_vertical_grid.F 230 INI_VERTICAL_GRID 
        IF ( usingPCoords .AND. setCenterDr ) THEN
./model/src/ini_vertical_grid.F 58 INI_VERTICAL_GRID 
      IF ( usingPCoords ) THEN
./model/src/integr_continuity.F 235 INTEGR_CONTINUITY 
       IF ( k.EQ.Nr .AND. myTime.NE.baseTime .AND. usingPCoords
./verification/rotating_tank/code/external_forcing.F 153 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 301 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 485 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 55 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 184 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 289 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 406 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 57 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 58 PTRACERS_FORCING 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 117 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 57 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 82 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 68 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 116 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 57 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/pre_cg3d.F 86 PRE_CG3D 
          IF ( usingPCoords ) ks = Nr
./model/src/pressure_for_eos.F 73 PRESSURE_FOR_EOS 
      ELSEIF ( usingPCoords ) THEN
./model/src/rotate_uv2en.F 261 ROTATE_UV2EN_RS 
        if ( (kSize.EQ.1).AND.(usingPCoords) ) then
./model/src/rotate_uv2en.F 80 ROTATE_UV2EN_RL 
        if ( (kSize.EQ.1).AND.(usingPCoords) ) then
./model/src/set_parms.F 69 SET_PARMS 
     &      ( .NOT.nonHydrostatic .OR. usingPCoords
./model/src/taueddy_external_forcing.F 153 TAUEDDY_EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/taueddy_external_forcing.F 63 TAUEDDY_EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/thermodynamics.F 741 THERMODYNAMICS 
          IF ( usingPCoords ) THEN
./model/src/thermodynamics.F 760 THERMODYNAMICS 
          IF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 118 DIAGNOSTICS_MAIN_INIT 
      ELSEIF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 545 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) diagUnits = 's^2/m^2         '
./pkg/diagnostics/diagnostics_main_init.F 93 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_calc_flow.F 76 DWNSLP_CALC_FLOW 
      IF ( usingPCoords ) downward = -1
./pkg/down_slope/dwnslp_init_fixed.F 217 DWNSLP_INIT_FIXED 
          IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 250 DWNSLP_INIT_FIXED 
           IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 314 DWNSLP_INIT_FIXED 
          IF ( usingPCoords ) THEN