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


File Line number Procedure Code
./model/src/ini_eos.F 97 INI_EOS 
         if ( equationOfState .eq. 'JMD95Z' .and. usingPCoords ) then
./pkg/obcs/obcs_apply_eta.F 33 OBCS_APPLY_ETA 
      IF (usingPCoords) K = Nr
./model/src/calc_r_star.F 62 CALC_R_STAR 
      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)
./model/src/config_summary.F 89 CONFIG_SUMMARY 
      CALL WRITE_0D_L( usingPCoords, INDEX_NONE,
./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
./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
./model/src/ini_depths.F 128 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./model/src/ini_depths.F 204 INI_DEPTHS 
      IF (usingPCoords) THEN
./model/src/ini_depths.F 59 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./model/src/ini_depths.F 86 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') 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/advect_xz/code/ini_depths.F 132 INI_DEPTHS 
      IF ( usingPCoords .AND. bathyFile.NE.' ' ) THEN
./verification/advect_xz/code/ini_depths.F 208 INI_DEPTHS 
      IF (usingPCoords) THEN
./verification/advect_xz/code/ini_depths.F 59 INI_DEPTHS 
      IF (usingPCoords .AND. bathyFile .NE. ' '
./verification/advect_xz/code/ini_depths.F 86 INI_DEPTHS 
      IF (usingPCoords .OR. bathyFile .EQ. ' ') THEN
./model/src/external_forcing_surf.F 200 EXTERNAL_FORCING_SURF 
      IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
./model/src/external_forcing_surf.F 291 EXTERNAL_FORCING_SURF 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing_surf.F 59 EXTERNAL_FORCING_SURF 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 1162 INI_PARMS 
      IF ( usingPCoords ) THEN
./model/src/ini_parms.F 379 INI_PARMS 
      usingPCoords    = .FALSE.
./model/src/ini_parms.F 384 INI_PARMS 
        usingPCoords = .TRUE.
./model/src/ini_parms.F 387 INI_PARMS 
        usingPCoords  = .TRUE.
./model/src/pressure_for_eos.F 74 PRESSURE_FOR_EOS 
      ELSEIF ( usingPCoords ) THEN
./model/inc/PARAMS.h 317 NO PROCEDURE 
     & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
./model/inc/PARAMS.h 382 NO PROCEDURE 
      LOGICAL usingPCoords
./pkg/ptracers/ptracers_diagnostics_init.F 56 PTRACERS_DIAGNOSTICS_INIT 
      IF ( usingPCoords ) THEN
./pkg/diagnostics/diagstats_local.F 177 DIAGSTATS_LOCAL 
          IF ( usingPCoords ) km = Nr
./pkg/diagnostics/diagnostics_main_init.F 430 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) diagUnits = 's^2/m^2         '
./pkg/diagnostics/diagnostics_main_init.F 80 DIAGNOSTICS_MAIN_INIT 
      IF ( usingPCoords ) THEN
./pkg/generic_advdiff/gad_diagnostics_init.F 47 GAD_DIAGNOSTICS_INIT 
       IF ( usingPCoords ) THEN
./pkg/mom_fluxform/mom_calc_rtrans.F 70 MOM_CALC_RTRANS 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./pkg/mom_fluxform/mom_v_adv_wv.F 54 MOM_V_ADV_WV 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./pkg/mom_fluxform/mom_u_adv_wu.F 53 MOM_U_ADV_WU 
     &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/integr_continuity.F 202 INTEGR_CONTINUITY 
     &      useRealFreshWaterFlux .AND. usingPCoords ) THEN
./model/src/diags_oceanic_surf_flux.F 115 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)
./model/src/freeze_surface.F 45 FREEZE_SURFACE 
      IF ( usingPCoords ) THEN
./model/src/external_forcing.F 153 EXTERNAL_FORCING_V 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 258 EXTERNAL_FORCING_T 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 375 EXTERNAL_FORCING_S 
      ELSEIF ( usingPCoords ) THEN
./model/src/external_forcing.F 55 EXTERNAL_FORCING_U 
      ELSEIF ( usingPCoords ) THEN