124 |
jffil = jffil2 |
jffil = jffil2 |
125 |
END IF |
END IF |
126 |
|
|
127 |
DO l = 1, nbniv |
loop_vertical: DO l = 1, nbniv |
128 |
DO j = jdfil, jffil |
loop_latitude: DO j = jdfil, jffil |
129 |
DO i = 1, iim |
DO i = 1, iim |
130 |
champ(i, j, l) = champ(i, j, l)*sdd1(i) |
champ(i, j, l) = champ(i, j, l)*sdd1(i) |
131 |
END DO |
END DO |
206 |
END IF |
END IF |
207 |
|
|
208 |
champ(iim + 1, j, l) = champ(1, j, l) |
champ(iim + 1, j, l) = champ(1, j, l) |
209 |
END DO |
END DO loop_latitude |
210 |
END DO |
END DO loop_vertical |
211 |
end DO |
end DO |
212 |
|
|
213 |
END SUBROUTINE filtreg |
END SUBROUTINE filtreg |