diff --git a/src/LIB/RAD/ECMWF_RAD/parkind1.f90 b/src/LIB/RAD/ECMWF_RAD/parkind1.f90 index b63d2f7af17798e72def37273f35a7777240689c..6f01e32131d11eb0686492b07b9a3a9af75a33a6 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