From 44523affa4961c269278fec0652278be277d5972 Mon Sep 17 00:00:00 2001
From: Jean-Pierre Chaboureau <jean-pierre.chaboureau@aero.obs-mip.fr>
Date: Fri, 14 Oct 2016 15:31:06 +0200
Subject: [PATCH] Jean-Pierre 14/10/2016: adding logical kind JPLM for RTTOV

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

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