190 |
weighx = MAX(0., min(zbordest, zbordoue, zlenx)) |
weighx = MAX(0., min(zbordest, zbordoue, zlenx)) |
191 |
IF (weighx /= 0) THEN |
IF (weighx /= 0) THEN |
192 |
num_tot(ii, jj) = num_tot(ii, jj) + 1. |
num_tot(ii, jj) = num_tot(ii, jj) + 1. |
193 |
if (zusn(i, j) >= 1.) then |
if (zusn(i, j) >= 1.) & |
194 |
num_lan(ii, jj) = num_lan(ii, jj) + 1. |
num_lan(ii, jj) = num_lan(ii, jj) + 1. |
|
end if |
|
195 |
weight(ii, jj) = weight(ii, jj) + weighx * weighy |
weight(ii, jj) = weight(ii, jj) + weighx * weighy |
196 |
zxtzx(ii, jj) = zxtzx(ii, jj) & |
zxtzx(ii, jj) = zxtzx(ii, jj) & |
197 |
+ zxtzxusn(i, j) * weighx * weighy |
+ zxtzxusn(i, j) * weighx * weighy |