| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
912 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y |
|
./pkg/fizhi/fizhi_clockstuff.F |
922 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
923 |
ASTRO |
& * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/fizhi/fizhi_turb.F |
4005 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4009 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4029 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4038 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4042 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4048 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4057 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4062 |
VTRI2 |
_RL Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4074 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/sphere/sphere.F |
549 |
HELMHOLTZ |
REAL Y(LMAXLMT+LMAXLMT) |
|
./pkg/sphere/sphere.F |
554 |
HELMHOLTZ |
SAVE LMAXOLD, ISECT, X, Y, Z |
|
./pkg/sphere/sphere.F |
563 |
HELMHOLTZ |
Y(L) = SNGL(DSQRT(DBLE(FLOAT(L)))) |
|
./pkg/sphere/sphere.F |
564 |
HELMHOLTZ |
Y(L+LMAX) = SNGL(DSQRT(DBLE(FLOAT(L+LMAX)))) |
|
./pkg/sphere/sphere.F |
583 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
591 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./model/src/rotate_spherical_polar_grid.F |
11 |
ROTATE_SPHERICAL_POLAR_GRID |
U X, Y, |
|
./model/src/rotate_spherical_polar_grid.F |
146 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
149 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
172 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
174 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
52 |
ROTATE_SPHERICAL_POLAR_GRID |
_RS Y(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/chronos/chronos.F |
758 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/chronos/chronos.F |
767 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/chronos/chronos.F |
768 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |