From 7948558a242e9eaa0284b0a9ff0a063d7f520f15 Mon Sep 17 00:00:00 2001
From: Daniel Rieger <daniel.rieger@dwd.de>
Date: Fri, 5 Feb 2021 13:48:37 +0000
Subject: [PATCH] Making length of directory string inside srtm_kgb16
 consistent to rrtm_kgb1 (=255).

---
 ifsrrtm/srtm_kgb16.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ifsrrtm/srtm_kgb16.F90 b/ifsrrtm/srtm_kgb16.F90
index e8b63944..51bc8d54 100644
--- a/ifsrrtm/srtm_kgb16.F90
+++ b/ifsrrtm/srtm_kgb16.F90
@@ -25,7 +25,7 @@ SUBROUTINE SRTM_KGB16(DIRECTORY)
 
 ! KURUCZ
 !CHARACTER(LEN = 80) :: CLZZZ
-CHARACTER(LEN = 80) :: CLF1
+CHARACTER(LEN = 255) :: CLF1
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 
 #include "abor1.intfb.h"