Merge pull request #3 in ESCAPE/dwarf-p-radiation-ecrad from srtm_dir…

…ectory_length to master * commit '7948558a242e9eaa0284b0a9ff0a063d7f520f15': Making length of directory string inside srtm_kgb16 consistent to rrtm_kgb1 (=255).
MeteoSwiss-APN · Feb 5, 2021 · 7f608e3 · 7f608e3
2 parents a848a91 + 7948558
commit 7f608e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"