| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
181 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
184 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
258 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*25.0) ) |
|
./pkg/ebm/ebm_atmosphere.F |
277 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*22.3) ) |
|
./pkg/ebm/ebm_atmosphere.F |
295 |
EBM_ATMOSPHERE |
< /(2.0*12.0*PI*rSphere*rSphere) |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*18.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
325 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_atmosphere.F |
336 |
EBM_ATMOSPHERE |
< /(2*PI*rSphere*rSphere*12.0)) |
|
./pkg/ebm/ebm_load_climatology.F |
67 |
EBM_LOAD_CLIMATOLOGY |
tauX = tauMax*sin(PI*distY) |
|
./pkg/ptracers/ptracers_calc_diff.F |
59 |
PTRACERS_CALC_DIFF |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./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/zonal_filt/zonal_filt_init.F |
55 |
ZONAL_FILT_INIT |
& /(sin( PI*float(I)/float(Nx) ) )**zonal_filt_sinpow |
|
./pkg/fizhi/fizhi_clockstuff.F |
1008 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
993 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
994 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
996 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./pkg/fizhi/fizhi_moist.F |
195 |
MOISTIO |
PI = 4.*atan(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1567 |
TRBFLX |
PI = 4. * ATAN(1.) |
|
./pkg/fizhi/fizhi_turb.F |
1568 |
TRBFLX |
RSQ2PI = 1./ ((2.*PI)**0.5) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1010 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
946 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
995 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
996 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
998 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1567 |
TRBFLX |
PI = 4. * ATAN(1.) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1568 |
TRBFLX |
RSQ2PI = 1./ ((2.*PI)**0.5) |
|
./model/src/calc_3d_diffusivity.F |
117 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
76 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
95 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./verification/internal_wave/code/obcs_calc.F |
107 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
117 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
|
./verification/internal_wave/code/obcs_calc.F |
123 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
127 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
136 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
137 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
138 |
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)) ) |
|
./model/src/ini_parms.F |
454 |
INI_PARMS |
& omega = 2.D0 * PI / rotationPeriod |
|
./model/src/ini_parms.F |
458 |
INI_PARMS |
rotationPeriod = 2.D0 * PI / omega |
|
./model/src/getcon.F |
142 |
NO PROCEDURE |
DATA ANAME(43),ACON(43) / 'PI ', PI / |
|
./model/src/getcon.F |
33 |
NO PROCEDURE |
& CFC11, CFC12, CFC22, ATMPOPA, PI, CPD, CPV, ALHL, ALHS, |
|
./model/src/getcon.F |
66 |
NO PROCEDURE |
PARAMETER ( PI = 3.14159d0 ) |
|
./model/src/getcon.F |
91 |
NO PROCEDURE |
PARAMETER ( DEG2RAD = PI/180.d0) |
|
./model/src/calc_diffusivity.F |
60 |
CALC_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/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/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 |