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

codes/icosagcm/trunk/src/output/restart.f90

@@ -60 +60 @@
    
   TYPE(t_domain),POINTER :: d
-  TYPE(t_field),POINTER :: field_glo(:)
   TYPE(t_field),POINTER :: field(:)
   
@@ -421 +420 @@
   INTEGER             :: fieldId(20)
    
-  TYPE(t_domain),POINTER :: d
-  TYPE(t_field),POINTER :: field_glo(:)
   TYPE(t_field),POINTER :: field(:)
   
   CHARACTER(LEN=255) :: start_file_name
   INTEGER,PARAMETER  :: nvert=6
-  INTEGER    ::  ncid, cellId, levId, edgeId,  vertid, lonId, latId, bounds_lonId, bounds_latId
-  INTEGER    :: ind,ind_glo,i,j,k,nf
+  INTEGER    ::  ncid
+  INTEGER    :: nf
   INTEGER    :: status
-  REAL(rstd),ALLOCATABLE :: lon(:),lat(:),bounds_lon(:,:),bounds_lat(:,:)
   REAL(rstd) :: it_real
   
@@ -464 +460 @@
 !      CALL xios_recv_field("it_start",it_real)
       CALL xios_read_var("it_start",it_real)
-      it=it_real
+      it=INT(it_real)
     ELSE