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

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

Files:

• euler_scheme.f90 (modified) (2 diffs)
• explicit_scheme.f90 (modified) (2 diffs)
• time.f90 (modified) (1 diff)
• timeloop_gcm.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

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

@@ -22 +22 @@
 !    USE caldyn_gcm_mod, ONLY : req_ps, req_mass
 
-    REAL(rstd),POINTER :: q(:,:,:)
-    REAL(rstd),POINTER :: phis(:), ps(:) ,psm1(:), psm2(:), dps(:)
+    REAL(rstd),POINTER :: ps(:) ,psm1(:), psm2(:), dps(:)
     REAL(rstd),POINTER :: u(:,:) , um1(:,:), um2(:,:), du(:,:)
-    REAL(rstd),POINTER :: rhodz(:,:), mass(:,:), massm1(:,:), massm2(:,:), dmass(:,:)
+    REAL(rstd),POINTER :: mass(:,:), massm1(:,:), dmass(:,:)
     REAL(rstd),POINTER :: theta_rhodz(:,:,:) , theta_rhodzm1(:,:,:), theta_rhodzm2(:,:,:), dtheta_rhodz(:,:,:)
     REAL(rstd),POINTER :: hflux(:,:),wflux(:,:),hfluxt(:,:),wfluxt(:,:)
@@ -64 +63 @@
       REAL(rstd), INTENT(IN) :: coef(:)
       REAL(rstd) :: tau
-      INTEGER :: i,j,ij,l
+      INTEGER :: ij,l
 
       CALL trace_start("RK_scheme")  

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

@@ -54 +54 @@
     run_length=dt*itaumax
     CALL getin('run_length',run_length)
-    itaumax=run_length/dt
+    itaumax=INT(run_length/dt)
     
     time_style='dcmip'

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), &