| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
779 |
GETLGR |
K1 = MOD(IMON+10,12) + 1 |
|
./pkg/fizhi/update_earth_exports.F |
781 |
GETLGR |
K1 = IMON |
|
./pkg/fizhi/update_earth_exports.F |
786 |
GETLGR |
MIDM = DAYS(K1)/2 + 1 |
|
./pkg/fizhi/update_earth_exports.F |
787 |
GETLGR |
MIDP = DAYS(K1) + MIDMON |
|
./pkg/fizhi/update_earth_exports.F |
788 |
GETLGR |
ID = IDAY + DAYS(K1) |
|
./pkg/fizhi/update_earth_exports.F |
791 |
GETLGR |
MIDP = DAYS(K2)/2 + 1 + DAYS(K1) |
|
./pkg/fizhi/update_earth_exports.F |
801 |
GETLGR |
KK1 = K1 |
|
./pkg/fizhi/update_earth_exports.F |
804 |
GETLGR |
KK1 = MOD(K1+5,12) + 1 |
|
./pkg/zonal_filt/fftpack.F |
1313 |
R8FFTB1 |
DO 116 K1=1,NF |
|
./pkg/zonal_filt/fftpack.F |
1314 |
R8FFTB1 |
IP = IFAC(K1+2) |
|
./pkg/zonal_filt/fftpack.F |
1731 |
R8FFTF1 |
DO 111 K1=1,NF |
|
./pkg/zonal_filt/fftpack.F |
1732 |
R8FFTF1 |
KH = NF-K1 |
|
./pkg/zonal_filt/fftpack.F |
1826 |
R8FFTI1 |
DO 110 K1=1,NFM1 |
|
./pkg/zonal_filt/fftpack.F |
1827 |
R8FFTI1 |
IP = IFAC(K1+2) |
|
./pkg/zonal_filt/fftpack.F |
388 |
RFFTB1 |
DO 116 K1=1,NF |
|
./pkg/zonal_filt/fftpack.F |
389 |
RFFTB1 |
IP = IFAC(K1+2) |
|
./pkg/zonal_filt/fftpack.F |
820 |
RFFTF1 |
DO 111 K1=1,NF |
|
./pkg/zonal_filt/fftpack.F |
821 |
RFFTF1 |
KH = NF-K1 |
|
./pkg/zonal_filt/fftpack.F |
920 |
RFFTI1 |
DO 110 K1=1,NFM1 |
|
./pkg/zonal_filt/fftpack.F |
921 |
RFFTI1 |
IP = IFAC(K1+2) |
|
./pkg/aim_v23/phy_convmf.F |
207 |
CONVMF |
K1=K-1 |
|
./pkg/aim_v23/phy_convmf.F |
214 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
234 |
CONVMF |
FDMUS = FMASS*dSEdp(J,K1)*(WVI(K1,2)-1.) |
|
./pkg/aim_v23/phy_convmf.F |
242 |
CONVMF |
K1=K-1 |
|
./pkg/aim_v23/phy_convmf.F |
259 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
264 |
CONVMF |
DFSE(J,K) = FMASS*(WVI(K1,2)-1.)*dSEdp(J,K1) |
|
./pkg/aim_v23/phy_convmf.F |
65 |
CONVMF |
INTEGER J, K, K1, Ktmp |