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

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

@@ -40 +40 @@
 !
 !=======================================================================
-
   IMPLICIT NONE
-
+  
 !=======================================================================
 !    Physical constants
@@ -99 +98 @@
   SUBROUTINE baroclinic_wave_test(deep,moist,pertt,X,lon,lat,p,z,zcoords,u,v,t,thetav,phis,ps,rho,q) &
     BIND(c, name = "baroclinic_wave_test")
- 
+    use iso_c_binding
     IMPLICIT NONE
 
@@ -105 +104 @@
 !     input/output params parameters at given location
 !-----------------------------------------------------------------------
-    INTEGER, INTENT(IN)  :: &
+    INTEGER(KIND=C_INT32_T), INTENT(IN)  :: &
                 deep,       & ! Deep (1) or Shallow (0) test case
                 moist,      & ! Moist (1) or Dry (0) test case
                 pertt         ! Perturbation type
 
-    REAL(8), INTENT(IN)  :: &
+    REAL(KIND=C_DOUBLE), INTENT(IN)  :: &
                 lon,        & ! Longitude (radians)
                 lat,        & ! Latitude (radians)
                 X             ! Earth scaling parameter
 
-    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)
@@ -138 +137 @@
     REAL(8) :: T0, constH, constC, scaledZ, inttau2, rratio
     REAL(8) :: inttermU, bigU, rcoslat, omegarcoslat
-    REAL(8) :: eta, qratio, qnum, qden
+    REAL(8) :: eta
 
     !------------------------------------------------