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

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/base

Files:

• earth_const.f90 (modified) (1 diff)
• profiling.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/base/earth_const.f90

@@ -36 +36 @@
   USE getin_mod
   IMPLICIT NONE
-  REAL(rstd) :: X=1
   
     CALL getin("radius",radius)

codes/icosagcm/trunk/src/base/profiling.f90

@@ -41 +41 @@
   SUBROUTINE enter_profile(id)
     INTEGER, INTENT(IN) :: id
-    REAL :: my_chrono
     !$OMP MASTER
     depth = depth+1