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

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

@@ -194 +194 @@
 
     REAL(rstd) :: adv_over_out ! ratio itau_adv/itau_out
-    INTEGER :: ind, it,i,j,l,n,  stage
+    INTEGER :: ind, it,l
     LOGICAL :: fluxt_zero(ndomain) ! set to .TRUE. to start accumulating mass fluxes in time
     LOGICAL, PARAMETER :: check_rhodz=.FALSE.
@@ -401 +401 @@
        elapsed = (stop_clock-start_clock)*1./rate_clock
        per_step = elapsed/(it-itau0)
-       throughput = dt/per_step
+       throughput = INT(dt/per_step)
        total = per_step*itaumax
        WRITE(*,'(A,I5,A,F6.2,A,I6)') 'Time spent (s):',INT(elapsed), &