| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
907 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
943 |
ASTRO |
T1 = FUN(T0,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
945 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
946 |
ASTRO |
T4 = FUN(ZERO+T3,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
950 |
ASTRO |
T1 = FUN(TH(KM),PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
951 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
952 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
953 |
ASTRO |
T4 = FUN(TH(KM)+T3,PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
969 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
971 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./pkg/fizhi/fizhi_clockstuff.F |
983 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/fizhi/fizhi_moist.F |
197 |
MOISTIO |
PI = 4.*atan(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1628 |
TRBFLX |
PI = 4. * ATAN(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1629 |
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) |
|
./model/inc/PARAMS.h |
22 |
NO PROCEDURE |
Real*8 PI |
|
./model/inc/PARAMS.h |
23 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159265358979323844D0 ) |
|
./model/inc/PARAMS.h |
25 |
NO PROCEDURE |
PARAMETER ( deg2rad = 2.D0*PI/360.D0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
113 |
GMREDI_SLOPE_LIMIT |
PARAMETER( fpi = PI ) |
|
./model/src/calc_3d_diffusivity.F |
81 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
84 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/calc_diffusivity.F |
67 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_diffusivity.F |
70 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
66 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
69 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/sbo/sbo_rho.F |
27 |
NO PROCEDURE |
Real*8 PI |
|
./pkg/sbo/sbo_rho.F |
28 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159265358979323844D0 ) |
|
./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 |
220 |
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 |
247 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
248 |
AIM_SURF_BC |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./model/src/ini_parms.F |
419 |
INI_PARMS |
& omega = 2. _d 0 * PI / rotationPeriod |
|
./model/src/ini_parms.F |
423 |
INI_PARMS |
rotationPeriod = 2. _d 0 * PI / omega |
|
./verification/internal_wave/code/obcs_calc.F |
109 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
117 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
119 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
|
./verification/internal_wave/code/obcs_calc.F |
125 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
128 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
129 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
136 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
138 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
139 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
140 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
55 |
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 |
114 |
SOL_OZ |
FSOL(J) = 4. _d 0 / PI * SOLC * |
|
./pkg/aim_v23/phy_radiat.F |
59 |
SOL_OZ |
_RL PI, LargeTan |
|
./pkg/aim_v23/phy_radiat.F |
60 |
SOL_OZ |
PI = 3.14159265358979323844 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
77 |
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/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 |
179 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
182 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
257 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*25.) ) |
|
./pkg/ebm/ebm_atmosphere.F |
276 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*22.3 _d 0) ) |
|
./pkg/ebm/ebm_atmosphere.F |
294 |
EBM_ATMOSPHERE |
& /(2.0*12.0*PI*rSphere*rSphere) |
|
./pkg/ebm/ebm_atmosphere.F |
311 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*18.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
324 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
335 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_load_climatology.F |
64 |
EBM_LOAD_CLIMATOLOGY |
tauX = tauMax*sin(PI*distY) |
|
./pkg/exf/exf_zenithangle.F |
144 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
183 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
184 |
EXF_ZENITHANGLE |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/exf/exf_zenithangle.F |
252 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
253 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
274 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle_table.F |
65 |
EXF_ZENITHANGLE_TABLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle_table.F |
97 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |