diff --git a/src/LIB/RAD/ECMWF_RAD/parkind1.f90 b/src/LIB/RAD/ECMWF_RAD/parkind1.f90
index 6f01e32131d11eb0686492b07b9a3a9af75a33a6..cf3fd688455b1a96f35038a5e6386d1289d8e76f 100644
--- a/src/LIB/RAD/ECMWF_RAD/parkind1.f90
+++ b/src/LIB/RAD/ECMWF_RAD/parkind1.f90
@@ -1,13 +1,13 @@
 !-----------------------------------------------------------------
 !--------------- special set of characters for RCS information
 !-----------------------------------------------------------------
-! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:36
 !-----------------------------------------------------------------
 MODULE PARKIND1
 !
 !     *** Define usual kinds for strong typing ***
 !     J.Escobar : 9/06/2015, for I*8 compilation force JPIM to default size
+!     J.-P. Chaboureau: 14/10/2016, adding logical kind JPLM for RTTOV
 !
 IMPLICIT NONE
 SAVE
@@ -30,4 +30,8 @@ INTEGER, PARAMETER :: JPRM = SELECTED_REAL_KIND(6,37)
 REAL               :: REAL_DEF_JPRB
 INTEGER, PARAMETER :: JPRB = KIND(REAL_DEF_JPRB) ! SELECTED_REAL_KIND(13,300)
 !
+!     Logical Kinds
+!     -------------
+INTEGER, PARAMETER :: JPLM = KIND(.TRUE.)               !Standard logical type
+!
 END MODULE PARKIND1