File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
1288 |
RAS |
IB = IC(NC) |
./pkg/fizhi/fizhi_moist.F |
1296 |
RAS |
CALL CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IB, RASBLF,SETRAS,FRAC |
./pkg/fizhi/fizhi_moist.F |
1339 |
RAS |
DO L=IB,K |
./pkg/fizhi/fizhi_moist.F |
1347 |
RAS |
DO L=IB,K |
./pkg/fizhi/fizhi_utils.F |
100 |
STRIPINT |
IF(Lena.EQ.IB) THEN |
./pkg/fizhi/fizhi_utils.F |
110 |
STRIPINT |
DO 400 I=1,IB-Lena |
./pkg/fizhi/fizhi_utils.F |
118 |
PASTE |
SUBROUTINE PASTE(B,A,IB,IA,L,K) |
./pkg/fizhi/fizhi_utils.F |
121 |
PASTE |
_RL A(IA,L), B(IB,L) |
./pkg/fizhi/fizhi_utils.F |
125 |
PASTE |
OFFSET = IB*(K-1) |
./pkg/fizhi/fizhi_utils.F |
126 |
PASTE |
Lena = MIN(IB,IA-OFFSET) |
./pkg/fizhi/fizhi_utils.F |
136 |
PSTBMP |
SUBROUTINE PSTBMP(B,A,IB,IA,L,K) |
./pkg/fizhi/fizhi_utils.F |
139 |
PSTBMP |
_RL A(IA,L), B(IB,L) |
./pkg/fizhi/fizhi_utils.F |
143 |
PSTBMP |
OFFSET = IB*(K-1) |
./pkg/fizhi/fizhi_utils.F |
144 |
PSTBMP |
Lena = MIN(IB,IA-OFFSET) |
./pkg/fizhi/fizhi_utils.F |
154 |
STRINT |
SUBROUTINE STRINT(A,B,IA,IB,L,K) |
./pkg/fizhi/fizhi_utils.F |
157 |
STRINT |
INTEGER A(IA,L), B(IB,L) |
./pkg/fizhi/fizhi_utils.F |
161 |
STRINT |
OFFSET = IB*(K-1) |
./pkg/fizhi/fizhi_utils.F |
162 |
STRINT |
Lena = MIN(IB,IA-OFFSET) |
./pkg/fizhi/fizhi_utils.F |
165 |
STRINT |
IF(Lena.EQ.IB) THEN |
./pkg/fizhi/fizhi_utils.F |
175 |
STRINT |
DO 400 I=1,IB-Lena |
./pkg/fizhi/fizhi_utils.F |
60 |
STRIP |
SUBROUTINE STRIP(A,B,IA,IB,L,K) |
./pkg/fizhi/fizhi_utils.F |
63 |
STRIP |
_RL A(IA,L), B(IB,L) |
./pkg/fizhi/fizhi_utils.F |
67 |
STRIP |
OFFSET = IB*(K-1) |
./pkg/fizhi/fizhi_utils.F |
68 |
STRIP |
Lena = MIN(IB,IA-OFFSET) |
./pkg/fizhi/fizhi_utils.F |
71 |
STRIP |
IF(Lena.EQ.IB) THEN |
./pkg/fizhi/fizhi_utils.F |
81 |
STRIP |
DO 400 I=1,IB-Lena |
./pkg/fizhi/fizhi_utils.F |
89 |
STRIPINT |
SUBROUTINE STRIPINT(A,B,IA,IB,L,K) |
./pkg/fizhi/fizhi_utils.F |
92 |
STRIPINT |
INTEGER A(IA,L), B(IB,L) |
./pkg/fizhi/fizhi_utils.F |
96 |
STRIPINT |
OFFSET = IB*(K-1) |
./pkg/fizhi/fizhi_utils.F |
97 |
STRIPINT |
Lena = MIN(IB,IA-OFFSET) |
./pkg/zonal_filt/fftpack.F |
1813 |
R8FFTI1 |
IB = NF-I+2 |
./pkg/zonal_filt/fftpack.F |
1814 |
R8FFTI1 |
IFAC(IB+2) = IFAC(IB+1) |
./pkg/zonal_filt/fftpack.F |
907 |
RFFTI1 |
IB = NF-I+2 |
./pkg/zonal_filt/fftpack.F |
908 |
RFFTI1 |
IFAC(IB+2) = IFAC(IB+1) |