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

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

@@ -148 +148 @@
 
     ! Variables for calculation of equatorial profile
-    REAL(8) :: exnereqs, p, T, qvs, qv
-
-    ! Error metric
-    REAL(8) :: err
+    REAL(8) :: exnereqs, p, T, qvs
 
     ! Loop indices
@@ -349 +346 @@
   SUBROUTINE supercell_test(lon,lat,p,z,zcoords,u,v,t,thetav,ps,rho,q,pert) &
     BIND(c, name = "supercell_test")
- 
+    use iso_c_binding
     IMPLICIT NONE
 
@@ -355 +352 @@
     !   Input / output parameters
     !------------------------------------------------
-    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               ! Altitude (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)
@@ -375 +372 @@
                 q             ! water vapor mixing ratio (kg/kg)
 
-    INTEGER, INTENT(IN) :: pert  ! 1 if perturbation should be included
+    INTEGER(KIND=c_int32_t), INTENT(IN) :: pert  ! 1 if perturbation should be included
                                  ! 0 if no perturbation should be included