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

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

Files:

• check_conserve.f90 (modified) (6 diffs)
• geopotential_mod.f90 (modified) (1 diff)
• kinetic.f90 (modified) (1 diff)
• observable.f90 (modified) (1 diff)

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 

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

@@ -13 +13 @@
     TYPE(t_field), POINTER :: f_ps(:), f_phis(:), f_theta_rhodz(:), &  ! IN                                       
          f_p(:), f_theta(:), f_phi(:)               ! OUT                                                         
-    REAL(rstd),POINTER :: pk(:,:), p(:,:), theta(:,:,:), theta_rhodz(:,:,:), &
+    REAL(rstd),POINTER :: p(:,:), theta(:,:,:), theta_rhodz(:,:,:), &
          phi(:,:), phis(:), ps(:)
     INTEGER :: ind

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

@@ -134 +134 @@
     REAL(rstd),INTENT(OUT):: Ki(iim*jjm,llm)
     REAL(rstd) :: Kv(2*iim*jjm,llm)
-    INTEGER :: ij,l, u_up, u_down
+    INTEGER :: ij,l
     
     CALL compute_kv(ue,Kv)

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

@@ -230 +230 @@
     INTEGER :: ij,l
     REAL(rstd) :: F_el(3*iim*jjm,llm+1)
-    REAL(rstd) :: uu_right, uu_lup, uu_ldown, W_el, DePhil
+    REAL(rstd) :: W_el, DePhil
     ! NB : u and uh are not in DEC form, they are normal components    
     ! => we must divide by de