| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1001 |
ASTRO |
HC = COS( FAC+ALON(I)*DG2RD ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
956 |
ASTRO |
FAC = KM-EQNX |
|
./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 |
987 |
ASTRO |
FAC = FLOAT(SEC)/DAYLEN |
|
./pkg/fizhi/fizhi_clockstuff.F |
988 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
998 |
ASTRO |
FAC = FAC*TWO*PI + PI |
|
./pkg/fizhi/update_earth_exports.F |
243 |
SIBALB |
_RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS) |
|
./pkg/fizhi/update_earth_exports.F |
677 |
SIBALB |
FAC = SNW(I) / (SNW(I) + SNWMID(ITYP(I))) |
|
./pkg/fizhi/update_earth_exports.F |
679 |
SIBALB |
AVISDR(I) = AVISDR(I) + (SNWALB(1,ITYP(I)) - AVISDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
680 |
SIBALB |
ANIRDR(I) = ANIRDR(I) + (SNWALB(2,ITYP(I)) - ANIRDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
681 |
SIBALB |
AVISDF(I) = AVISDF(I) + (SNWALB(3,ITYP(I)) - AVISDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
682 |
SIBALB |
ANIRDF(I) = ANIRDF(I) + (SNWALB(4,ITYP(I)) - ANIRDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
795 |
GETLGR |
FAC = (float(ID -MIDM)*DAYLEN + SEC) / |
|
./pkg/fizhi/update_earth_exports.F |
808 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
810 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
811 |
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 ) |