From 04a6a836bb1b69b52e6160fe9f6a02671bec5dde Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 9 Jun 2015 09:02:08 +0000
Subject: [PATCH] Juan 9/06/2015: for I*8 compilation force JPIM to default
 size

---
 src/LIB/RAD/ECMWF_RAD/parkind1.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/LIB/RAD/ECMWF_RAD/parkind1.f90 b/src/LIB/RAD/ECMWF_RAD/parkind1.f90
index b63d2f7af..6f01e3213 100644
--- a/src/LIB/RAD/ECMWF_RAD/parkind1.f90
+++ b/src/LIB/RAD/ECMWF_RAD/parkind1.f90
@@ -7,6 +7,7 @@
 MODULE PARKIND1
 !
 !     *** Define usual kinds for strong typing ***
+!     J.Escobar : 9/06/2015, for I*8 compilation force JPIM to default size
 !
 IMPLICIT NONE
 SAVE
@@ -16,7 +17,8 @@ SAVE
 !
 INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
 INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
-INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
+INTEGER :: JINT_DEF
+INTEGER, PARAMETER :: JPIM = KIND(JINT_DEF) ! SELECTED_INT_KIND(9)
 INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12)
 !
 !     Real Kinds
-- 
GitLab