Changeset 899 for codes/icosagcm/trunk/src/dynamics/caldyn_kernels.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.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/dynamics/caldyn_kernels.f90

@@ -15 +15 @@
     REAL(rstd) :: ulon(iim*3*jjm)
     REAL(rstd) :: ulat(iim*3*jjm)
-    REAL(rstd) :: lon,lat
     INTEGER :: ij
     DO ij=ij_begin_ext,ij_end_ext
@@ -44 +43 @@
     REAL(rstd),INTENT(OUT) :: qv(iim*2*jjm,llm)
 
-    INTEGER :: i,j,ij,l
+    INTEGER :: ij,l
     REAL(rstd) :: etav,hv, m
     CALL trace_start("compute_pvort")  
@@ -130 +129 @@
     REAL(rstd),INTENT(OUT) :: du(iim*3*jjm,llm)
 
-    REAL(rstd) :: cor_NT(iim*jjm,llm)  ! NT coriolis force u.(du/dPhi)
-    REAL(rstd) :: urel(3*iim*jjm,llm)  ! relative velocity
+    !REAL(rstd) :: cor_NT(iim*jjm,llm)  ! NT coriolis force u.(du/dPhi)
+    !REAL(rstd) :: urel(3*iim*jjm,llm)  ! relative velocity
     REAL(rstd) :: Ftheta(3*iim*jjm,llm) ! theta flux
     REAL(rstd) :: berni(iim*jjm,llm)  ! Bernoulli function
     REAL(rstd) :: uu_right, uu_lup, uu_ldown
 
-    INTEGER :: i,j,ij,l
-    REAL(rstd) :: ww,uu
+    INTEGER :: ij,l
+    REAL(rstd) :: uu
 
     CALL trace_start("compute_caldyn_horiz")