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

codes/icosagcm/trunk/src/dcmip/dcmip2016_cyclone.f90

@@ -95 +95 @@
   SUBROUTINE tropical_cyclone_test(lon,lat,p,z,zcoords,u,v,t,thetav,phis,ps,rho,q) &
     BIND(c, name = "tropical_cyclone_test")
-
+    use iso_c_binding
     IMPLICIT NONE
 
@@ -102 +102 @@
     !------------------------------------------------
 
-    REAL(8), INTENT(IN) ::     &
+    REAL(KIND=C_DOUBLE), INTENT(IN) ::     &
               lon,             &     ! Longitude (radians)
               lat                    ! Latitude (radians)
 
-    REAL(8), INTENT(INOUT) ::  &
+    REAL(KIND=C_DOUBLE), INTENT(INOUT) ::  &
               p,               &     ! Pressure (Pa)
               z                      ! Height (m)
 
-    INTEGER, INTENT(IN) :: zcoords     ! 1 if z coordinates are specified
+    INTEGER(KIND=C_INT32_T), INTENT(IN) :: zcoords     ! 1 if z coordinates are specified
                                      ! 0 if p coordinates are specified
 
-    REAL(8), INTENT(OUT) ::    &
+    REAL(KIND=C_DOUBLE), INTENT(OUT) ::    &
               u,               &     ! Zonal wind (m s^-1)
               v,               &     ! Meridional wind (m s^-1)