| 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 |
166 |
DO_FIZHI |
S0 = getcon('S0') |
|
./pkg/fizhi/fizhi_clockstuff.F |
880 |
ASTRO |
_RL getcon, cosz(irun), alat(irun), alon(irun), ra |
|
./pkg/fizhi/fizhi_clockstuff.F |
913 |
ASTRO |
pi = getcon('PI') |
|
./pkg/fizhi/fizhi_clockstuff.F |
914 |
ASTRO |
dg2rd = getcon('DEG2RAD') |
|
./pkg/fizhi/fizhi_clockstuff.F |
915 |
ASTRO |
yrlen = getcon('YRLEN') |
|
./pkg/fizhi/fizhi_clockstuff.F |
916 |
ASTRO |
ob = getcon('OBLDEG') * dg2rd |
|
./pkg/fizhi/fizhi_clockstuff.F |
917 |
ASTRO |
daylen = getcon('SDAY') |
|
./pkg/fizhi/fizhi_clockstuff.F |
918 |
ASTRO |
eqnx = getcon('VERNAL EQUINOX') |
|
./pkg/fizhi/fizhi_clockstuff.F |
919 |
ASTRO |
ecc = getcon('ECCENTRICITY') |
|
./pkg/fizhi/fizhi_clockstuff.F |
920 |
ASTRO |
per = getcon('PERIHELION') * dg2rd |
|
./pkg/fizhi/fizhi_driver.F |
118 |
FIZHI_DRIVER |
_RL akap,getcon |
|
./pkg/fizhi/fizhi_driver.F |
127 |
FIZHI_DRIVER |
akap = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_fillnegs.F |
108 |
TRACER_FILL |
a = getcon('EARTH RADIUS') |
|
./pkg/fizhi/fizhi_fillnegs.F |
183 |
TRACER_FILL |
undef = getcon('UNDEF') |
|
./pkg/fizhi/fizhi_fillnegs.F |
92 |
TRACER_FILL |
_RL pi,a,getcon,undef |
|
./pkg/fizhi/fizhi_gwdrag.F |
79 |
GWDRAG |
_RL getcon, pi |
|
./pkg/fizhi/fizhi_gwdrag.F |
90 |
GWDRAG |
grav = getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_gwdrag.F |
91 |
GWDRAG |
rgas = getcon('RGAS') |
|
./pkg/fizhi/fizhi_gwdrag.F |
92 |
GWDRAG |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_gwdrag.F |
94 |
GWDRAG |
lstar = 2*getcon('EARTH RADIUS')*cos(pi/3.0)/imglobal |
|
./pkg/fizhi/fizhi_init_chem.F |
30 |
FIZHI_INIT_CHEM |
_RL getcon |
|
./pkg/fizhi/fizhi_init_chem.F |
40 |
FIZHI_INIT_CHEM |
co2 = getcon('CO2' )*1.e-6 |
|
./pkg/fizhi/fizhi_init_chem.F |
41 |
FIZHI_INIT_CHEM |
cfc11 = getcon('CFC11')*1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
42 |
FIZHI_INIT_CHEM |
cfc12 = getcon('CFC12')*1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
43 |
FIZHI_INIT_CHEM |
cfc22 = getcon('CFC22')*1.e-9 |
|
./pkg/fizhi/fizhi_lwrad.F |
73 |
LWRIO |
_RL getcon,secday,convrt |
|
./pkg/fizhi/fizhi_moist.F |
142 |
MOISTIO |
_RL tice,getcon,pi |
|
./pkg/fizhi/fizhi_moist.F |
196 |
MOISTIO |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_moist.F |
2404 |
RNEVP |
_RL getcon,rphf,elocp,cpog,relax |
|
./pkg/fizhi/fizhi_moist.F |
2417 |
RNEVP |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_moist.F |
2624 |
SRCLOUDS |
_RL cp, alhl, getcon, akap |
|
./pkg/fizhi/fizhi_moist.F |
2640 |
SRCLOUDS |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_moist.F |
2641 |
SRCLOUDS |
alhl = getcon('LATENT HEAT COND') |
|
./pkg/fizhi/fizhi_moist.F |
2643 |
SRCLOUDS |
akap = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_moist.F |
2679 |
CTEI |
_RL getcon,cp,alhl,elocp,cpoel,t,p,s,qs,dqsdt,dq |
|
./pkg/fizhi/fizhi_moist.F |
2682 |
CTEI |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_moist.F |
2683 |
CTEI |
alhl = getcon('LATENT HEAT COND') |
|
./pkg/fizhi/fizhi_rayleigh.F |
48 |
RAYLEIGH |
_RL cpog, cpinv, virtcon, getcon, dampcoef |
|
./pkg/fizhi/fizhi_rayleigh.F |
59 |
RAYLEIGH |
cpog = getcon('CP')/getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_rayleigh.F |
60 |
RAYLEIGH |
cpinv = 1.0/getcon('CP') |
|
./pkg/fizhi/fizhi_rayleigh.F |
61 |
RAYLEIGH |
virtcon = getcon('VIRTCON') |
|
./pkg/fizhi/fizhi_step_diag.F |
42 |
FIZHI_STEP_DIAG |
_RL getcon, gravity |
|
./pkg/fizhi/fizhi_step_diag.F |
433 |
FIZHI_STEP_DIAG |
gravity = getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_swrad.F |
105 |
SWRIO |
grav = getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_swrad.F |
106 |
SWRIO |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_swrad.F |
107 |
SWRIO |
undef = getcon('UNDEF') |
|
./pkg/fizhi/fizhi_swrad.F |
44 |
SWRIO |
_RL getcon,grav,cp,undef |
|
./pkg/fizhi/fizhi_tendency_apply.F |
183 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
193 |
FIZHI_TENDENCY_APPLY_T |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_tendency_apply.F |
194 |
FIZHI_TENDENCY_APPLY_T |
kappa = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_turb.F |
1610 |
TRBFLX |
_RL getcon,dum,errf |
|
./pkg/fizhi/fizhi_turb.F |
1615 |
TRBFLX |
vk = getcon('VON KARMAN') |
|
./pkg/fizhi/fizhi_turb.F |
256 |
TURBIO |
_RL faceps,grav,caltoj,virtcon,getcon |
|
./pkg/fizhi/fizhi_turb.F |
282 |
TURBIO |
secday = getcon('SDAY') |
|
./pkg/fizhi/fizhi_turb.F |
283 |
TURBIO |
sdayopi2 = getcon('SDAY') / (pi*2.) |
|
./pkg/fizhi/fizhi_turb.F |
284 |
TURBIO |
rgas = getcon('RGAS') |
|
./pkg/fizhi/fizhi_turb.F |
285 |
TURBIO |
akap = getcon('KAPPA') |
|
./pkg/fizhi/fizhi_turb.F |
2867 |
SFCFLX |
_RL getcon,vk,rvk,vk2,bmdl |
|
./pkg/fizhi/fizhi_turb.F |
286 |
TURBIO |
cp = getcon('CP') |
|
./pkg/fizhi/fizhi_turb.F |
2871 |
SFCFLX |
vk = getcon('VON KARMAN') |
|
./pkg/fizhi/fizhi_turb.F |
287 |
TURBIO |
alhl = getcon('LATENT HEAT COND') |
|
./pkg/fizhi/fizhi_turb.F |
288 |
TURBIO |
faceps = getcon('EPSFAC') |
|
./pkg/fizhi/fizhi_turb.F |
289 |
TURBIO |
grav = getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_turb.F |
290 |
TURBIO |
caltoj = getcon('CALTOJ') |
|
./pkg/fizhi/fizhi_turb.F |
291 |
TURBIO |
virtcon = getcon('VIRTCON') |
|
./pkg/fizhi/fizhi_turb.F |
292 |
TURBIO |
heatw = getcon('HEATW') |
|
./pkg/fizhi/fizhi_turb.F |
293 |
TURBIO |
undef = getcon('UNDEF') |
|
./pkg/fizhi/fizhi_turb.F |
317 |
TURBIO |
tice = getcon('FREEZING-POINT') |
|
./pkg/fizhi/fizhi_turb.F |
4726 |
LINADJ |
_RL getcon,vk,bmdl,b2uhs |
|
./pkg/fizhi/fizhi_turb.F |
4729 |
LINADJ |
vk = getcon('VON KARMAN') |
|
./pkg/fizhi/fizhi_turb.F |
5106 |
SEAICE |
_RL faceps,getcon,latent,codt,deltg,hice |
|
./pkg/fizhi/fizhi_turb.F |
5109 |
SEAICE |
faceps = getcon('EPSFAC') |
|
./pkg/fizhi/fizhi_turb.F |
5110 |
SEAICE |
latent = getcon('HEATI') * getcon('CALTOJ') |
|
./pkg/fizhi/fizhi_utils.F |
625 |
PASTE2GRD |
_RL undef,getcon |
|
./pkg/fizhi/fizhi_utils.F |
632 |
PASTE2GRD |
undef = getcon('UNDEF') |
|
./pkg/fizhi/fizhi_utils.F |
734 |
CHPPRM |
_RL getcon,vkrm,rootl,vroot,dum1,dum2,alphaf |
|
./pkg/fizhi/fizhi_utils.F |
924 |
PKAPPA |
_RL akap1,getcon |
|
./pkg/fizhi/fizhi_utils.F |
927 |
PKAPPA |
akap1 = 1.0 + getcon('KAPPA') |
|
./pkg/fizhi/fizhi_wrapper.F |
55 |
FIZHI_WRAPPER |
_RL grav, getcon |
|
./pkg/fizhi/fizhi_wrapper.F |
57 |
FIZHI_WRAPPER |
grav = getcon('GRAVITY') |
|
./pkg/fizhi/slprs.F |
31 |
SLPRS |
_RL getcon,g,r,ak |
|
./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/update_ocean_exports.F |
253 |
GETSST |
_RL getcon |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
259 |
GETSST |
deg2rad = getcon('DEG2RAD') |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
260 |
GETSST |
pi = getcon('PI') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
131 |
DO_FIZHI |
_RL getcon, kappa, p0kappa, s0, ra |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
164 |
DO_FIZHI |
pi = getcon('PI') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
165 |
DO_FIZHI |
atm_kappa = getcon('KAPPA') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
166 |
DO_FIZHI |
atm_po = getcon('ATMPOPA') |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
167 |
DO_FIZHI |
deg2rad = getcon('DEG2RAD') |
|
./pkg/diagnostics/diag_vegtile_fill.F |
75 |
DIAG_VEGTILE_FILL |
_RL getcon |
|
./pkg/diagnostics/diag_vegtile_fill.F |
84 |
DIAG_VEGTILE_FILL |
IF ( check ) undef = getcon('UNDEF') |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
kappa = getcon('KAPPA') |
|
./pkg/diagnostics/diagnostics_fill_state.F |
51 |
DIAGNOSTICS_FILL_STATE |
_RL dummy1, dummy2, dummy3, dummy4, kappa, getcon |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
57 |
DIAGNOSTICS_INTERP_VERT |
_RL getcon |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
85 |
DIAGNOSTICS_INTERP_VERT |
IF ( useFIZHI ) kappa = getcon('KAPPA') |
|
./pkg/diagnostics/diagnostics_out.F |
115 |
DIAGNOSTICS_OUT |
undef = getcon('UNDEF') |
|
./pkg/diagnostics/diagnostics_out.F |
45 |
DIAGNOSTICS_OUT |
_RL getcon |
|
./pkg/diagnostics/diagstats_local.F |
101 |
DIAGSTATS_LOCAL |
specialVal = getcon('UNDEF') |
|
./pkg/diagnostics/diagstats_local.F |
78 |
DIAGSTATS_LOCAL |
_RL getcon |
|
./pkg/diagnostics/diagstats_output.F |
48 |
DIAGSTATS_OUTPUT |
_RL getcon |
|
./pkg/diagnostics/diagstats_output.F |
68 |
DIAGSTATS_OUTPUT |
IF ( useFIZHI ) undef = getcon('UNDEF') |