| File |
Line number |
Procedure |
Code |
|
./pkg/sphere/sphere.F |
403 |
SHC4ZONE |
INTEGER JP, I1, I2 |
|
./pkg/sphere/sphere.F |
440 |
SHC4ZONE |
I1 = I+1 |
|
./pkg/sphere/sphere.F |
445 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I1) * CE |
|
./pkg/sphere/sphere.F |
446 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I1) * SE |
|
./pkg/fizhi/fizhi_moist.F |
1448 |
CLOUD |
*, IA, I1, I2,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1591 |
CLOUD |
integer IA(LENC), I1(LENC),I2(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1832 |
CLOUD |
I1(LENA) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1845 |
CLOUD |
I1(LENB) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1881 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1885 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1898 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1904 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1911 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1919 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1929 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1941 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1966 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1971 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
|
./pkg/fizhi/fizhi_moist.F |
1976 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1985 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1997 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2009 |
CLOUD |
* * (TX7(I) - TX8(I) - TX5(I) - QOL(I1(I),IC)*ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2012 |
CLOUD |
GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2024 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2035 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2043 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2072 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2101 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2122 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2145 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2155 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2162 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2167 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2176 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2787 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
3002 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3004 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3011 |
PHI |
E1(I) = PHIM0( I1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3023 |
PHI |
E1(I) = PHIH0( I1(I) ) |
|
./pkg/offline/offline_fields_load.F |
103 |
OFFLINE_FIELDS_LOAD |
INTEGER I1, I2 |
|
./pkg/offline/offline_fields_load.F |
175 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
177 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
180 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
187 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
189 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
199 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
201 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
204 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
211 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
213 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
216 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
223 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
225 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
235 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
237 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
240 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
248 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
250 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
253 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
260 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
272 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
284 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
296 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/monitor/mon_out.F |
121 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
138 |
MON_OUT_ALL |
I1 = ILNBLNK(mon_head) |
|
./pkg/monitor/mon_out.F |
139 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
158 |
MON_OUT_ALL |
I1 = ILNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
159 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
161 |
MON_OUT_ALL |
IF ( pref(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
164 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
166 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
172 |
MON_OUT_ALL |
I1 = ILNBLNK(foot) |
|
./pkg/monitor/mon_out.F |
173 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
175 |
MON_OUT_ALL |
IF ( foot(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
178 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
180 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1) |