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

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

@@ -15 +15 @@
 !$OMP THREADPRIVATE(lon0)
   REAL(rstd), SAVE  :: lat0=0.0
-!$OMP THREADPRIVATE(lat0)
-  REAL(rstd), SAVE  :: alpha=0.0
-!$OMP THREADPRIVATE(alpha)
+  !$OMP THREADPRIVATE(lat0)
   REAL(rstd), SAVE  :: R0 
 !$OMP THREADPRIVATE(R0)
-  REAL(rstd), SAVE  :: lat1=0.
-!$OMP THREADPRIVATE(lat1)
-  REAL(rstd), SAVE  :: lat2=0.
-!$OMP THREADPRIVATE(lat2)
-  REAL(rstd), SAVE  :: lon1=pi/6
-!$OMP THREADPRIVATE(lon1)
-  REAL(rstd), SAVE  :: lon2=-pi/6
-!$OMP THREADPRIVATE(lon2)
   REAL(rstd), SAVE  :: latc1=0.
 !$OMP THREADPRIVATE(latc1)
@@ -113 +103 @@
   REAL(rstd) :: pr
   !  REAL(rstd) :: lon, lat
-  INTEGER :: n,l
+  INTEGER :: l
   
   DO l=1, llm+1
@@ -158 +148 @@
     SUBROUTINE cosine_bell_1(hx)
     REAL(rstd) :: hx(ngrid,llm)
-    REAL(rstd) :: rr1,rr2   
+    REAL(rstd) :: rr1 
     INTEGER :: n,l
     DO l=ll_begin,ll_end 
@@ -241 +231 @@
       REAL(rstd)::hx(ngrid,llm) 
       REAL(rstd),PARAMETER:: zz1=2000.,zz2=5000.,zz0=0.5*(zz1+zz2)
-      INTEGER :: n,l
+      INTEGER :: l
       
       DO l=ll_begin,ll_end