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


File Line number Procedure Code
./pkg/exf/exf_filter_rl.F 44 EXF_FILTER_RL 
        IF ( usingPCoords ) ks = Nr
./model/inc/PARAMS.h 413 NO PROCEDURE 
     & usingPCoords, usingZCoords,
./model/inc/PARAMS.h 457 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 291 APPLY_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/apply_forcing.F 479 APPLY_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/apply_forcing.F 845 APPLY_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./pkg/layers/layers_diagnostics_init.F 56 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
./model/src/config_check.F 493 CONFIG_CHECK 
      IF ( usingPCoords .AND. gravityFile .NE. ' ' ) THEN
./model/src/config_check.F 508 CONFIG_CHECK 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/config_check.F 862 CONFIG_CHECK 
     &    ( usingPCoords .OR. deepAtmosphere .OR. selectSigmaCoord.NE.0
./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_summary.F 111 CONFIG_SUMMARY 
      CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
./model/src/config_summary.F 80 CONFIG_SUMMARY 
      IF ( usingPCoords ) rUnits = 'Pa'
./model/src/config_summary.F 844 CONFIG_SUMMARY 
      IF ( 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
./model/src/diags_phi_hyd.F 94 DIAGS_PHI_HYD 
       ELSEIF ( usingPCoords ) THEN
./model/src/diags_phi_rlow.F 128 DIAGS_PHI_RLOW 
       IF ( usingPCoords ) THEN
./model/src/diags_phi_rlow.F 154 DIAGS_PHI_RLOW 
        ELSEIF ( usingPCoords ) THEN
./pkg/opps/opps_calc.F 505 OPPS_CALC 
      ELSEIF ( usingPCoords ) THEN
./pkg/pp81/pp81_calc.F 102 PP81_CALC 
     &      (usingPCoords .AND. K .EQ. Nr) ) THEN
./model/src/do_oceanic_phys.F 1111 DO_OCEANIC_PHYS 
         IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_apply_forcing.F 64 PTRACERS_APPLY_FORCING 
      ELSEIF ( 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 393 PTRACERS_INTEGRATE 
          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 679 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing_surf.F 250 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
./pkg/salt_plume/salt_plume_forcing_surf.F 49 SALT_PLUME_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/freeze_surface.F 45 FREEZE_SURFACE 
      IF ( usingPCoords ) THEN
./model/src/ini_depths.F 153 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
./model/src/ini_eos.F 106 INI_EOS 
         IF ( equationOfState .EQ. 'JMD95Z' .AND. usingPCoords ) THEN
./model/src/ini_forcing.F 172 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
./model/src/ini_parms.F 1090 INI_PARMS 
       IF ( usingPCoords ) THEN
./model/src/ini_parms.F 1099 INI_PARMS 
       IF ( usingPCoords ) THEN
./model/src/ini_parms.F 1214 INI_PARMS 
       IF ( usingPCoords .AND. top_Pres.NE.UNSET_RL ) THEN
./model/src/ini_parms.F 1449 INI_PARMS 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 412 INI_PARMS 
      usingPCoords    = .FALSE.
./model/src/ini_parms.F 417 INI_PARMS 
        usingPCoords = .TRUE.
./model/src/ini_parms.F 420 INI_PARMS 
        usingPCoords  = .TRUE.
./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_sigma_hfac.F 57 INI_SIGMA_HFAC 
      IF ( usingPCoords ) rEmpty = rF(Nr+1)
./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_vertical_grid.F 159 INI_VERTICAL_GRID 
        IF ( usingPCoords ) THEN
./model/src/ini_vertical_grid.F 226 INI_VERTICAL_GRID 
         IF ( usingPCoords ) rSigBndRS = rF(Nr+1)
./model/src/ini_vertical_grid.F 242 INI_VERTICAL_GRID 
        IF ( usingPCoords .AND. setInterFDr ) THEN
./model/src/ini_vertical_grid.F 267 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
./model/src/pre_cg3d.F 94 PRE_CG3D 
          IF ( oldFreeSurfTerm .OR. usingPCoords ) THEN
./model/src/pre_cg3d.F 97 PRE_CG3D 
           IF ( usingPCoords ) ks = Nr
./model/src/pressure_for_eos.F 104 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
./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/salt_integrate.F 448 SALT_INTEGRATE 
        IF ( 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/set_parms.F 133 SET_PARMS 
     &      ( .NOT.nonHydrostatic .OR. usingPCoords
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 60 PTRACERS_APPLY_FORCING 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 121 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 58 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
        IF ( ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 253 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 75 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 253 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 75 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)
./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 456 TEMP_INTEGRATE 
        IF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 124 DIAGNOSTICS_MAIN_INIT 
      ELSEIF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 598 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