| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1508 |
CLOUD |
*, IA, I1, I2,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1651 |
CLOUD |
integer IA(LENC), I1(LENC),I2(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1898 |
CLOUD |
I1(LENA) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1911 |
CLOUD |
I1(LENB) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1953 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1957 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1970 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1976 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1983 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1991 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2001 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2013 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2038 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2043 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
|
./pkg/fizhi/fizhi_moist.F |
2048 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2057 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2069 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2081 |
CLOUD |
* * (TX7(I) - TX8(I) - TX5(I) - QOL(I1(I),IC)*ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2084 |
CLOUD |
GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2096 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2107 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2115 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2144 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2173 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2194 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2217 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2227 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2234 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2239 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2248 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2761 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
2976 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
2977 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2978 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2985 |
PHI |
E1(I) = PHIM0( I1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2997 |
PHI |
E1(I) = PHIH0( I1(I) ) |
|
./pkg/monitor/mon_out.F |
124 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
143 |
MON_OUT_ALL |
I1 = ILNBLNK(mon_head) |
|
./pkg/monitor/mon_out.F |
144 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
163 |
MON_OUT_ALL |
I1 = ILNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
164 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
166 |
MON_OUT_ALL |
IF ( pref(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
169 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
171 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
177 |
MON_OUT_ALL |
I1 = ILNBLNK(foot) |
|
./pkg/monitor/mon_out.F |
178 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
180 |
MON_OUT_ALL |
IF ( foot(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
183 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
185 |
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 |
43 |
MON_SET_PREF |
I1 = ILNBLNK( prefString ) |
|
./pkg/monitor/mon_set_pref.F |
44 |
MON_SET_PREF |
IL = I1-I0+1 |
|
./pkg/monitor/mon_set_pref.F |
48 |
MON_SET_PREF |
mon_pref(1:IL) = prefString(I0:I1) |
|
./pkg/offline/offline_fields_load.F |
150 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(Uvelfile) |
|
./pkg/offline/offline_fields_load.F |
152 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
156 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
162 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(Vvelfile) |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
167 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
177 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(Wvelfile) |
|
./pkg/offline/offline_fields_load.F |
179 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
182 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
190 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(Thetfile) |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
195 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(Saltfile) |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(GMwxFile) |
|
./pkg/offline/offline_fields_load.F |
219 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
222 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
227 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(GMwyFile) |
|
./pkg/offline/offline_fields_load.F |
229 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
232 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(GMwzFile) |
|
./pkg/offline/offline_fields_load.F |
244 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
247 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
256 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(ConvFile) |
|
./pkg/offline/offline_fields_load.F |
258 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
261 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
270 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(KPP_DiffSFile) |
|
./pkg/offline/offline_fields_load.F |
272 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
275 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(KPP_ghatKFile) |
|
./pkg/offline/offline_fields_load.F |
287 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
290 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
314 |
OFFLINE_FIELDS_LOAD |
I1=IFNBLNK(SFluxFile) |
|
./pkg/offline/offline_fields_load.F |
316 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
319 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
77 |
OFFLINE_FIELDS_LOAD |
INTEGER I1, I2 |
|
./pkg/sphere/sphere.F |
405 |
SHC4ZONE |
INTEGER JP, I1, I2 |
|
./pkg/sphere/sphere.F |
442 |
SHC4ZONE |
I1 = I+1 |
|
./pkg/sphere/sphere.F |
447 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I1) * CE |
|
./pkg/sphere/sphere.F |
448 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I1) * SE |