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


File Line number Procedure Code
./model/inc/PARAMS.h 943 NO PROCEDURE 
     &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
./model/inc/PARAMS.h 946 NO PROCEDURE 
      _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
./model/src/apply_forcing.F 531 APPLY_FORCING_T 
          tmpFac = (atm_Po/rC(k))**atm_kappa
./model/src/apply_forcing.F 558 APPLY_FORCING_T 
        tmpFac = (atm_Po/rC(k))**atm_kappa
./model/src/apply_forcing.F 571 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
./model/src/apply_forcing.F 572 APPLY_FORCING_T 
     &                   - (rC(kc)/atm_Po)**atm_kappa )
./model/src/apply_forcing.F 583 APPLY_FORCING_T 
          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
./model/src/apply_forcing.F 584 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 478 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 482 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 486 CALC_PHI_HYD 
     &           )/atm_Po )**atm_kappa
./model/src/calc_phi_hyd.F 507 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 508 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 510 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 511 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 514 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 515 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 517 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 518 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 540 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 541 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 542 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 543 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 573 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 574 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 576 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 577 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*halfRL
./model/src/calc_phi_hyd.F 580 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 581 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 583 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 584 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 273 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 445 EXTERNAL_FORCING_T 
        tmpFac = (atm_Po/rC(kLev))**atm_kappa
./model/src/external_forcing.F 458 EXTERNAL_FORCING_T 
          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
./model/src/external_forcing.F 459 EXTERNAL_FORCING_T 
     &                   - (rC(kc)/atm_Po)**atm_kappa )
./model/src/external_forcing.F 470 EXTERNAL_FORCING_T 
          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
./model/src/external_forcing.F 471 EXTERNAL_FORCING_T 
     &                   - (rC(kp)/atm_Po)**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 338 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 447 INI_PARMS 
        atm_Rd = atm_Cp * atm_kappa
./model/src/ini_parms.F 449 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)
./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/reset_nlfs_vars.F 54 RESET_NLFS_VARS 
           pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/set_defaults.F 267 SET_DEFAULTS 
      atm_kappa = 2. _d 0 / 7. _d 0
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 262 APPLY_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./model/src/set_ref_state.F 184 SET_REF_STATE 
          conv_theta2T = (rF(k)/atm_Po)**atm_kappa
./model/src/set_ref_state.F 187 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 188 SET_REF_STATE 
     &                 -((rC( k )/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 207 SET_REF_STATE 
            conv_theta2T  = (rF(k)/atm_Po)**atm_kappa
./model/src/set_ref_state.F 234 SET_REF_STATE 
          ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 235 SET_REF_STATE 
     &                 -((rHalf(k+1)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 243 SET_REF_STATE 
          ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 244 SET_REF_STATE 
     &                 -((rC(k)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 247 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 248 SET_REF_STATE 
     &                 -((rC(k+1)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 254 SET_REF_STATE 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 255 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_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 210 ATM_PHYS_DRIVER 
        conv_theta2T = (rC(kc)/atm_po)**atm_kappa
./pkg/atm_phys/atm_phys_driver.F 441 ATM_PHYS_DRIVER 
        conv_T2theta = (atm_po/rC(kc))**atm_kappa
./pkg/diagnostics/diagnostics_interp_vert.F 85 DIAGNOSTICS_INTERP_VERT 
        kappa = atm_kappa