Changeset 899 for codes/icosagcm/trunk/src/parallel

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

Location:

codes/icosagcm/trunk/src/parallel

Files:

• domain.f90 (modified) (4 diffs)
• transfert_mpi.f90 (modified) (7 diffs)

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

@@ -83 +83 @@
   USE ioipsl
   IMPLICIT NONE
-  INTEGER :: ind,nf,ni,nj,i,j
+  INTEGER :: ind,nf,ni,nj
   INTEGER :: quotient, rest
   INTEGER :: halo_i,halo_j
@@ -176 +176 @@
   SUBROUTINE copy_domain(d1,d2)
   IMPLICIT NONE
-  INTEGER :: face
   TYPE(t_domain),TARGET,INTENT(IN) :: d1
   TYPE(t_domain), INTENT(OUT) :: d2
@@ -543 +542 @@
     
     
-    block_j=sqrt(nsplit_i*nsplit_j*nb_face*1./mpi_size)
+    block_j=INT(sqrt(nsplit_i*nsplit_j*nb_face*1./mpi_size))
     exit=.FALSE.
     jb=1
@@ -625 +624 @@
           DO i=1,nsplit_i
             ind_glo=ind_glo+1
-            WRITE(*,"(' ',i4.4  ,' |')",ADVANCE='NO'),domglo_rank(ind_glo)           
+            WRITE(*,"(' ',i4.4  ,' |')",ADVANCE='NO') domglo_rank(ind_glo)           
           END DO
           PRINT *,''

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