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

codes/icosagcm/trunk/src/time/euler_scheme.f90

@@ -36 +36 @@
     REAL(rstd),POINTER :: hflux(:,:),wflux(:,:),hfluxt(:,:),wfluxt(:,:)
     INTEGER :: ind
-    INTEGER :: i,j,ij,l
+    INTEGER :: ij,l
     CALL trace_start("Euler_scheme")  
 
@@ -95 +95 @@
     REAL(rstd), INTENT(IN) :: tau
     LOGICAL, INTENT(INOUT) :: fluxt_zero
-    INTEGER :: l,i,j,ij
+    INTEGER :: l,ij
 
     IF(fluxt_zero) THEN