Changeset 899 for codes/icosagcm/trunk/src/diagnostics/check_conserve.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/diagnostics/check_conserve.f90 (modified) (6 diffs)

codes/icosagcm/trunk/src/diagnostics/check_conserve.f90

@@ -17 +17 @@
        AAM_mass_source(3), AAM_vel_source(3) ! read/written only IF is_master
   REAL(rstd),SAVE :: AAM_vel_plus_source(3), AAM_vel_minus_source(3)
-  REAL(rstd),SAVE :: mtot0,ztot0,etot0,angtot0,stot0,rmsvtot0
-  !$OMP THREADPRIVATE(check_type, mtot0,ztot0,etot0,angtot0,stot0,rmsvtot0)
+  REAL(rstd),SAVE :: mtot0,ztot0,etot0,angtot0,stot0
+  !$OMP THREADPRIVATE(check_type, mtot0,ztot0,etot0,angtot0,stot0)
   
   PUBLIC :: init_check_conserve, check_conserve_detailed, check_conserve
@@ -66 +66 @@
 
     REAL(rstd),POINTER :: p(:,:),rhodz(:,:) 
-    INTEGER :: ind,ierr
+    INTEGER :: ind
     REAL(rstd) :: mtot, angtot, rmsdpdt
     REAL(rstd) :: etot, stot, ang_mass, ang_vel, ang_velp, ang_velm, rmsvtot, ztot
@@ -171 +171 @@
 
     REAL(rstd),POINTER :: p(:,:),rhodz(:,:) 
-    INTEGER::ind,ierr
-    REAL(rstd) :: mtot, ztot, rmsdpdt, etot,stot,rmsv, ang_mass, ang_vel, ang_velp, ang_velm
+    INTEGER::ind
+    REAL(rstd) ::  etot,stot,rmsv, ang_mass, ang_vel, ang_velp, ang_velm
     
     IF(check_type == check_detailed) THEN
@@ -246 +246 @@
     INTEGER :: ind,i,j,ij  
     REAL :: mloc, rmsloc
-    REAL :: mloc_mpi, rmsloc_mpi
 
     mloc=0.0; rmsloc=0.0
@@ -378 +377 @@
     REAL(rstd), POINTER :: rhodz(:,:) 
     INTEGER :: ind
-    REAL(rstd) :: z,z_mpi
+    REAL(rstd) :: z
     
     z=0
@@ -400 +399 @@
     REAL(rstd)::qv1,qv2 
     REAL(rstd)::hv1,hv2  
-    INTEGER :: i,j,ij,l,ij2
+    INTEGER :: i,j,ij,l
 
     hv1 = 0.0 ; hv2 = 0.0