Symbol Description Uses
atm_kappa kappa = R/Cp (R: constant of Ideal Gas EOS) 101


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 104 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**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/calc_r_star.F 321 CALC_R_STAR 
           pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./pkg/monitor/mon_surfcor.F 127 MON_SURFCOR 
            ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa
./pkg/monitor/mon_surfcor.F 128 MON_SURFCOR 
     &                   -(rC( K )/atm_po)**atm_kappa )
./pkg/monitor/mon_surfcor.F 151 MON_SURFCOR 
     &                            atm_cp*((rC(k)/atm_po)**atm_kappa)
./pkg/monitor/mon_surfcor.F 98 MON_SURFCOR 
     &                 + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa)
./model/src/config_summary.F 295 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( atm_kappa, INDEX_NONE, 'atm_kappa =',
./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 1164 FIND_RHO_SCALAR 
         oneMinusKap = oneRL - atm_kappa
./model/src/find_rho.F 245 FIND_RHO_2D 
         oneMinusKap = oneRL - atm_kappa
./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 172 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_p_ground.F 129 INI_P_GROUND 
      recip_kappa = 1. _d 0 / atm_kappa
./model/src/ini_p_ground.F 134 INI_P_GROUND 
        PiHvR(1) = atm_Cp*(pLevHvR(1)**atm_kappa)
./model/src/ini_p_ground.F 137 INI_P_GROUND 
        PiHvR(k+1)  = atm_Cp*(pLevHvR(k+1)**atm_kappa)
./model/src/ini_p_ground.F 339 INI_P_GROUND 
            dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) )
./model/src/ini_p_ground.F 442 ANALYLIC_THETA 
     &       ( (1. _d 0 -ppr)*ttp1*ppN1**atm_kappa
./model/src/ini_p_ground.F 443 ANALYLIC_THETA 
     &        + ppr*ttp2y*ppN2**atm_kappa
./model/src/ini_p_ground.F 444 ANALYLIC_THETA 
     &       )*ppl**(-atm_kappa)
./model/src/ini_parms.F 462 INI_PARMS 
        atm_Rd = atm_Cp * atm_kappa
./model/src/ini_parms.F 464 INI_PARMS 
        atm_kappa = atm_Rd / atm_Cp
./verification/fizhi-gridalt-hs/code/do_fizhi.F 153 DO_FIZHI 
      _RL kF,sigma_b,ks,ka,deg2rad,pi,atm_po,atm_kappa,termp,kv,kT
./verification/fizhi-gridalt-hs/code/do_fizhi.F 166 DO_FIZHI 
       atm_kappa = getcon('KAPPA')
./verification/fizhi-gridalt-hs/code/do_fizhi.F 187 DO_FIZHI 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.128x64x5/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_oad/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./model/src/reset_nlfs_vars.F 54 RESET_NLFS_VARS 
           pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./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 276 SET_DEFAULTS 
      atm_kappa = 2. _d 0 / 7. _d 0
./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) )
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/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_initialise.F 91 AIM_INITIALISE 
          truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa
./pkg/aim_v23/aim_initialise.F 98 AIM_INITIALISE 
           truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa
./pkg/atm_phys/atm_phys_driver.F 404 ATM_PHYS_DRIVER 
          conv_T2theta = (atm_po/rC(kc))**atm_kappa
./pkg/atm_phys/atm_phys_dyn2phys.F 119 ATM_PHYS_DYN2PHYS 
        conv_theta2T = (rC(kc)/atm_po)**atm_kappa
./pkg/diagnostics/diagnostics_interp_vert.F 85 DIAGNOSTICS_INTERP_VERT 
        kappa = atm_kappa