| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
131 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./pkg/fizhi/do_fizhi.F |
164 |
DO_FIZHI |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/do_fizhi.F |
165 |
DO_FIZHI |
p0kappa = 1000.0 ** kappa |
|
./pkg/fizhi/do_fizhi.F |
194 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
213 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
183 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
194 |
FIZHI_TENDENCY_APPLY_T |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_tendency_apply.F |
195 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
52 |
INI_SALT |
_RL getcon, kappa, dum, pinmb |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
66 |
INI_SALT |
kappa = getcon('KAPPA') |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
68 |
INI_SALT |
pkappa(K)=(pdyn(K)/100000.)**kappa |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
131 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./pkg/aim_v23/phy_snow_precip.F |
72 |
SNOW_PRECIP |
_RL kappa |
|
./pkg/aim_v23/phy_snow_precip.F |
78 |
SNOW_PRECIP |
kappa = RD/CP |
|
./pkg/aim_v23/phy_snow_precip.F |
84 |
SNOW_PRECIP |
T1(J) = ThA(J,kGrd(J))*(PSA(J)**kappa) |
|
./pkg/aim_v23/phy_suflux_prep.F |
101 |
SUFLUX_PREP |
_RL factWind2, kappa |
|
./pkg/aim_v23/phy_suflux_prep.F |
126 |
SUFLUX_PREP |
kappa = RD/CP |
|
./pkg/aim_v23/phy_suflux_prep.F |
137 |
SUFLUX_PREP |
T1(J) = ThA(J,Ktmp)*(PSA(J)**kappa) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
kappa = getcon('KAPPA') |
|
./pkg/diagnostics/diagnostics_fill_state.F |
430 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rc(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
51 |
DIAGNOSTICS_FILL_STATE |
_RL dummy1, dummy2, dummy3, dummy4, kappa, getcon |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
156 |
DIAGNOSTICS_INTERP_VERT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
165 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
182 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
190 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
73 |
DIAGNOSTICS_INTERP_VERT |
_RL kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
83 |
DIAGNOSTICS_INTERP_VERT |
kappa = atm_kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
85 |
DIAGNOSTICS_INTERP_VERT |
IF ( useFIZHI ) kappa = getcon('KAPPA') |
|
./pkg/ebm/EBM.h |
72 |
NO PROCEDURE |
_RL gamma, kappa, De |
|
./pkg/ebm/ebm_atmosphere.F |
167 |
EBM_ATMOSPHERE |
kappa = Hw/(1. _d 0 + gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
169 |
EBM_ATMOSPHERE |
C = 0.6 _d 0 *gravity*kappa*kappa*Nw/ |