| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_comm_sequence.F |
56 |
W2_PRINT_COMM_SEQUENCE |
INTEGER pi(2), pj(2), oi, oj, tN |
|
./pkg/exch2/w2_print_comm_sequence.F |
74 |
W2_PRINT_COMM_SEQUENCE |
pi(1) =exch2_pij(1,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
75 |
W2_PRINT_COMM_SEQUENCE |
pi(2) =exch2_pij(2,N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
91 |
W2_PRINT_COMM_SEQUENCE |
sourceIlo=pi(1)*(targetIlo+itb)+pi(2)*(targetJlo+jtb)+oi-isb |
|
./pkg/exch2/w2_print_comm_sequence.F |
93 |
W2_PRINT_COMM_SEQUENCE |
sourceIhi=pi(1)*(targetIhi+itb)+pi(2)*(targetJhi+jtb)+oi-isb |
|
./pkg/exf/exf_bulkformulae.F |
408 |
EXF_BULKFORMULAE |
& -exf_two*ATAN(x) + exf_half*pi ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
903 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
928 |
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 |
1439 |
TRBFLX |
_RL vrt1con,pi,rsq2pi,p5sr,clh,vk,rvk,aitr,gbycp,fac1,fac2 |
|
./pkg/fizhi/fizhi_turb.F |
246 |
TURBIO |
_RL pi,secday,sdayopi2,rgas,akap,cp,alhl |
|
./pkg/fizhi/fizhi_turb.F |
269 |
TURBIO |
pi = 4.*atan(1.) |
|
./pkg/fizhi/fizhi_turb.F |
271 |
TURBIO |
sdayopi2 = getcon('SDAY') / (pi*2.) |
|
./pkg/flt/exch2_recv_get_vec.F |
128 |
EXCH2_RECV_GET_VEC_RL |
pi(1)=exch2_pij(1,nN,thisTile) |
|
./pkg/flt/exch2_recv_get_vec.F |
129 |
EXCH2_RECV_GET_VEC_RL |
pi(2)=exch2_pij(2,nN,thisTile) |
|
./pkg/flt/exch2_recv_get_vec.F |
140 |
EXCH2_RECV_GET_VEC_RL |
itmp = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
157 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+3,bi,bj,dir) = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
77 |
EXCH2_RECV_GET_VEC_RL |
INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb |
|
./pkg/ggl90/ggl90_idemix.F |
143 |
GGL90_IDEMIX |
cstar = bN0(i,j)/(pi*IDEMIX_jstar) |
|
./pkg/ggl90/ggl90_idemix.F |
151 |
GGL90_IDEMIX |
& (IDEMIX_jstar*pi/(GGL90eps+bN0(i,j)) )**2 |
|
./pkg/ggl90/ggl90_idemix.F |
479 |
GGL90_IDEMIX |
_RL pi |
|
./pkg/ggl90/ggl90_idemix.F |
480 |
GGL90_IDEMIX |
PARAMETER( pi = 3.14159265358979323846264338327950588d0 ) |
|
./pkg/ggl90/ggl90_idemix.F |
482 |
GGL90_IDEMIX |
c= 1.d0-(2.d0/pi)*ASIN(1.d0/x) |
|
./pkg/ggl90/ggl90_idemix.F |
483 |
GGL90_IDEMIX |
IDEMIX_gofx2 = 2.d0/pi/c*0.9d0*x**(-2.d0/3.d0)*(1.-EXP(-x/4.3d0)) |
|
./pkg/ggl90/ggl90_idemix.F |
489 |
GGL90_IDEMIX |
_RL pi |
|
./pkg/ggl90/ggl90_idemix.F |
490 |
GGL90_IDEMIX |
PARAMETER( pi = 3.14159265358979323846264338327950588d0 ) |
|
./pkg/ggl90/ggl90_idemix.F |
491 |
GGL90_IDEMIX |
IDEMIX_hofx1 = (2.d0/pi)/(1.d0-(2.d0/pi)* |
|
./pkg/gmredi/gmredi_calc_eigs.F |
294 |
GMREDI_CALC_EIGS |
c1(i,j) = intN0(i,j)/pi |
|
./pkg/gmredi/gmredi_k3d.F |
465 |
GMREDI_K3D |
Req = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj))) |
|
./pkg/mom_common/mom_calc_visc.F |
196 |
MOM_CALC_VISC |
smag2fac=(viscC2smag/pi)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
197 |
MOM_CALC_VISC |
smag4fac=0.125 _d 0*(viscC4smag/pi)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
205 |
MOM_CALC_VISC |
leith2fac =(viscC2leith /pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
206 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
207 |
MOM_CALC_VISC |
leith4fac =0.015625 _d 0*(viscC4leith /pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
208 |
MOM_CALC_VISC |
leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
210 |
MOM_CALC_VISC |
leith2fac =(viscC2leith /pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
211 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
212 |
MOM_CALC_VISC |
leith4fac =0.125 _d 0*(viscC4leith /pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
213 |
MOM_CALC_VISC |
leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3 |
|
./pkg/sbo/sbo_rho.F |
35 |
NO PROCEDURE |
PLAT=abs(LAT*pi/180.) |
|
./model/src/ini_mixing.F |
84 |
INI_MIXING |
& ( 1 + COS(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./pkg/thsice/thsice_get_exf.F |
381 |
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 |
153 |
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 |
165 |
DO_FIZHI |
pi = getcon('PI') |
|
./verification/internal_wave/code/obcs_calc.F |
73 |
OBCS_CALC |
kx=mz*2. _d 0*pi/400.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
74 |
OBCS_CALC |
& *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
76 |
OBCS_CALC |
& - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale))) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
tidal_freq=2.*pi/(43200.) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
88 |
EXTERNAL_FORCING_U |
Coord2longitude=pi/180. |
|
./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_lanl_flux.F |
174 |
CHEAPAML_LANL_FLUX |
& 2. _d 0*atan(x) + pi*.5 _d 0) |
|
./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. ) |