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


File Line number Procedure Code
./model/inc/PARAMS.h 803 NO PROCEDURE 
     &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
./model/inc/PARAMS.h 806 NO PROCEDURE 
      _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
./pkg/aim_v23/aim_initialise.F 115 AIM_INITIALISE 
     &     ( Ro_surf(i,j,bi,bj)/tmpPgrnd )**atm_kappa
./pkg/aim_v23/aim_initialise.F 122 AIM_INITIALISE 
     &      ( Ro_surf(i,j,bi,bj)/atm_Po )**atm_kappa
./pkg/aim_v23/aim_dyn2aim.F 160 AIM_DYN2AIM 
       conv_theta2T = (rC(K)/atm_po)**atm_kappa
./pkg/aim_v23/aim_aim2dyn.F 83 AIM_AIM2DYN 
       conv_T2theta = (atm_po/rC(k))**atm_kappa
./verification/fizhi-gridalt-hs/code/do_fizhi.F 152 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 165 DO_FIZHI 
       atm_kappa = getcon('KAPPA')
./verification/fizhi-gridalt-hs/code/do_fizhi.F 186 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/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code/ini_theta.F 68 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./model/src/ini_linear_phisurf.F 138 INI_LINEAR_PHISURF 
              dPIdp = (atm_Cp*atm_kappa/atm_Po)*
./model/src/ini_linear_phisurf.F 139 INI_LINEAR_PHISURF 
     &         (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./verification/hs94.1x64x5/code_ad/ini_theta.F 68 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/ini_theta.F 68 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./model/src/ini_parms.F 461 INI_PARMS 
        atm_Rd = atm_Cp * atm_kappa
./model/src/ini_parms.F 463 INI_PARMS 
        atm_kappa = atm_Rd / atm_Cp
./verification/tutorial_held_suarez_cs/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./model/src/calc_phi_hyd.F 364 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 365 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 367 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 368 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 371 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 372 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 374 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 375 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 397 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 398 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 399 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 400 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 430 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 431 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 433 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 434 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 437 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 438 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 440 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 441 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*half
./model/src/calc_grad_phi_hyd.F 100 CALC_GRAD_PHI_HYD 
     &                    -(                 rC(k) /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 106 CALC_GRAD_PHI_HYD 
     &                  *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI)
./model/src/calc_grad_phi_hyd.F 192 CALC_GRAD_PHI_HYD 
        conv_theta2T = (rC(k)/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 79 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_grad_phi_hyd.F 99 CALC_GRAD_PHI_HYD 
           factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa
./model/src/config_summary.F 200 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( atm_kappa, INDEX_NONE, 'atm_kappa =',
./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 332 INI_P_GROUND 
            dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) )
./model/src/ini_p_ground.F 436 ANALYLIC_THETA 
     &       ( (1. _d 0 -ppr)*ttp1*ppN1**atm_kappa
./model/src/ini_p_ground.F 437 ANALYLIC_THETA 
     &        + ppr*ttp2y*ppN2**atm_kappa
./model/src/ini_p_ground.F 438 ANALYLIC_THETA 
     &       )*ppl**(-atm_kappa)
./model/src/ini_phiref.F 148 INI_PHIREF 
          conv_theta2T = (rF(k)/atm_Po)**atm_kappa
./model/src/ini_phiref.F 151 INI_PHIREF 
          ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/ini_phiref.F 152 INI_PHIREF 
     &                 -((rC( k )/atm_Po)**atm_kappa) )
./model/src/ini_phiref.F 166 INI_PHIREF 
          ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa)
./model/src/ini_phiref.F 167 INI_PHIREF 
     &                 -((rHalf(k+1)/atm_Po)**atm_kappa) )
./model/src/ini_phiref.F 175 INI_PHIREF 
          ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa)
./model/src/ini_phiref.F 176 INI_PHIREF 
     &                 -((rC(k)/atm_Po)**atm_kappa) )
./model/src/ini_phiref.F 179 INI_PHIREF 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/ini_phiref.F 180 INI_PHIREF 
     &                 -((rC(k+1)/atm_Po)**atm_kappa) )
./model/src/ini_phiref.F 186 INI_PHIREF 
          ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/ini_phiref.F 187 INI_PHIREF 
     &                 -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/set_defaults.F 210 SET_DEFAULTS 
      atm_kappa = 2. _d 0 / 7. _d 0
./pkg/monitor/mon_surfcor.F 120 MON_SURFCOR 
            ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa
./pkg/monitor/mon_surfcor.F 121 MON_SURFCOR 
     &                   -(rC( K )/atm_po)**atm_kappa )
./pkg/monitor/mon_surfcor.F 143 MON_SURFCOR 
     &                            atm_cp*((rC(k)/atm_po)**atm_kappa)
./pkg/monitor/mon_surfcor.F 92 MON_SURFCOR 
     &                 + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa)