| 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 |
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 |
947 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./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 |
955 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./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_turb.F |
1998 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
2169 |
TRBFLX |
BETAL(I,L) = ( 1. + VIRTCON*SH(I,L) - TWO*VRT1CON*SHL(I,L) ) |
|
./pkg/fizhi/slprs.F |
27 |
SLPRS |
_RL TWO, BETA |
|
./pkg/fizhi/slprs.F |
28 |
SLPRS |
PARAMETER(TWO = 2.0) |
|
./pkg/fizhi/slprs.F |
67 |
SLPRS |
TM(I) = TM(I) * (PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/fizhi/slprs.F |
69 |
SLPRS |
TM(I) = THZ(I,LM)*(PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/seaice/SEAICE_PARAMS.h |
276 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
277 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
287 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
406 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
419 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/lsr.F |
155 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
240 |
LSR |
& *TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
256 |
LSR |
& - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
386 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
394 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
402 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
479 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
532 |
LSR |
& + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
544 |
LSR |
& - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_evp.F |
276 |
SEAICE_EVP |
pressC(I,J) = TWO*zetaC(I,J)*deltaC(I,J) |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
276 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
277 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/chronos/chronos.F |
767 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/chronos/chronos.F |
792 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/chronos/chronos.F |
793 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/chronos/chronos.F |
795 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
799 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/chronos/chronos.F |
800 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/chronos/chronos.F |
803 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./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 |