| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
941 |
ASTRO |
FAC = KM-EQNX |
|
./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 |
972 |
ASTRO |
FAC = FLOAT(SEC)/DAYLEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
973 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
983 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/fizhi/fizhi_clockstuff.F |
986 |
ASTRO |
HC = COS( FAC+ALON(I)*DG2RD ) |
|
./pkg/fizhi/update_earth_exports.F |
229 |
SIBALB |
_RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS) |
|
./pkg/fizhi/update_earth_exports.F |
670 |
SIBALB |
FAC = SNW(I) / (SNW(I) + SNWMID(ITYP(I))) |
|
./pkg/fizhi/update_earth_exports.F |
672 |
SIBALB |
AVISDR(I) = AVISDR(I) + (SNWALB(1,ITYP(I)) - AVISDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
673 |
SIBALB |
ANIRDR(I) = ANIRDR(I) + (SNWALB(2,ITYP(I)) - ANIRDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
674 |
SIBALB |
AVISDF(I) = AVISDF(I) + (SNWALB(3,ITYP(I)) - AVISDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
675 |
SIBALB |
ANIRDF(I) = ANIRDF(I) + (SNWALB(4,ITYP(I)) - ANIRDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
789 |
GETLGR |
FAC = (float(ID -MIDM)*DAYLEN + SEC) / |
|
./pkg/fizhi/update_earth_exports.F |
802 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
803 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
804 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
805 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/chronos/chronos.F |
789 |
ASTRO |
FAC = KM-EQNX |
|
./pkg/chronos/chronos.F |
791 |
ASTRO |
T1 = FUN(T0 )*FAC |
|
./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 |
794 |
ASTRO |
T4 = FUN(ZERO+T3 )*FAC |
|
./pkg/chronos/chronos.F |
820 |
ASTRO |
FAC = FLOAT(SEC)/DAYLEN |
|
./pkg/chronos/chronos.F |
821 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/chronos/chronos.F |
831 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/chronos/chronos.F |
834 |
ASTRO |
HC = COS( FAC+ALON(I)*DG2RD ) |