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

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

@@ -13 +13 @@
   END FUNCTION Norm
   
-  FUNCTION dot_product(V1,V2)
+  FUNCTION dot_product_3d(V1,V2) result(dot_product)
   IMPLICIT NONE
     REAL(rstd)       :: dot_product
@@ -21 +21 @@
     dot_product=V1(1)*V2(1)+V1(2)*V2(2)+V1(3)*V2(3)
     
-   END FUNCTION dot_product
+   END FUNCTION dot_product_3d
    
    FUNCTION cross_product(Va,Vb)