| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
169 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
215 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
216 |
EXF_ZENITHANGLE |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/exf/exf_zenithangle.F |
283 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
317 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq / PI |
|
./pkg/exf/exf_zenithangle_table.F |
58 |
EXF_ZENITHANGLE_TABLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle_table.F |
90 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |
|
./model/inc/PARAMS.h |
19 |
NO PROCEDURE |
Real*8 PI |
|
./model/inc/PARAMS.h |
20 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159265358979323844D0 ) |
|
./model/inc/PARAMS.h |
22 |
NO PROCEDURE |
PARAMETER ( deg2rad = 2.D0*PI/360.D0 ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
922 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
958 |
ASTRO |
T1 = FUN(T0,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
959 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
960 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
961 |
ASTRO |
T4 = FUN(ZERO+T3,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
965 |
ASTRO |
T1 = FUN(TH(KM),PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
966 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
T4 = FUN(TH(KM)+T3,PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
983 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
984 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
986 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./pkg/fizhi/fizhi_clockstuff.F |
998 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/fizhi/fizhi_moist.F |
197 |
MOISTIO |
PI = 4.*atan(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1458 |
TRBFLX |
PI = 4. * ATAN(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1459 |
TRBFLX |
RSQ2PI = 1./ ((2.*PI)**0.5) |
|
./pkg/fizhi/getcon.F |
146 |
NO PROCEDURE |
DATA ANAME(43),ACON(43) / 'PI ', PI / |
|
./pkg/fizhi/getcon.F |
33 |
NO PROCEDURE |
& CFC11, CFC12, CFC22, ATMPOPA, PI, CPD, CPV, ALHL, ALHS, |
|
./pkg/fizhi/getcon.F |
68 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159d0 ) |
|
./pkg/fizhi/getcon.F |
95 |
NO PROCEDURE |
PARAMETER ( DEG2RAD = PI/180.d0) |
|
./pkg/gmredi/gmredi_slope_limit.F |
116 |
GMREDI_SLOPE_LIMIT |
PARAMETER( fpi = PI ) |
|
./model/src/calc_3d_diffusivity.F |
86 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/obcs/obcs_add_tides.F |
107 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBNph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
125 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBSph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
71 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBEph(j,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
89 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBWph(j,td,bi,bj)) / |
|
./pkg/sbo/sbo_rho.F |
27 |
NO PROCEDURE |
Real*8 PI |
|
./pkg/sbo/sbo_rho.F |
28 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159265358979323844D0 ) |
|
./pkg/seaice/seaice_evp.F |
179 |
SEAICE_EVP |
& * (SEAICEaEvpCoeff * PI)**2 |
|
./pkg/seaice/seaice_growth.F |
1111 |
SEAICE_GROWTH |
& latMeltRate(i,j,it)*SEAICE_deltaTtherm*PI / |
|
./pkg/streamice/eta_gl_prime_streamice.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_prime_streamice.F |
27 |
NO PROCEDURE |
PI = 3.14159265358979323844D0 |
|
./pkg/streamice/eta_gl_prime_streamice.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/eta_gl_streamice.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_streamice.F |
26 |
NO PROCEDURE |
PI = 3.14159265358979323844D0 |
|
./pkg/streamice/eta_gl_streamice.F |
27 |
NO PROCEDURE |
TMP1 = W/PI * COS(PI*X/W) |
|
./pkg/streamice/eta_gl_streamice_prime.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_streamice_prime.F |
27 |
NO PROCEDURE |
PI = 3.14159265358979323844D0 |
|
./pkg/streamice/eta_gl_streamice_prime.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/phi_gl_streamice.F |
12 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/phi_gl_streamice.F |
19 |
NO PROCEDURE |
PI = 3.14159265358979323844D0 |
|
./pkg/streamice/phi_gl_streamice.F |
20 |
NO PROCEDURE |
TMP1 = COS (2*PI*X/W) |
|
./pkg/streamice/streamice_init_varia.F |
433 |
STREAMICE_INIT_VARIA |
& (1+sin(2*streamice_kx_b_init*PI*x/lenx)* |
|
./pkg/streamice/streamice_init_varia.F |
434 |
STREAMICE_INIT_VARIA |
& sin(2*streamice_ky_b_init*PI*y/leny))) |
|
./pkg/streamice/streamice_init_varia.F |
451 |
STREAMICE_INIT_VARIA |
& sin(2*streamice_kx_b_init*PI*x/lenx))) |
|
./model/src/ini_parms.F |
455 |
INI_PARMS |
& omega = 2. _d 0 * PI / rotationPeriod |
|
./model/src/ini_parms.F |
459 |
INI_PARMS |
rotationPeriod = 2. _d 0 * PI / omega |
|
./pkg/zonal_filt/zonal_filt_init.F |
68 |
ZONAL_FILT_INIT |
& /(SIN( PI*FLOAT(i)/FLOAT(Nx) ) )**zonal_filt_sinpow |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
226 |
AIM_SURF_BC |
ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
259 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
260 |
AIM_SURF_BC |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./verification/internal_wave/code/obcs_calc.F |
118 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
128 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
135 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
137 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
138 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
145 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
147 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
148 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
149 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
209 |
AIM_SURF_BC |
ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
242 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/aim_v23/aim_surf_bc.F |
243 |
AIM_SURF_BC |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/aim_v23/phy_radiat.F |
121 |
SOL_OZ |
FSOL(J) = 4. _d 0 / PI * SOLC * |
|
./pkg/aim_v23/phy_radiat.F |
84 |
SOL_OZ |
SZEN = - SIN( OBLIQ * PI/180. _d 0) * COS(ALPHA) |
|
./pkg/atm2d/init_atm2d.F |
171 |
INIT_ATM2D |
& (2. _d 0 * PI * 6.37 _d 6 * 6.37 _d 6 * |
|
./pkg/atm2d/init_atm2d.F |
178 |
INIT_ATM2D |
& (2. _d 0*PI*6.37 _d 6*6.37 _d 6* |
|
./pkg/atm2d/init_atm2d.F |
183 |
INIT_ATM2D |
& (2. _d 0*PI*6.37 _d 6*6.37 _d 6* |
|
./pkg/bling/bling_light.F |
114 |
BLING_LIGHT |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/bling/bling_light.F |
136 |
BLING_LIGHT |
frac = dayhrs/PI !fraction of daylight in day |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
72 |
CHEAPAML_COARE3_FLUX |
twoPI = 2. _d 0*PI |
|
./pkg/cheapaml/cheapaml_fields_load.F |
512 |
CHEAPAML_FIELDS_LOAD |
local = -5. _d 0*COS( 2. _d 0*PI*(jG-1)*recipNym1 ) |
|
./pkg/chronos/chronos.F |
767 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/chronos/chronos.F |
816 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/chronos/chronos.F |
817 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/chronos/chronos.F |
819 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./pkg/chronos/chronos.F |
831 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/dic/insol.F |
58 |
INSOL |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/dic/insol.F |
80 |
INSOL |
frac = dayhrs/PI !fraction of daylight in day |
|
./pkg/ebm/ebm_atmosphere.F |
201 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
204 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
279 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*25.) ) |
|
./pkg/ebm/ebm_atmosphere.F |
298 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*22.3 _d 0) ) |
|
./pkg/ebm/ebm_atmosphere.F |
316 |
EBM_ATMOSPHERE |
& /(2.0*12.0*PI*rSphere*rSphere) |
|
./pkg/ebm/ebm_atmosphere.F |
333 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*18.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
346 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
357 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_load_climatology.F |
76 |
EBM_LOAD_CLIMATOLOGY |
tauX = tauMax*sin(PI*distY) |