| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1005 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/fizhi/fizhi_clockstuff.F |
1006 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
861 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
72 |
SWRIO |
_RL COSZ(ISTRIP) |
|
./pkg/chronos/chronos.F |
698 |
ASTRO |
SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA ) |
|
./pkg/chronos/chronos.F |
838 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/chronos/chronos.F |
839 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |