| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
909 |
NO PROCEDURE |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
|
./model/inc/PARAMS.h |
912 |
NO PROCEDURE |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq |
|
./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 |
210 |
CALC_GRAD_PHI_HYD |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
78 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**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 |
|
./pkg/monitor/mon_surfcor.F |
122 |
MON_SURFCOR |
ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa |
|
./pkg/monitor/mon_surfcor.F |
123 |
MON_SURFCOR |
& -(rC( K )/atm_po)**atm_kappa ) |
|
./pkg/monitor/mon_surfcor.F |
145 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
390 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
391 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
393 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
394 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
401 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
423 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
424 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
425 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
426 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
456 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
457 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
459 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
460 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
464 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
466 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/config_summary.F |
207 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( atm_kappa, INDEX_NONE, 'atm_kappa =', |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
141 |
INI_LINEAR_PHISURF |
dPIdp = (atm_Cp*atm_kappa/atm_Po)* |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
142 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
202 |
INI_LINEAR_PHISURF |
dPIdp = (atm_Cp*atm_kappa/atm_Po)* |
|
./model/src/ini_linear_phisurf.F |
203 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./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_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 |
426 |
INI_PARMS |
atm_Rd = atm_Cp * atm_kappa |
|
./model/src/ini_parms.F |
428 |
INI_PARMS |
atm_kappa = atm_Rd / atm_Cp |
|
./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 |
66 |
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) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
231 |
EXTERNAL_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/tutorial_held_suarez_cs/code/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./model/src/set_defaults.F |
233 |
SET_DEFAULTS |
atm_kappa = 2. _d 0 / 7. _d 0 |
|
./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 |
223 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
224 |
SET_REF_STATE |
& -((rHalf(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
232 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
233 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
236 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
237 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
95 |
AIM_AIM2DYN |
conv_T2theta = (atm_po/rC(k))**atm_kappa |
|
./pkg/aim_v23/aim_dyn2aim.F |
160 |
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/diagnostics/diagnostics_interp_vert.F |
83 |
DIAGNOSTICS_INTERP_VERT |
kappa = atm_kappa |