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

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

@@ -350 +350 @@
       REAL(r8),ALLOCATABLE :: field_val2d(:)
       REAL(r8),ALLOCATABLE :: field_val3d(:,:)
-      REAL(r8),ALLOCATABLE :: field_val4d(:,:,:)
       LOGICAL, INTENT(IN) :: once
       TYPE(t_domain),POINTER :: d
       INTEGER :: Index
       INTEGER :: ind,i,j,k,n,ncell,q
-      INTEGER :: iie,jje,iin,jjn
       INTEGER :: status
       CHARACTER(len=255) :: name
-      CHARACTER(len=255) :: str_ind
       INTEGER :: ind_b,ind_e
       INTEGER :: halo_size
@@ -394 +391 @@
         Index=GetFieldIndex(name)
       else
-        FieldIndex(Index)=FieldIndex(Index)+1.
+        FieldIndex(Index)=FieldIndex(Index)+1
       endif
       
@@ -629 +626 @@
       REAL(r8),ALLOCATABLE :: field_val2d(:)
       REAL(r8),ALLOCATABLE :: field_val3d(:,:)
-      REAL(r8),ALLOCATABLE :: field_val4d(:,:,:)
       TYPE(t_domain),POINTER :: d
       INTEGER :: Index
       INTEGER :: ind,i,j,l,k,n,ncell,q
-      INTEGER :: iie,jje,iin,jjn
       INTEGER :: status
       CHARACTER(len=255) :: name
-      CHARACTER(len=255) :: str_ind
       INTEGER :: ind_b,ind_e
       INTEGER :: halo_size
@@ -664 +658 @@
         Index=GetFieldIndex(name)
       else
-        FieldIndex(Index)=FieldIndex(Index)+1.
+        FieldIndex(Index)=FieldIndex(Index)+1
       endif
       
@@ -1165 +1159 @@
       TYPE(t_domain),POINTER :: d
       INTEGER :: nvertId,ncid,lonId,latId,bounds_lonId,bounds_latId,timeId,ncellId
-      INTEGER :: dim3id,dim4id
+      INTEGER :: dim3id
       INTEGER :: status
       INTEGER :: ind,i,j,k,n,q
-      INTEGER :: iie,jje,iin,jjn
       INTEGER :: ind_b,ind_e
       INTEGER :: halo_size
@@ -1174 +1167 @@
       INTEGER :: nij
       CHARACTER(LEN=255) :: name
-      INTEGER :: l,level_size, levId, dimlevId
+      INTEGER :: l,level_size, levId
             
       name=TRIM(ADJUSTL(name_in))
@@ -1477 +1470 @@
       TYPE(t_domain),POINTER :: d
       INTEGER :: nvertId,ncid,lonId,latId,bounds_lonId,bounds_latId,timeId,ncellId
-      INTEGER :: dim3id,dim4id
+      INTEGER :: dim3id
       INTEGER :: status
       INTEGER :: ind,i,j,k,n,q
-      INTEGER :: iie,jje,iin,jjn
       INTEGER :: ind_b,ind_e
       INTEGER :: halo_size
@@ -1783 +1775 @@
    USE netcdf_mod
    IMPLICIT NONE
-     INTEGER :: i,k,status
+     INTEGER :: i,status
 !$OMP MASTER     
      DO i=1,NbField
@@ -1805 +1797 @@
     int2str=''
     do while (flag)
-      int2str=CHAR(MOD(i,10)+48)//int2str
+      int2str=CHAR(MOD(i,10)+48)//trim(int2str)
       i=i/10
       if (i==0) flag=.false.