Changeset 899 for codes/icosagcm/trunk/src/diagnostics/geopotential_mod.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/diagnostics/geopotential_mod.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/diagnostics/geopotential_mod.f90

@@ -13 +13 @@
     TYPE(t_field), POINTER :: f_ps(:), f_phis(:), f_theta_rhodz(:), &  ! IN                                       
          f_p(:), f_theta(:), f_phi(:)               ! OUT                                                         
-    REAL(rstd),POINTER :: pk(:,:), p(:,:), theta(:,:,:), theta_rhodz(:,:,:), &
+    REAL(rstd),POINTER :: p(:,:), theta(:,:,:), theta_rhodz(:,:,:), &
          phi(:,:), phis(:), ps(:)
     INTEGER :: ind