| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1149 |
LSR |
J2=J1+1 |
|
./pkg/seaice/lsr.F |
1150 |
LSR |
VRT(J1)=VRT(J1)-CVV(J1)*VRT(J2) |
|
./pkg/seaice/lsr.F |
552 |
LSR |
J2=J1+1 |
|
./pkg/seaice/lsr.F |
553 |
LSR |
URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J) |
|
./pkg/seaice/lsr.F |
596 |
LSR |
J2=J1+1 |
|
./pkg/seaice/lsr.F |
597 |
LSR |
VRT(I,J1)=VRT(I,J1)-CVV(I,J1)*VRT(I,J2) |
|
./pkg/seaice/lsr.F |
900 |
LSR |
J2=J1+1 |
|
./pkg/seaice/lsr.F |
901 |
LSR |
URT(J1)=URT(J1)-CUU(J1)*URT(J2) |
|
./pkg/zonal_filt/fftpack.F |
1171 |
R8ADBG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1173 |
R8ADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1174 |
R8ADBG |
CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K) |
|
./pkg/zonal_filt/fftpack.F |
1686 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1688 |
R8ADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1689 |
R8ADFG |
CC(1,J2-1,K) = CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1696 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1700 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1701 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1702 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1703 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1710 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1714 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1715 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1716 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1717 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
244 |
RADBG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
246 |
RADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
247 |
RADBG |
CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K) |
|
./pkg/zonal_filt/fftpack.F |
773 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
775 |
RADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
776 |
RADFG |
CC(1,J2-1,K) = CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
783 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
787 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
788 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
789 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
790 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
797 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
801 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
802 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
803 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
804 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |