| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
955 |
ASTRO |
KM = INT(EQNX) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
956 |
ASTRO |
FAC = KM-EQNX |
|
./pkg/fizhi/fizhi_clockstuff.F |
962 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
965 |
ASTRO |
T1 = FUN(TH(KM),PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
966 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
T4 = FUN(TH(KM)+T3,PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
969 |
ASTRO |
KP = MOD(KM,DAYSCY) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
970 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
971 |
ASTRO |
KM = KP |
|
./pkg/fizhi/fizhi_turb.F |
1379 |
TRBFLX |
_RL KM(irun,nlev), KH(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1766 |
TRBFLX |
7 KH(1,NLEV),KM(1,NLEV),USTAR, |
|
./pkg/fizhi/fizhi_turb.F |
1921 |
TRBFLX |
KM(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1960 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
1998 |
TRBFLX |
KM(I,L) = TEMP(I,L) * KM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2015 |
TRBFLX |
1 IBITSTB(1,LMINQ),INTQ(1,LMINQ),KM(1,LMINQ),KH(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2102 |
TRBFLX |
KM(I,L) = KMBG |
|
./pkg/fizhi/fizhi_turb.F |
2115 |
TRBFLX |
KM(I,L)=XQ(I,L)*KM(I,L)+KMBG |
|
./pkg/fizhi/fizhi_turb.F |
2206 |
TRBFLX |
RHOKDZ(I,L) = RHODZ2(I,L) * KM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2262 |
TRBFLX |
EU(I,L) = EU(I,L) + AITR*KM(I,L) |
|
./pkg/chronos/chronos.F |
788 |
ASTRO |
KM = INT(EQNX) + 1 |
|
./pkg/chronos/chronos.F |
789 |
ASTRO |
FAC = KM-EQNX |
|
./pkg/chronos/chronos.F |
795 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
798 |
ASTRO |
T1 = FUN(TH(KM) ) |
|
./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 |
801 |
ASTRO |
T4 = FUN(TH(KM)+T3 ) |
|
./pkg/chronos/chronos.F |
802 |
ASTRO |
KP = MOD(KM,DAYSCY) + 1 |
|
./pkg/chronos/chronos.F |
803 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
804 |
ASTRO |
KM = KP |