| Directory: | ./ |
|---|---|
| File: | dyn3d_common/invert_lat.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 7 | 0.0% |
| Branches: | 0 | 12 | 0.0% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 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 | |
| 22 |