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

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

@@ -28 +28 @@
   REAL(rstd),INTENT(OUT) :: lat
   
-  REAL(rstd) :: coslat
   REAL(rstd) :: xyzn(3)
   
@@ -136 +135 @@
   REAL(rstd) :: d
   REAL(rstd) :: M(3,3)
-  REAL(rstd) :: alpha(3,3)
-  INTEGER    :: IPIV(3)
-  INTEGER    :: info
   REAL(rstd) :: xa,xb,xc
   REAL(rstd) :: ya,yb,yc
   REAL(rstd) :: za,zb,zc
-  REAL(rstd) :: alpha_A,alpha_B,alpha_C
-  REAL(rstd) :: x,y,z
-  REAL(rstd) :: a1,a2,a3
-  REAL(rstd) :: b1,b2,b3