Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	dyn3d_common/invert_lat.F90	Lines:	0	7	0.0 %
Date:	2023-06-30 12:56:34	Branches:	0	12	0.0 %



SUBROUTINE invert_lat(xsize,ysize,vsize,field)

    IMPLICIT NONE

! Input variables
    INTEGER, INTENT(IN) :: xsize,ysize,vsize
    REAL, DIMENSION (xsize,ysize,vsize), INTENT(INOUT) :: field
! Local variables
    REAL, DIMENSION (xsize,ysize,vsize)                :: f_aux
    INTEGER :: l,j

    DO l=1,vsize
        DO j=1,ysize
            f_aux(:,j,l)=field(:,ysize+1-j,l)
	END DO
    END DO

    field=f_aux

    END SUBROUTINE invert_lat


Generated by: GCOVR (Version 4.2)

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