| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/zonal_filt_init.F |
51 |
ZONAL_FILT_INIT |
_RS ampfact,Y |
|
./pkg/zonal_filt/zonal_filt_init.F |
52 |
ZONAL_FILT_INIT |
ampfact(Y,I) = min( one, |
|
./pkg/zonal_filt/zonal_filt_init.F |
53 |
ZONAL_FILT_INIT |
& ( cos( abs(Y)*deg2rad ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
935 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
945 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/fizhi/fizhi_turb.F |
4015 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4019 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4039 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4046 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4050 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4056 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4063 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4068 |
VTRI2 |
_RL Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4080 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
937 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
946 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
947 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3997 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4001 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4021 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4028 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4032 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4038 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4045 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4050 |
VTRI2 |
_RL Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4062 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/sphere/sphere.F |
547 |
HELMHOLTZ |
REAL Y(LMAXLMT+LMAXLMT) |
|
./pkg/sphere/sphere.F |
552 |
HELMHOLTZ |
SAVE LMAXOLD, ISECT, X, Y, Z |
|
./pkg/sphere/sphere.F |
561 |
HELMHOLTZ |
Y(L) = SNGL(DSQRT(DBLE(FLOAT(L)))) |
|
./pkg/sphere/sphere.F |
562 |
HELMHOLTZ |
Y(L+LMAX) = SNGL(DSQRT(DBLE(FLOAT(L+LMAX)))) |
|
./pkg/sphere/sphere.F |
581 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
589 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./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 |