Changeset 899 for codes/icosagcm/trunk/src/initial/etat0_academic.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/initial/etat0_academic.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/initial/etat0_academic.f90

@@ -19 +19 @@
     TYPE(t_field),POINTER,SAVE :: f_Ki(:)
     TYPE(t_field),POINTER,SAVE :: f_temp(:)
-  
-    REAL(rstd),POINTER :: Ki(:,:)
-    REAL(rstd),POINTER :: temp(:)
-    INTEGER :: ind
         
     CALL allocate_field(f_ps,field_t,type_real)
@@ -92 +88 @@
   REAL(rstd) :: ddsin
   REAL(rstd) :: thetarappel
-  REAL(rstd) :: lon,lat
+  REAL(rstd) :: lat
   REAL(rstd) :: p(iim*jjm,llm+1)
-  REAL(rstd) :: alpha(iim*jjm,llm),beta(iim*jjm,llm)
-  REAL(rstd) :: delta
-  REAL(rstd) :: pks(iim*jjm),pk(iim*jjm,llm)
   REAL(rstd) :: phi(iim*jjm,llm)
   REAL(rstd) :: x