Changeset 899 for codes/icosagcm/trunk/src/dynamics/caldyn_kernels_hevi.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/dynamics/caldyn_kernels_hevi.F90 (modified) (6 diffs)

codes/icosagcm/trunk/src/dynamics/caldyn_kernels_hevi.F90

@@ -117 +117 @@
     REAL(rstd) :: C_ik(iim*jjm,llm)      ! Thomas algorithm
     REAL(rstd) :: D_il(iim*jjm,llm+1)    ! Thomas algorithm
-    REAL(rstd) :: gamma, rho_ij, X_ij, Y_ij
-    REAL(rstd) :: wil, tau2_g, g2, gm2, ml_g2, c2_mik
+    REAL(rstd) :: gamma, rho_ij, X_ij
+    REAL(rstd) :: tau2_g, g2, gm2, ml_g2, c2_mik
 
     INTEGER    :: iter, ij, l, ij_omp_begin_ext, ij_omp_end_ext
@@ -133 +133 @@
     tau2_g=tau*tau/g
     g2=g*g
-    gm2 = g**-2
+    gm2 = g**(-2)
     gamma = 1./(1.-kappa)
     
@@ -256 +256 @@
           PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il))
           DO l=1,llm+1
-             WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] x', iter,l, MAXVAL(ABS(x_il(:,l)))
+             WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x', iter,l, MAXVAL(ABS(x_il(:,l)))
           END DO
        END IF
@@ -282 +282 @@
     REAL(rstd) :: berni(iim*jjm,llm)         ! (W/m_il)^2
     REAL(rstd) :: berni1(iim*jjm)         ! (W/m_il)^2
-    REAL(rstd) :: gamma, rho_ij, T_ij, X_ij, Y_ij, vreff, Rd, Cvd
+    REAL(rstd) :: gamma, rho_ij, T_ij, X_ij, vreff, Rd, Cvd
     INTEGER    :: ij, l
 
@@ -401 +401 @@
     REAL(rstd) :: berniv(iim*jjm,llm)  ! moist Bernoulli function
 
-    INTEGER :: i,j,ij,l
+    INTEGER :: ij,l
     REAL(rstd) :: Rd, qv, temp, chi, nu, due, due_right, due_lup, due_ldown
 
@@ -525 +525 @@
     REAL(rstd) :: Ftheta(3*iim*jjm,llm)  ! potential temperature flux
     REAL(rstd) :: uu_right, uu_lup, uu_ldown, du_trisk, divF
-    INTEGER :: ij,iq,l,kdown
+    INTEGER :: ij,iq,l
 
     CALL trace_start("compute_caldyn_Coriolis")