TNO Intern

Commit eb8a1b4c authored by Arjo Segers's avatar Arjo Segers
Browse files

Removed comment from 'use MPI' statements after compiler complained.

parent 73ebbe06

oper/src/cso_comm.F90

+8 −6
Original line number Diff line number Diff line
@@ -18,6 +18,8 @@ 
!   2023-01, Arjo Segers

!     Support integer(1) and character variables.

!

!   2025-02, Arjo Segers

!     Removed comment from 'use MPI' statements after compiler complained.

!

!### macro's ###########################################################

!
@@ -1354,7 +1356,7 @@ contains 
#ifdef _MPI

    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------
@@ -1407,7 +1409,7 @@ contains 
#ifdef _MPI

    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------
@@ -1460,7 +1462,7 @@ contains 
#ifdef _MPI

    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------
@@ -1513,7 +1515,7 @@ contains 
#ifdef _MPI

    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------
@@ -1566,7 +1568,7 @@ contains 
#ifdef _MPI

    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------
@@ -1624,7 +1626,7 @@ contains 
    use MPI_F08, only : MPI_DataType

    use MPI_F08, only : MPI_SUM

    use MPI_F08, only : MPI_IN_PLACE

    !use MPI_F08, only : MPI_AllReduce

    use MPI_F08, only : MPI_AllReduce

#endif



    ! --- in/out ---------------------------------