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


File Line number Procedure Code
./pkg/exf/exf_filter_rl.F 44 EXF_FILTER_RL 
        IF ( usingPCoords ) ks = Nr
./model/inc/PARAMS.h 377 NO PROCEDURE 
     & usingPCoords, usingZCoords, useDynP_inEos_Zc,
./model/inc/PARAMS.h 420 NO PROCEDURE 
      LOGICAL usingPCoords
./pkg/gchem/gchem_surfmean.F 38 GCHEM_SURFMEAN 
      IF ( usingPCoords ) THEN
./pkg/generic_advdiff/gad_diagnostics_init.F 55 GAD_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN
./model/src/apply_forcing.F 101 APPLY_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/apply_forcing.F 279 APPLY_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/apply_forcing.F 469 APPLY_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/apply_forcing.F 845 APPLY_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./pkg/layers/layers_diagnostics_init.F 51 LAYERS_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./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 316 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 335 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 354 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 374 MNC_CW_WRITE_CVAR 
        ELSEIF ( usingPCoords ) THEN
./pkg/mnc/mnc_cw_cvars.F 394 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 129 MONITOR 
         IF ( usingPCoords ) k = Nr
./pkg/monitor/monitor_ad.F 143 ADMONITOR 
           IF ( usingPCoords ) k = Nr
./pkg/monitor/monitor_ad.F 175 ADMONITOR 
           IF ( usingPCoords ) k = Nr
./pkg/monitor/monitor_g.F 129 G_MONITOR 
         IF ( usingPCoords ) k = Nr
./model/src/config_check.F 416 CONFIG_CHECK 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/config_check.F 755 CONFIG_CHECK 
     &    ( usingPCoords .OR. deepAtmosphere .OR. selectSigmaCoord.NE.0
./model/src/config_summary.F 111 CONFIG_SUMMARY 
      CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
./model/src/config_summary.F 752 CONFIG_SUMMARY 
      IF ( usingPCoords ) THEN
./model/src/config_summary.F 80 CONFIG_SUMMARY 
      IF ( usingPCoords ) rUnits = 'Pa'
./pkg/opps/opps_calc.F 489 OPPS_CALC 
      ELSEIF ( usingPCoords ) THEN
./model/src/diags_oceanic_surf_flux.F 130 DIAGS_OCEANIC_SURF_FLUX 
         IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/diags_oceanic_surf_flux.F 163 DIAGS_OCEANIC_SURF_FLUX 
         IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/diags_oceanic_surf_flux.F 55 DIAGS_OCEANIC_SURF_FLUX 
       IF ( usingPCoords ) THEN
./pkg/pp81/pp81_calc.F 95 PP81_CALC 
     &      (usingPCoords .AND. K .EQ. Nr) ) THEN
./model/src/diags_phi_hyd.F 94 DIAGS_PHI_HYD 
       ELSEIF ( usingPCoords ) THEN
./model/src/diags_phi_rlow.F 126 DIAGS_PHI_RLOW 
       IF ( usingPCoords ) THEN
./model/src/diags_phi_rlow.F 152 DIAGS_PHI_RLOW 
        ELSEIF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_apply_forcing.F 57 PTRACERS_APPLY_FORCING 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_diagnostics_init.F 61 PTRACERS_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 118 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/ptracers/ptracers_forcing_surf.F 58 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 83 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/ptracers/ptracers_integrate.F 381 PTRACERS_INTEGRATE 
          IF ( usingPCoords ) THEN
./model/src/do_oceanic_phys.F 1005 DO_OCEANIC_PHYS 
         IF ( usingPCoords ) THEN
./pkg/salt_plume/salt_plume_forcing_surf.F 49 SALT_PLUME_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/external_forcing.F 204 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 356 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 64 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 680 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing_surf.F 247 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/external_forcing_surf.F 72 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/forcing_surf_relax.F 66 FORCING_SURF_RELAX 
      IF ( usingPCoords ) THEN
./model/src/freeze_surface.F 45 FREEZE_SURFACE 
      IF ( usingPCoords ) THEN
./model/src/ini_depths.F 154 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./model/src/ini_depths.F 228 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
./model/src/ini_eos.F 106 INI_EOS 
         IF ( equationOfState .EQ. 'JMD95Z' .AND. usingPCoords ) THEN
./model/src/ini_forcing.F 245 INI_FORCING 
      IF ( pLoadFile .NE. ' ' .AND. usingPCoords ) THEN
./model/src/ini_linear_phisurf.F 194 INI_LINEAR_PHISURF 
      IF ( usingPCoords .AND. .NOT.uniformLin_PhiSurf ) 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 97 TIMEAVE_SURF_FLUX 
       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/ini_parms.F 1339 INI_PARMS 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 397 INI_PARMS 
      usingPCoords    = .FALSE.
./model/src/ini_parms.F 402 INI_PARMS 
        usingPCoords = .TRUE.
./model/src/ini_parms.F 405 INI_PARMS 
        usingPCoords  = .TRUE.
./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_sigma_hfac.F 57 INI_SIGMA_HFAC 
      IF ( usingPCoords ) rEmpty = rF(Nr+1)
./model/src/ini_vertical_grid.F 196 INI_VERTICAL_GRID 
         IF ( usingPCoords ) rSigBndRS = rF(Nr+1)
./model/src/ini_vertical_grid.F 212 INI_VERTICAL_GRID 
        IF ( usingPCoords .AND. setInterFDr ) THEN
./model/src/ini_vertical_grid.F 237 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 265 INTEGR_CONTINUITY 
       IF ( k.EQ.Nr .AND. myIter.NE.0 .AND. usingPCoords
./verification/rotating_tank/code/apply_forcing.F 261 APPLY_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/apply_forcing.F 486 APPLY_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/apply_forcing.F 907 APPLY_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/apply_forcing.F 92 APPLY_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/pre_cg3d.F 81 PRE_CG3D 
          IF ( usingPCoords ) ks = Nr
./model/src/pressure_for_eos.F 73 PRESSURE_FOR_EOS 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 158 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 239 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 338 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 57 EXTERNAL_FORCING_U 
      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
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 57 PTRACERS_APPLY_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)
./model/src/salt_integrate.F 440 SALT_INTEGRATE 
        IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 242 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 69 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 242 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 69 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/set_parms.F 130 SET_PARMS 
     &      ( .NOT.nonHydrostatic .OR. usingPCoords
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 116 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 57 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/temp_integrate.F 448 TEMP_INTEGRATE 
        IF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 124 DIAGNOSTICS_MAIN_INIT 
      ELSEIF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 591 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) diagUnits = 's^2/m^2         '
./pkg/diagnostics/diagnostics_main_init.F 95 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_calc_flow.F 77 DWNSLP_CALC_FLOW 
      IF ( usingPCoords ) downward = -1
./pkg/down_slope/dwnslp_init_fixed.F 218 DWNSLP_INIT_FIXED 
          IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 251 DWNSLP_INIT_FIXED 
           IF ( usingPCoords ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 315 DWNSLP_INIT_FIXED 
          IF ( usingPCoords ) THEN