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

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/vertical/disvert_strato.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/vertical/disvert_strato.f90

@@ -75 +75 @@
   SUBROUTINE init_disvert_strato_custom
     REAL(rstd) :: vert_scale,vert_dzmin,vert_dzlow,vert_z0low,vert_dzmid,vert_z0mid,vert_h_mid,vert_dzhig,vert_z0hig,vert_h_hig
-    REAL(rstd) :: z, snorm, dsig(llm), sig(llm+1), sig0(llm+1), zz(llm+1)
+    REAL(rstd) :: z, sig(llm+1), sig0(llm+1), zz(llm+1)
     INTEGER :: l
     ALLOCATE(ap(llm+1))
@@ -181 +181 @@
       ! Local variables:
       INTEGER      :: it, ns, maxit
-      REAL(rstd)   :: c1, c2, x1, x2, x3, x4, f1, f2, f3, f4, s, xx, distrib
+      REAL(rstd)   :: c1, c2, f1
       !-------------------------------------------------------------------------------
       ns=SIZE(sig); maxit=100