Changeset 899 for codes/icosagcm/trunk/src/parallel/transfert_mpi.f90

Timestamp:

06/13/19 16:45:41 (5 years ago)

Author:

adurocher

Message:

trunk : Fixed GCC warnings

Fixed iso c bindings
fixed warnings with -Wall -Wno-aliasing -Wno-unused -Wno-unused-dummy-argument -Wno-maybe-uninitialized -Wno-tabs warnings
Removed all unused variables (-Wunused-variable)
vector%dot_product is now dot_product_3d to avoid compilation warning "dot_product shadows intrinsic" with GCC

File:

• codes/icosagcm/trunk/src/parallel/transfert_mpi.f90 (modified) (7 diffs)

codes/icosagcm/trunk/src/parallel/transfert_mpi.f90

@@ -100 +100 @@
   IMPLICIT NONE
   INTEGER :: ind,i,j
-  LOGICAL ::ok
 
     CALL register_id('MPI', id_mpi)
@@ -484 +483 @@
 
     INTEGER :: rank,i,j,pos
-    INTEGER :: size_,ind_glo,ind_loc, ind_src
+    INTEGER :: size_,ind_glo,ind_loc
     INTEGER :: isend, irecv, ireq, nreq, nsend, nrecv
     INTEGER, ALLOCATABLE :: mpi_req(:)
@@ -932 +931 @@
     CHARACTER(LEN=*), INTENT(IN),OPTIONAL :: name
 
-    TYPE(ARRAY),POINTER :: recv,send 
     TYPE(t_request),POINTER :: req
     INTEGER :: irecv,isend
-    INTEGER :: ireq,nreq, nreq_send
+    INTEGER :: ireq,nreq
     INTEGER :: ind
     INTEGER :: dim3,dim4
-    INTEGER :: i,j
     INTEGER,SAVE :: message_number=0
 !    TYPE(t_reorder),POINTER :: reorder(:)
@@ -1061 +1058 @@
     TYPE(t_message) :: message
 
-    TYPE(t_request),POINTER :: req
-    INTEGER :: irecv,isend
-    INTEGER :: ireq,nreq
-    INTEGER :: ind
+    INTEGER :: ireq
 
 !$OMP BARRIER
@@ -1145 +1139 @@
     TYPE(ARRAY),POINTER :: recv,send 
     TYPE(t_request),POINTER :: req
-    INTEGER, ALLOCATABLE :: mpi_req(:)
-    INTEGER, ALLOCATABLE :: status(:,:)
     INTEGER :: irecv,isend
-    INTEGER :: ireq,nreq
-    INTEGER :: ind,i,n,l,m
+    INTEGER :: ireq
+    INTEGER :: ind,n
     INTEGER :: dim3,dim4,d3,d4
     INTEGER,POINTER :: src_value(:)
-    INTEGER,POINTER :: sign(:)
     INTEGER :: offset,msize,rank
     INTEGER :: lbegin, lend
@@ -1554 +1545 @@
     INTEGER,POINTER :: value(:) 
     INTEGER,POINTER :: sgn(:) 
-    TYPE(ARRAY),POINTER :: recv,send 
+    TYPE(ARRAY),POINTER :: recv 
     TYPE(t_request),POINTER :: req
-    INTEGER, ALLOCATABLE :: mpi_req(:)
-    INTEGER, ALLOCATABLE :: status(:,:)
-    INTEGER :: irecv,isend
+    INTEGER :: irecv
     INTEGER :: ireq,nreq
-    INTEGER :: ind,n,l,m,i
+    INTEGER :: ind,n
     INTEGER :: dim3,dim4,d3,d4,lbegin,lend
     INTEGER :: offset
@@ -1741 +1730 @@
     TYPE(t_request),POINTER :: req
     INTEGER :: n
-    REAL(rstd) :: var1,var2
     
     DO ind=1,ndomain