| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
889 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
913 |
ASTRO |
pi = getcon('PI') |
|
./pkg/fizhi/fizhi_fillnegs.F |
107 |
TRACER_FILL |
pi = 4.0*atan(1.0) |
|
./pkg/fizhi/fizhi_fillnegs.F |
112 |
TRACER_FILL |
lam(1) = -pi |
|
./pkg/fizhi/fizhi_fillnegs.F |
119 |
TRACER_FILL |
phi(1) = -pi/2. |
|
./pkg/fizhi/fizhi_fillnegs.F |
123 |
TRACER_FILL |
phi(jm) = pi/2. |
|
./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 |
89 |
GWDRAG |
pi = 4.0*atan(1.0) |
|
./pkg/fizhi/fizhi_gwdrag.F |
94 |
GWDRAG |
lstar = 2*getcon('EARTH RADIUS')*cos(pi/3.0)/imglobal |
|
./pkg/fizhi/fizhi_moist.F |
142 |
MOISTIO |
_RL tice,getcon,pi |
|
./pkg/fizhi/fizhi_moist.F |
514 |
MOISTIO |
. tan(20.*pi/21.-0.5*pi) ) |
|
./pkg/fizhi/fizhi_moist.F |
515 |
MOISTIO |
. + 0.5*pi) * 21./pi - 1.) |
|
./pkg/fizhi/fizhi_turb.F |
1609 |
TRBFLX |
_RL vrt1con,pi,rsq2pi,p5sr,clh,vk,rvk,aitr,gbycp,fac1,fac2 |
|
./pkg/fizhi/fizhi_turb.F |
255 |
TURBIO |
_RL pi,secday,sdayopi2,rgas,akap,cp,alhl |
|
./pkg/fizhi/fizhi_turb.F |
281 |
TURBIO |
pi = 4.*atan(1.) |
|
./pkg/fizhi/fizhi_turb.F |
283 |
TURBIO |
sdayopi2 = getcon('SDAY') / (pi*2.) |
|
./pkg/mom_common/mom_calc_visc.F |
230 |
MOM_CALC_VISC |
smag2fac=(viscC2smag/pi)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
231 |
MOM_CALC_VISC |
smag4fac=0.125 _d 0*(viscC4smag/pi)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
239 |
MOM_CALC_VISC |
leith2fac =(viscC2leith /pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
240 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
241 |
MOM_CALC_VISC |
leith4fac =0.015625 _d 0*(viscC4leith /pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
242 |
MOM_CALC_VISC |
leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
244 |
MOM_CALC_VISC |
leith2fac =(viscC2leith /pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
245 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
246 |
MOM_CALC_VISC |
leith4fac =0.125 _d 0*(viscC4leith /pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
247 |
MOM_CALC_VISC |
leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3 |
|
./pkg/sbo/sbo_calc.F |
216 |
SBO_CALC |
lat = yC(i,j,bi,bj) * pi / 180.0 |
|
./pkg/sbo/sbo_calc.F |
218 |
SBO_CALC |
lon = xC(i,j,bi,bj) * pi / 180.0 |
|
./pkg/sbo/sbo_rho.F |
35 |
NO PROCEDURE |
PLAT=abs(LAT*pi/180.) |
|
./pkg/thsice/thsice_get_exf.F |
351 |
THSICE_GET_EXF |
& -exf_two*ATAN(x) + exf_half*pi ) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
254 |
GETSST |
_RL pi,pio2,pio3,mpio3,pio36,deg2rad,sinarg |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
260 |
GETSST |
pi = getcon('PI') |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
261 |
GETSST |
pio2 = pi / 2. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
262 |
GETSST |
pio3 = pi / 3. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
263 |
GETSST |
pio36 = pi / 36. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
264 |
GETSST |
mpio3 = -1. _d 0 * pi / 3. _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 |
164 |
DO_FIZHI |
pi = getcon('PI') |
|
./model/src/ini_mixing.F |
75 |
INI_MIXING |
& ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
kx=mz*2. _d 0*pi/400.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
65 |
OBCS_CALC |
& *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
67 |
OBCS_CALC |
& - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale))) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
Coord2longitude=pi/180. |
|
./verification/tidal_basin_2d/code/external_forcing.F |
94 |
EXTERNAL_FORCING_U |
tidal_freq=2.*pi/(43200.) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
176 |
BULKF_FORMULA_LANL |
& 2. _d 0*atan(x) + pi*.5 _d 0) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
199 |
BULKF_FORMULA_LAY |
& -two*ATAN(x) + half*pi ) |
|
./pkg/cheapaml/cheapaml.F |
315 |
CHEAPAML |
& 2. _d 0*atan(x) + pi*.5 _d 0) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
162 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
360 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/chronos/chronos.F |
740 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/chronos/chronos.F |
743 |
ASTRO |
parameter ( pi = 3.1415926535898) |
|
./pkg/chronos/chronos.F |
748 |
ASTRO |
parameter ( dg2rd = pi/180. ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
57 |
W2_PRINT_COMM_SEQUENCE |
INTEGER pi(2), pj(2), oi, oj, tN |
|
./pkg/exch2/w2_print_comm_sequence.F |
75 |
W2_PRINT_COMM_SEQUENCE |
pi(1) =exch2_pij(1,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
76 |
W2_PRINT_COMM_SEQUENCE |
pi(2) =exch2_pij(2,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
92 |
W2_PRINT_COMM_SEQUENCE |
sourceIlo=pi(1)*(targetIlo+itb)+pi(2)*(targetJlo+jtb)+oi-isb |
|
./pkg/exch2/w2_print_comm_sequence.F |
94 |
W2_PRINT_COMM_SEQUENCE |
sourceIhi=pi(1)*(targetIhi+itb)+pi(2)*(targetJhi+jtb)+oi-isb |
|
./pkg/exf/exf_bulkformulae.F |
394 |
EXF_BULKFORMULAE |
& -exf_two*ATAN(x) + exf_half*pi ) |
|
./pkg/exf/exf_zenithangle.F |
283 |
EXF_ZENITHANGLE |
FSOL= SOLC * dD0dDsq / pi * |