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


File Line number Procedure Code
./pkg/ptracers/ptracers_diagnostics_init.F 56 PTRACERS_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/shelfice/shelfice_forcing.F 131 SHELFICE_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./pkg/shelfice/shelfice_forcing.F 58 SHELFICE_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/inc/PARAMS.h 341 NO PROCEDURE 
     & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
./model/inc/PARAMS.h 411 NO PROCEDURE 
      LOGICAL usingPCoords
./pkg/diagnostics/diagnostics_main_init.F 114 DIAGNOSTICS_MAIN_INIT 
      ELSEIF ( usingPCoords ) THEN
./pkg/diagnostics/diagnostics_main_init.F 488 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) diagUnits = 's^2/m^2         '
./pkg/diagnostics/diagnostics_main_init.F 89 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) THEN
./pkg/diagnostics/diagstats_local.F 180 DIAGSTATS_LOCAL 
          IF ( usingPCoords ) km = Nr
./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/mom_fluxform/mom_calc_rtrans.F 72 MOM_CALC_RTRANS 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/ini_eos.F 98 INI_EOS 
         if ( equationOfState .eq. 'JMD95Z' .and. usingPCoords ) then
./model/src/integr_continuity.F 204 INTEGR_CONTINUITY 
     &      useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/taueddy_external_forcing.F 129 TAUEDDY_EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/taueddy_external_forcing.F 55 TAUEDDY_EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 159 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 270 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 407 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 55 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/global_ocean.90x40x15/code/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./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/rotating_tank/code/external_forcing.F 153 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 302 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 486 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./verification/rotating_tank/code/external_forcing.F 55 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/ini_parms.F 1168 INI_PARMS 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 413 INI_PARMS 
      usingPCoords    = .FALSE.
./model/src/ini_parms.F 418 INI_PARMS 
        usingPCoords = .TRUE.
./model/src/ini_parms.F 421 INI_PARMS 
        usingPCoords  = .TRUE.
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      IF ( usingPCoords ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/ini_depths.F 134 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./model/src/ini_depths.F 210 INI_DEPTHS 
      IF (usingPCoords) THEN
./model/src/ini_depths.F 256 INI_DEPTHS 
      IF (usingPCoords .OR. shelfIceFile .EQ. ' ') THEN
./model/src/ini_depths.F 63 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./model/src/ini_depths.F 90 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 128 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 204 INI_DEPTHS 
      IF (usingPCoords) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 59 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 86 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') THEN
./model/src/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/external_forcing_surf.F 305 EXTERNAL_FORCING_SURF 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing_surf.F 61 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/freeze_surface.F 45 FREEZE_SURFACE 
      IF ( usingPCoords ) THEN
./model/src/config_summary.F 89 CONFIG_SUMMARY 
      CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
./model/src/pressure_for_eos.F 74 PRESSURE_FOR_EOS 
      ELSEIF ( usingPCoords ) THEN
./model/src/diags_oceanic_surf_flux.F 131 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_oceanic_surf_flux.F 82 DIAGS_OCEANIC_SURF_FLUX 
         IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/mom_common/mom_diagnostics_init.F 364 MOM_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN
./pkg/mom_common/mom_diagnostics_init.F 377 MOM_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN
./pkg/timeave/timeave_surf_flux.F 106 TIMEAVE_SURF_FLUX 
       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/timeave/timeave_surf_flux.F 41 TIMEAVE_SURF_FLUX 
       IF ( usingPCoords ) THEN
./pkg/timeave/timeave_surf_flux.F 83 TIMEAVE_SURF_FLUX 
       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./pkg/generic_advdiff/gad_diagnostics_init.F 47 GAD_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN