Changeset 899 for codes/icosagcm/trunk/src/output/netcdf_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/output/netcdf_mod.F90 (modified) (17 diffs)

codes/icosagcm/trunk/src/output/netcdf_mod.F90

@@ -81 +81 @@
         integer,                         intent(out) :: varid
         integer                                      :: nf90_def_var
+        nf90_def_var = 0
     end function nf90_def_var
     
@@ -89 +90 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_put_var_int0
+        nf90_put_var_int0 = 0
     end function nf90_put_var_int0
 
@@ -96 +98 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_put_var_int1
+        nf90_put_var_int1 = 0
     end function nf90_put_var_int1
 
@@ -103 +106 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_put_var_int2
+        nf90_put_var_int2 = 0
     end function nf90_put_var_int2
 
@@ -110 +114 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_put_var_int3
+        nf90_put_var_int3 = 0
     end function nf90_put_var_int3
     
@@ -116 +121 @@
         real,                              intent( in) :: values
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_put_var_real0   
+        integer                                      :: nf90_put_var_real0
+        nf90_put_var_real0 = 0
    end function nf90_put_var_real0
 
@@ -123 +129 @@
         real,                              intent( in) :: values(:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_put_var_real1   
+        integer                                      :: nf90_put_var_real1
+        nf90_put_var_real1 = 0
    end function nf90_put_var_real1
 
@@ -130 +137 @@
         real,                              intent( in) :: values(:,:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_put_var_real2   
+        integer                                      :: nf90_put_var_real2
+        nf90_put_var_real2 = 0
    end function nf90_put_var_real2
 
@@ -137 +145 @@
         real,                              intent( in) :: values(:,:,:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_put_var_real3   
+        integer                                      :: nf90_put_var_real3
+        nf90_put_var_real3 = 0
    end function nf90_put_var_real3
  
@@ -146 +155 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_get_var_int0
+        nf90_get_var_int0 = 0
     end function nf90_get_var_int0
 
@@ -153 +163 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_get_var_int1
+        nf90_get_var_int1 = 0
     end function nf90_get_var_int1
 
@@ -160 +171 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_get_var_int2
+        nf90_get_var_int2 = 0
     end function nf90_get_var_int2
 
@@ -167 +179 @@
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
         integer                                      :: nf90_get_var_int3
+        nf90_get_var_int3 = 0
     end function nf90_get_var_int3
     
@@ -173 +186 @@
         real,                              intent( out) :: values
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_get_var_real0   
+        integer                                      :: nf90_get_var_real0
+        nf90_get_var_real0 = 0
    end function nf90_get_var_real0
 
@@ -180 +194 @@
         real,                              intent( out) :: values(:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_get_var_real1   
+        integer                                      :: nf90_get_var_real1
+        nf90_get_var_real1 = 0
    end function nf90_get_var_real1
 
@@ -187 +202 @@
         real,                              intent( out) :: values(:,:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_get_var_real2   
+        integer                                      :: nf90_get_var_real2
+        nf90_get_var_real2 = 0
    end function nf90_get_var_real2
 
@@ -194 +210 @@
         real,                              intent( out) :: values(:,:,:)
         integer, dimension(:), optional, intent( in) :: start, count, stride, map
-        integer                                      :: nf90_get_var_real3   
+        integer                                      :: nf90_get_var_real3
+        nf90_get_var_real3 = 0
    end function nf90_get_var_real3