| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/dyn2phys.F |
58 |
DYN2PHYS |
_RL getcon, kappa |
|
./pkg/gridalt/dyn2phys.F |
60 |
DYN2PHYS |
kappa = getcon('KAPPA') |
|
./pkg/gridalt/phys2dyn.F |
51 |
PHYS2DYN |
_RL getcon, kappa, dpkephy, dpkedyn, sum |
|
./pkg/gridalt/phys2dyn.F |
53 |
PHYS2DYN |
kappa = getcon('KAPPA') |
|
./pkg/ebm/EBM.h |
69 |
NO PROCEDURE |
_RL gamma, kappa, De |
|
./pkg/ebm/ebm_atmosphere.F |
171 |
EBM_ATMOSPHERE |
kappa = Hw/(1 + gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
173 |
EBM_ATMOSPHERE |
C = 0.6*gravity*kappa*kappa*Nw/ |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
52 |
INI_SALT |
_RL getcon, kappa, dum, pinmb |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
66 |
INI_SALT |
kappa = getcon('KAPPA') |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
68 |
INI_SALT |
pkappa(K)=(pdyn(K)/100000.)**kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
131 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
165 |
DO_FIZHI |
kappa = getcon('KAPPA') |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
166 |
DO_FIZHI |
p0kappa = 1000.0 ** kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
191 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
210 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
131 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./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/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/diagnostics/diagnostics_out.F |
113 |
DIAGNOSTICS_OUT |
kappa = getcon('KAPPA') |
|
./pkg/diagnostics/diagnostics_out.F |
379 |
DIAGNOSTICS_OUT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj) ** kappa |
|
./pkg/diagnostics/diagnostics_out.F |
387 |
DIAGNOSTICS_OUT |
pkz(i,j,k) = qtmp2(i,j,nlevels(listId)-k+1,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_out.F |
390 |
DIAGNOSTICS_OUT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_out.F |
86 |
DIAGNOSTICS_OUT |
_RL kappa |
|
./pkg/diagnostics/prestopres.F |
38 |
PRESTOPRES |
real ptop,p,undef,kappa,getcon |
|
./pkg/diagnostics/prestopres.F |
42 |
PRESTOPRES |
kappa = getcon('KAPPA') |
|
./pkg/diagnostics/prestopres.F |
44 |
PRESTOPRES |
pk = p**kappa |
|
./pkg/diagnostics/prestopres.F |
46 |
PRESTOPRES |
pktop = ptop**kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
131 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
137 |
FIZHI_TENDENCY_APPLY_T |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_tendency_apply.F |
138 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./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 |
190 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |