| Symbol | Description | Uses |
| THP | 15 |
| File | Line number | Procedure | Code |
| ./pkg/fizhi/fizhi_clockstuff.F | 993 | ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
| ./pkg/fizhi/fizhi_clockstuff.F | 995 | ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
| ./pkg/fizhi/fizhi_clockstuff.F | 997 | ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |