| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
1030 |
EMISSIVITY |
_RL emis(12,11) |
|
./pkg/fizhi/update_earth_exports.F |
1086 |
EMISSIVITY |
data ((emis(i,j),i=1,12),j=1,11) / |
|
./pkg/fizhi/update_earth_exports.F |
1130 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,ityp(i))+emis(2,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1131 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,ityp(i))+emis(3,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1132 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,ityp(i))+emis(5,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1133 |
EMISSIVITY |
newemis(i, 4) = emis( 6,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1134 |
EMISSIVITY |
newemis(i, 5) = emis( 7,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1135 |
EMISSIVITY |
newemis(i, 6) = emis( 8,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1136 |
EMISSIVITY |
newemis(i, 7) = emis( 9,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1137 |
EMISSIVITY |
newemis(i, 8) = (emis(10,ityp(i))+emis(11,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1138 |
EMISSIVITY |
newemis(i, 9) = emis(12,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1139 |
EMISSIVITY |
newemis(i,10) = emis( 4,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1145 |
EMISSIVITY |
newemis(i, 1) = newemis(i, 1) + (((emis( 1,9)+emis( 2,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1147 |
EMISSIVITY |
newemis(i, 2) = newemis(i, 2) + (((emis( 2,9)+emis( 3,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1149 |
EMISSIVITY |
newemis(i, 3) = newemis(i, 3) + (((emis( 4,9)+emis( 5,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1151 |
EMISSIVITY |
newemis(i, 4) = newemis(i, 4) + (emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1153 |
EMISSIVITY |
newemis(i, 5) = newemis(i, 5) + (emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1155 |
EMISSIVITY |
newemis(i, 6) = newemis(i, 6) + (emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1157 |
EMISSIVITY |
newemis(i, 7) = newemis(i, 7) + (emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1159 |
EMISSIVITY |
newemis(i, 8) = newemis(i, 8) + (((emis(10,9)+emis(11,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1161 |
EMISSIVITY |
newemis(i, 9) = newemis(i, 9) + (emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1163 |
EMISSIVITY |
newemis(i,10) = newemis(i,10) + (emis( 4,9) |
|
./pkg/fizhi/update_earth_exports.F |
1171 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,11)+emis(2,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1172 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,11)+emis(3,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1173 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,11)+emis(5,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1174 |
EMISSIVITY |
newemis(i, 4) = emis( 6,11) |
|
./pkg/fizhi/update_earth_exports.F |
1175 |
EMISSIVITY |
newemis(i, 5) = emis( 7,11) |
|
./pkg/fizhi/update_earth_exports.F |
1176 |
EMISSIVITY |
newemis(i, 6) = emis( 8,11) |
|
./pkg/fizhi/update_earth_exports.F |
1177 |
EMISSIVITY |
newemis(i, 7) = emis( 9,11) |
|
./pkg/fizhi/update_earth_exports.F |
1178 |
EMISSIVITY |
newemis(i, 8) = (emis(10,11)+emis(11,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1179 |
EMISSIVITY |
newemis(i, 9) = emis(12,11) |
|
./pkg/fizhi/update_earth_exports.F |
1180 |
EMISSIVITY |
newemis(i,10) = emis( 4,11) |
|
./pkg/fizhi/update_earth_exports.F |
1185 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,9)+emis(2,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1186 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,9)+emis(3,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1187 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,9)+emis(5,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1188 |
EMISSIVITY |
newemis(i, 4) = emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1189 |
EMISSIVITY |
newemis(i, 5) = emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1190 |
EMISSIVITY |
newemis(i, 6) = emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1191 |
EMISSIVITY |
newemis(i, 7) = emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1192 |
EMISSIVITY |
newemis(i, 8) = (emis(10,9)+emis(11,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1193 |
EMISSIVITY |
newemis(i, 9) = emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1194 |
EMISSIVITY |
newemis(i,10) = emis( 4,9) |