| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
1047 |
EMISSIVITY |
_RL emis(12,11) |
|
./pkg/fizhi/update_earth_exports.F |
1103 |
EMISSIVITY |
DATA ((emis(i,j),i=1,12),j=1,11) / |
|
./pkg/fizhi/update_earth_exports.F |
1147 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,ityp(i))+emis(2,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1148 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,ityp(i))+emis(3,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1149 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,ityp(i))+emis(5,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1150 |
EMISSIVITY |
newemis(i, 4) = emis( 6,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1151 |
EMISSIVITY |
newemis(i, 5) = emis( 7,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1152 |
EMISSIVITY |
newemis(i, 6) = emis( 8,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1153 |
EMISSIVITY |
newemis(i, 7) = emis( 9,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1154 |
EMISSIVITY |
newemis(i, 8) = (emis(10,ityp(i))+emis(11,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1155 |
EMISSIVITY |
newemis(i, 9) = emis(12,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1156 |
EMISSIVITY |
newemis(i,10) = emis( 4,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1162 |
EMISSIVITY |
newemis(i, 1) = newemis(i, 1) + (((emis( 1,9)+emis( 2,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1164 |
EMISSIVITY |
newemis(i, 2) = newemis(i, 2) + (((emis( 2,9)+emis( 3,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1166 |
EMISSIVITY |
newemis(i, 3) = newemis(i, 3) + (((emis( 4,9)+emis( 5,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1168 |
EMISSIVITY |
newemis(i, 4) = newemis(i, 4) + (emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1170 |
EMISSIVITY |
newemis(i, 5) = newemis(i, 5) + (emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1172 |
EMISSIVITY |
newemis(i, 6) = newemis(i, 6) + (emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1174 |
EMISSIVITY |
newemis(i, 7) = newemis(i, 7) + (emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1176 |
EMISSIVITY |
newemis(i, 8) = newemis(i, 8) + (((emis(10,9)+emis(11,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1178 |
EMISSIVITY |
newemis(i, 9) = newemis(i, 9) + (emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1180 |
EMISSIVITY |
newemis(i,10) = newemis(i,10) + (emis( 4,9) |
|
./pkg/fizhi/update_earth_exports.F |
1188 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,11)+emis(2,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1189 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,11)+emis(3,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1190 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,11)+emis(5,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1191 |
EMISSIVITY |
newemis(i, 4) = emis( 6,11) |
|
./pkg/fizhi/update_earth_exports.F |
1192 |
EMISSIVITY |
newemis(i, 5) = emis( 7,11) |
|
./pkg/fizhi/update_earth_exports.F |
1193 |
EMISSIVITY |
newemis(i, 6) = emis( 8,11) |
|
./pkg/fizhi/update_earth_exports.F |
1194 |
EMISSIVITY |
newemis(i, 7) = emis( 9,11) |
|
./pkg/fizhi/update_earth_exports.F |
1195 |
EMISSIVITY |
newemis(i, 8) = (emis(10,11)+emis(11,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1196 |
EMISSIVITY |
newemis(i, 9) = emis(12,11) |
|
./pkg/fizhi/update_earth_exports.F |
1197 |
EMISSIVITY |
newemis(i,10) = emis( 4,11) |
|
./pkg/fizhi/update_earth_exports.F |
1202 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,9)+emis(2,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1203 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,9)+emis(3,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1204 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,9)+emis(5,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1205 |
EMISSIVITY |
newemis(i, 4) = emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1206 |
EMISSIVITY |
newemis(i, 5) = emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1207 |
EMISSIVITY |
newemis(i, 6) = emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1208 |
EMISSIVITY |
newemis(i, 7) = emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1209 |
EMISSIVITY |
newemis(i, 8) = (emis(10,9)+emis(11,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1210 |
EMISSIVITY |
newemis(i, 9) = emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1211 |
EMISSIVITY |
newemis(i,10) = emis( 4,9) |