Changeset 899 for codes/icosagcm/trunk/src/initial/etat0.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/initial/etat0.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/initial/etat0.f90

@@ -66 +66 @@
 
   SUBROUTINE etat0(f_ps,f_mass,f_phis,f_theta_rhodz,f_u, f_geopot,f_w, f_q)
-    USE mpipara, ONLY : is_mpi_root
     USE disvert_mod
     ! Generic interface
@@ -96 +95 @@
     
     REAL(rstd),POINTER :: ps(:), mass(:,:)
-    LOGICAL :: autoinit_mass, autoinit_geopot, collocated
-    INTEGER :: ind,i,j,ij,l
+    LOGICAL :: autoinit_mass, collocated
+    INTEGER :: ind
 
     ! most etat0 routines set ps and not mass
@@ -248 +247 @@
 
     REAL(rstd) :: p(iim*jjm,llm+1)
-    REAL(rstd) :: cppd,Rd, mass, p_ij, q_ij,r_ij, chi,nu, entropy, theta
+    REAL(rstd) :: cppd,Rd, mass, p_ij, chi,nu, entropy, theta
     INTEGER :: i,j,ij,l
 
@@ -323 +322 @@
     REAL(rstd) :: q_e(3*iim*jjm,llm,nqtot)
 
-    INTEGER :: l,i,j,ij
+    INTEGER :: l,ij
     REAL :: p_ik, v_ik, mass_ik
     LOGICAL :: autoinit_mass, autoinit_NH