Changeset 899 for codes/icosagcm/trunk/src/sphere/metric.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/sphere/metric.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/sphere/metric.f90

@@ -117 +117 @@
     REAL(rstd) :: rot=0.
     INTEGER :: nf,i,j
-    REAL(rstd),DIMENSION(3) :: p1,p2,p3
+    REAL(rstd),DIMENSION(3) :: p1
     REAL(rstd) :: d1,d2,d3
   
@@ -180 +180 @@
     REAL(rstd) :: rot=0.
     INTEGER :: nf,i,j
-    REAL(rstd),DIMENSION(3) :: p1,p2,p3
-    REAL(rstd) :: d1,d2,d3
   
    len_edge=acos(cos(Pi/5)*cos(2*Pi/5)/(sin(Pi/5)*sin(2*Pi/5)))
@@ -467 +465 @@
     INTEGER :: ind,ind2
     INTEGER :: nf,nf2,nfm1,nfp1
-    INTEGER :: i,j,k
-    INTEGER :: delta
+    INTEGER :: i,j
     
     ind=0
@@ -836 +833 @@
   SUBROUTINE set_cell_vertex
   IMPLICIT NONE
-    INTEGER :: i,j,k,k2
+    INTEGER :: k,k2
     INTEGER :: ind,ind1,ind2
     INTEGER :: ng1,ng2