269 |
! Ad\'equation avec le maque terre/mer |
! Ad\'equation avec le maque terre/mer |
270 |
WHERE (pctsrf(:, is_lic) < EPSFRA) pctsrf(:, is_lic) = 0. |
WHERE (pctsrf(:, is_lic) < EPSFRA) pctsrf(:, is_lic) = 0. |
271 |
WHERE (zmasq < EPSFRA) pctsrf(:, is_lic) = 0. |
WHERE (zmasq < EPSFRA) pctsrf(:, is_lic) = 0. |
272 |
pctsrf(:, is_ter) = zmasq |
where (zmasq <= EPSFRA) pctsrf(:, is_ter) = zmasq |
273 |
where (zmasq > EPSFRA) |
where (zmasq > EPSFRA) |
274 |
where (pctsrf(:, is_lic) >= zmasq) |
where (pctsrf(:, is_lic) >= zmasq) |
275 |
pctsrf(:, is_lic) = zmasq |
pctsrf(:, is_lic) = zmasq |