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

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

Files:

• advect.F90 (modified) (5 diffs)
• advect_tracer.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/transport/advect.F90

@@ -59 +59 @@
     REAL(rstd),INTENT(OUT) :: gradq3d(iim*jjm,llm,3)
     REAL(rstd) :: maxq,minq,minq_c,maxq_c 
-    REAL(rstd) :: alphamx,alphami,alpha ,maggrd
-    REAL(rstd) :: leng1,leng2
+    REAL(rstd) :: alphamx,alphami,alpha,maggrd
     REAL(rstd) :: arr(2*iim*jjm)
     REAL(rstd) :: ar(iim*jjm)
     REAL(rstd) :: gradtri(2*iim*jjm,llm,3) 
-    INTEGER :: ij,k,ind,l
+    INTEGER :: ij,k,l
     REAL(rstd) :: detx,dety,detz,det
     REAL(rstd) :: A(3,3), a11,a12,a13,a21,a22,a23,a31,a32,a33
@@ -243 +242 @@
 !DIR$ SIMD
       DO ij=ij_begin,ij_end
-!             maggrd =  dot_product(gradq3d(ij,l,:),gradq3d(ij,l,:))
+!             maggrd =  dot_product_3d(gradq3d(ij,l,:),gradq3d(ij,l,:))
              maggrd = gradq3d(ij,l,1)*gradq3d(ij,l,1) + gradq3d(ij,l,2)*gradq3d(ij,l,2) + gradq3d(ij,l,3)*gradq3d(ij,l,3) 
              maggrd = sqrt(maggrd) 
@@ -275 +274 @@
     REAL(rstd), INTENT(OUT)    :: dq1,dq2,dq3,det
     REAL(rstd)    :: dq(3)
-    
-    REAL(rstd)  ::detx,dety,detz
-    INTEGER    :: info
-    INTEGER    :: IPIV(3)
 
     REAL(rstd) :: A(3,3)
-    REAL(rstd) :: B(3)
     
     ! TODO : replace A by A1,A2,A3
@@ -345 +339 @@
     REAL(rstd),INTENT(IN)    :: tau
 
-    REAL(rstd) :: v_e(3), up_e, qe, ed(3)    
+    REAL(rstd) :: v_e(3), up_e   
     INTEGER :: ij,l
 
@@ -422 +416 @@
     REAL(rstd), INTENT(INOUT) :: qfluxt(3*iim*jjm,MERGE(llm,1,diagflux_on)) ! time-integrated tracer flux
 
-    REAL(rstd) :: dq,dmass,qe,ed(3), newmass
+    REAL(rstd) :: dq,dmass,qe, newmass
     REAL(rstd) :: qflux(3*iim*jjm,llm)
-    INTEGER :: ij,k,l
+    INTEGER :: ij,l
 
     CALL trace_start("compute_advect_horiz")

codes/icosagcm/trunk/src/transport/advect_tracer.f90

@@ -242 +242 @@
 
     REAL(rstd) :: dzqmax, newmass, sigw, qq, w
-    INTEGER :: i,ij,l,j,ijb,ije
+    INTEGER :: ij,l,ijb,ije
 
     CALL trace_start("vlz")