| File |
Line number |
Procedure |
Code |
|
./pkg/offline/offline_fields_load.F |
111 |
OFFLINE_FIELDS_LOAD |
INTEGER I1, I2 |
|
./pkg/offline/offline_fields_load.F |
186 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
188 |
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 |
200 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
202 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
212 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
214 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
224 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
226 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
229 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
236 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
238 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
241 |
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 |
262 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
264 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
267 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
279 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
291 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
299 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
304 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
311 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
313 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
316 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
324 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
326 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
329 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
336 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
338 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
341 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./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 |
2805 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
3020 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3021 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3022 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3029 |
PHI |
E1(I) = PHIM0( I1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3041 |
PHI |
E1(I) = PHIH0( I1(I) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2787 |
PHI |
integer I1(N),I2(N) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3002 |
PHI |
I1(I) = ZSTAR(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3003 |
PHI |
I2(I) = I1(I) + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3004 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3011 |
PHI |
E1(I) = PHIM0( I1(I) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3023 |
PHI |
E1(I) = PHIH0( I1(I) ) |
|
./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/monitor/mon_out.F |
121 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
144 |
MON_OUT_ALL |
I1 = ILNBLNK(mon_head) |
|
./pkg/monitor/mon_out.F |
145 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
164 |
MON_OUT_ALL |
I1 = ILNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
165 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
167 |
MON_OUT_ALL |
IF ( pref(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
170 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
172 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
178 |
MON_OUT_ALL |
I1 = ILNBLNK(foot) |
|
./pkg/monitor/mon_out.F |
179 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
181 |
MON_OUT_ALL |
IF ( foot(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
184 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
186 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1) |
|
./pkg/monitor/mon_set_pref.F |
34 |
MON_SET_PREF |
INTEGER I0, I1 |
|
./pkg/monitor/mon_set_pref.F |
42 |
MON_SET_PREF |
I1 = ILNBLNK( prefString ) |
|
./pkg/monitor/mon_set_pref.F |
43 |
MON_SET_PREF |
IL = I1-I0+1 |
|
./pkg/monitor/mon_set_pref.F |
47 |
MON_SET_PREF |
mon_pref(1:IL) = prefString(I0:I1) |
|
./pkg/rbcs/rbcs_fields_load.F |
60 |
RBCS_FIELDS_LOAD |
INTEGER I1, I2 |