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


File Line number Procedure Code
./model/src/calc_phi_hyd.F 351 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 352 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 354 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 355 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 358 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 359 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 361 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 362 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 384 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 385 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 386 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 387 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 417 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 418 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 420 CALC_PHI_HYD 
           ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 421 CALC_PHI_HYD 
     &                   -((rC( k )/atm_Po)**atm_kappa) )*half
./model/src/calc_phi_hyd.F 424 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 425 CALC_PHI_HYD 
     &                   -((rF(k+1)/atm_Po)**atm_kappa) )
./model/src/calc_phi_hyd.F 427 CALC_PHI_HYD 
           ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa)
./model/src/calc_phi_hyd.F 428 CALC_PHI_HYD 
     &                   -((rC(k+1)/atm_Po)**atm_kappa) )*half
./pkg/aim/aim_external_fields_load.F 135 AIM_FIELDS_LOAD 
             pfact = (Ro_surf(i,j,bi,bj)/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)
./model/src/config_summary.F 182 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( atm_kappa, INDEX_NONE, 'atm_kappa =',
./verification/hs94.1x64x5/code_ad/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/ini_theta.F 68 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/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.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)
./verification/hs94.128x64x5/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**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)
./model/src/ini_parms.F 414 INI_PARMS 
        atm_Rd = atm_Cp * atm_kappa
./model/src/ini_parms.F 416 INI_PARMS 
        atm_kappa = atm_Rd / atm_Cp
./model/inc/PARAMS.h 745 NO PROCEDURE 
     &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
./model/inc/PARAMS.h 748 NO PROCEDURE 
      _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
./pkg/aim_v23/aim_dyn2aim.F 160 AIM_DYN2AIM 
       conv_theta2T = (rC(K)/atm_po)**atm_kappa
./pkg/aim_v23/aim_aim2dyn.F 71 AIM_AIM2DYN 
       conv_T2theta = (atm_po/rC(k))**atm_kappa
./pkg/aim_v23/aim_initialise.F 110 AIM_INITIALISE 
     &     ( Ro_surf(i,j,bi,bj)/tmpPgrnd )**atm_kappa
./pkg/aim_v23/aim_initialise.F 117 AIM_INITIALISE 
     &      ( Ro_surf(i,j,bi,bj)/atm_Po )**atm_kappa
./model/src/ini_p_ground.F 105 INI_P_GROUND 
          ddPI=atm_Cp*( ((rHalf( K )/atm_Po)**atm_kappa)
./model/src/ini_p_ground.F 106 INI_P_GROUND 
     &                 -((rHalf(K+1)/atm_Po)**atm_kappa) )
./model/src/ini_p_ground.F 114 INI_P_GROUND 
          ddPI=atm_Cp*( ((rF(K)/atm_Po)**atm_kappa)
./model/src/ini_p_ground.F 115 INI_P_GROUND 
     &                 -((rC(K)/atm_Po)**atm_kappa) )
./model/src/ini_p_ground.F 118 INI_P_GROUND 
          ddPI=atm_Cp*( ((rC( K )/atm_Po)**atm_kappa)
./model/src/ini_p_ground.F 119 INI_P_GROUND 
     &                 -((rC(K+1)/atm_Po)**atm_kappa) )
./model/src/ini_p_ground.F 125 INI_P_GROUND 
          ddPI=atm_Cp*( ((rC( K )/atm_Po)**atm_kappa)
./model/src/ini_p_ground.F 126 INI_P_GROUND 
     &                 -((rF(K+1)/atm_Po)**atm_kappa) )
./model/src/ini_p_ground.F 180 INI_P_GROUND 
      recip_kappa = 1. _d 0 / atm_kappa
./model/src/ini_p_ground.F 185 INI_P_GROUND 
        PiHvR(1) = atm_Cp*(pLevHvR(1)**atm_kappa)
./model/src/ini_p_ground.F 188 INI_P_GROUND 
        PiHvR(k+1)  = atm_Cp*(pLevHvR(k+1)**atm_kappa)
./model/src/ini_p_ground.F 383 INI_P_GROUND 
            dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) )
./model/src/ini_p_ground.F 487 ANALYLIC_THETA 
     &       ( (1. _d 0 -ppr)*ttp1*ppN1**atm_kappa
./model/src/ini_p_ground.F 488 ANALYLIC_THETA 
     &        + ppr*ttp2y*ppN2**atm_kappa
./model/src/ini_p_ground.F 489 ANALYLIC_THETA 
     &       )*ppl**(-atm_kappa)
./model/src/calc_grad_phi_hyd.F 101 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD 
     &                  *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI)
./model/src/calc_grad_phi_hyd.F 188 CALC_GRAD_PHI_HYD 
        conv_theta2T = (rC(k)/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 76 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_grad_phi_hyd.F 96 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 97 CALC_GRAD_PHI_HYD 
     &                    -(                 rC(k) /atm_Po)**atm_kappa
./model/src/set_defaults.F 201 SET_DEFAULTS 
      atm_kappa = 2. _d 0 / 7. _d 0
./pkg/monitor/mon_surfcor.F 117 MON_SURFCOR 
            ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa
./pkg/monitor/mon_surfcor.F 118 MON_SURFCOR 
     &                   -(rC( K )/atm_po)**atm_kappa )
./pkg/monitor/mon_surfcor.F 140 MON_SURFCOR 
     &                            atm_cp*((rC(k)/atm_po)**atm_kappa)
./pkg/monitor/mon_surfcor.F 89 MON_SURFCOR 
     &                 + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa)