| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
132 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./pkg/fizhi/do_fizhi.F |
165 |
DO_FIZHI |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/do_fizhi.F |
166 |
DO_FIZHI |
p0kappa = 1000.0 ** kappa |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
214 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
216 |
FIZHI_TENDENCY_APPLY_T |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_tendency_apply.F |
217 |
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 |
132 |
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 |
414 |
DIAGNOSTICS_FILL_STATE |
kappa = getcon('KAPPA') |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
56 |
DIAGNOSTICS_FILL_STATE |
_RL dummy1, dummy2, dummy3, dummy4, kappa, getcon |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
154 |
DIAGNOSTICS_INTERP_VERT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
163 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
188 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
75 |
DIAGNOSTICS_INTERP_VERT |
_RL kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
85 |
DIAGNOSTICS_INTERP_VERT |
kappa = atm_kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
87 |
DIAGNOSTICS_INTERP_VERT |
IF ( useFIZHI ) kappa = getcon('KAPPA') |
|
./pkg/ebm/ebm_atmosphere.F |
189 |
EBM_ATMOSPHERE |
kappa = Hw/(1. _d 0 + gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
191 |
EBM_ATMOSPHERE |
C = 0.6 _d 0 *gravity*kappa*kappa*Nw/ |
|
./pkg/ebm/ebm_atmosphere.F |
82 |
EBM_ATMOSPHERE |
_RL gamma, kappa, De |