Symbol Description Uses
atm_Po standard reference pressure 80


File Line number Procedure Code
./model/inc/PARAMS.h 1000 NO PROCEDURE 
     &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
./model/inc/PARAMS.h 1003 NO PROCEDURE 
      _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
./model/src/apply_forcing.F 546 APPLY_FORCING_T 
          tmpFac = (atm_Po/rC(k))**atm_kappa
./model/src/apply_forcing.F 572 APPLY_FORCING_T 
        tmpFac = (atm_Po/rC(k))**atm_kappa
./model/src/apply_forcing.F 585 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
./model/src/apply_forcing.F 586 APPLY_FORCING_T 
     &                   - (rC(kc)/atm_Po)**atm_kappa )
./model/src/apply_forcing.F 597 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
./model/src/apply_forcing.F 598 APPLY_FORCING_T 
     &                   - (rC(kp)/atm_Po)**atm_kappa )
./model/src/calc_grad_phi_hyd.F 215 CALC_GRAD_PHI_HYD 
        factorP = (rC(k)/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 221 CALC_GRAD_PHI_HYD 
        factorP = halfRL*atm_Cp*(rC(k)/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 98 CALC_GRAD_PHI_HYD 
           factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 99 CALC_GRAD_PHI_HYD 
     &                    -(                 rC(k) /atm_Po)**atm_kappa
./model/src/calc_phi_hyd.F 483 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 487 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 491 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 512 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 513 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 515 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 516 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 519 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 520 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 522 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 523 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 545 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 546 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 547 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 548 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 578 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 579 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 581 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 582 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 585 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 586 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 588 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 589 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL
./model/src/config_summary.F 299 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( atm_Po, INDEX_NONE, 'atm_Po =  ',
./model/src/external_forcing.F 418 EXTERNAL_FORCING_T 
          tmpFac = (atm_Po/rC(kLev))**atm_kappa
./model/src/external_forcing.F 444 EXTERNAL_FORCING_T 
        tmpFac = (atm_Po/rC(kLev))**atm_kappa
./model/src/external_forcing.F 457 EXTERNAL_FORCING_T 
          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
./model/src/external_forcing.F 458 EXTERNAL_FORCING_T 
     &                   - (rC(kc)/atm_Po)**atm_kappa )
./model/src/external_forcing.F 469 EXTERNAL_FORCING_T 
          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
./model/src/external_forcing.F 470 EXTERNAL_FORCING_T 
     &                   - (rC(kp)/atm_Po)**atm_kappa )
./model/src/find_rho.F 1166 FIND_RHO_SCALAR 
         facPres = ( pLoc/atm_Po )**oneMinusKap
./model/src/find_rho.F 1168 FIND_RHO_SCALAR 
         rhoLoc = atm_Po*facPres /( atm_Rd*theta_v )
./model/src/find_rho.F 250 FIND_RHO_2D 
            facPres = ( locPres(i,j)/atm_Po )**oneMinusKap
./model/src/find_rho.F 252 FIND_RHO_2D 
            rhoLoc(i,j) = atm_Po*facPres
./model/src/ini_linear_phisurf.F 155 INI_LINEAR_PHISURF 
              dPIdp = (atm_Rd/atm_Po)*
./model/src/ini_linear_phisurf.F 156 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 171 INI_LINEAR_PHISURF 
              dPIdp = (atm_Rd/atm_Po)*
./model/src/ini_linear_phisurf.F 172 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_p_ground.F 133 INI_P_GROUND 
        pLevHvR(1)= rF(1)/atm_Po
./model/src/ini_p_ground.F 216 INI_P_GROUND 
             Pfld(i,j,bi,bj) = psNorm*atm_Po
./model/src/ini_p_ground.F 329 INI_P_GROUND 
            psNorm = Po_surf/atm_Po
./model/src/ini_parms.F 199 INI_PARMS 
     & HeatCapacity_Cp, celsius2K, atm_Cp, atm_Rd, atm_Rq, atm_Po,
./verification/rotating_tank/code/apply_forcing.F 548 APPLY_FORCING_T 
          tmpFac = (atm_Po/rC(k))**atm_kappa
./verification/rotating_tank/code/apply_forcing.F 575 APPLY_FORCING_T 
        tmpFac = (atm_Po/rC(k))**atm_kappa
./verification/rotating_tank/code/apply_forcing.F 588 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
./verification/rotating_tank/code/apply_forcing.F 589 APPLY_FORCING_T 
     &                   - (rC(kc)/atm_Po)**atm_kappa )
./verification/rotating_tank/code/apply_forcing.F 600 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
./verification/rotating_tank/code/apply_forcing.F 601 APPLY_FORCING_T 
     &                   - (rC(kp)/atm_Po)**atm_kappa )
./model/src/set_defaults.F 273 SET_DEFAULTS 
      atm_Po =  1. _d 5
./model/src/set_ref_state.F 253 SET_REF_STATE 
          conv_theta2T = (rF(k)/atm_Po)**atm_kappa
./model/src/set_ref_state.F 256 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 257 SET_REF_STATE 
     &                 -((rC( k )/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 276 SET_REF_STATE 
            conv_theta2T  = (rF(k)/atm_Po)**atm_kappa
./model/src/set_ref_state.F 303 SET_REF_STATE 
          ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 304 SET_REF_STATE 
     &                 -((rHalf(k+1)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 312 SET_REF_STATE 
          ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 313 SET_REF_STATE 
     &                 -((rC(k)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 316 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 317 SET_REF_STATE 
     &                 -((rC(k+1)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 323 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 324 SET_REF_STATE 
     &                 -((rF(k+1)/atm_Po)**atm_kappa) )
./pkg/aim_v23/aim_aim2dyn.F 106 AIM_AIM2DYN 
       conv_T2theta = (atm_Po/rC(k))**atm_kappa
./pkg/aim_v23/aim_dyn2aim.F 163 AIM_DYN2AIM 
       conv_theta2T = (rC(k)/atm_Po)**atm_kappa
./pkg/aim_v23/aim_dyn2aim.F 99 AIM_DYN2AIM 
         PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po
./pkg/aim_v23/aim_initialise.F 58 AIM_INITIALISE 
      pGround = atm_Po
./pkg/aim_v23/aim_initialise.F 90 AIM_INITIALISE 
          tmpPgrnd = MIN( tmpPgrnd, atm_Po )
./pkg/aim_v23/aim_initialise.F 98 AIM_INITIALISE 
           truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa
./pkg/aim_v23/phy_inphys.F 64 INPHYS 
      P0 = atm_Po