source:
LMDZ5/branches/testing/libf/dyn3dmem/invert_lat.F90
@
1790
Last change on this file since 1790 was 1669, checked in by , 12 years ago | |
---|---|
File size: 454 bytes |
Rev | Line | |
---|---|---|
[1632] | 1 | |
2 | SUBROUTINE invert_lat(xsize,ysize,vsize,field) | |
3 | ||
4 | IMPLICIT NONE | |
5 | ||
6 | ! Input variables | |
7 | INTEGER, INTENT(IN) :: xsize,ysize,vsize | |
8 | REAL, DIMENSION (xsize,ysize,vsize), INTENT(INOUT) :: field | |
9 | ! Local variables | |
10 | REAL, DIMENSION (xsize,ysize,vsize) :: f_aux | |
11 | INTEGER :: l,j | |
12 | ||
13 | DO l=1,vsize | |
14 | DO j=1,ysize | |
15 | f_aux(:,j,l)=field(:,ysize+1-j,l) | |
16 | END DO | |
17 | END DO | |
18 | ||
19 | field=f_aux | |
20 | ||
21 | END SUBROUTINE invert_lat |
Note: See TracBrowser
for help on using the repository browser.