| 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 |
Parent Directory
| 
Revision Log
| 
Patch