From 377ccee1af56a428acfd087a0625136c3a8f55c9 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 6 Jun 2018 11:06:12 +0200
Subject: [PATCH] Philippe 06/06/2018: GETDIMCDF: minor bug correction
---
src/LIB/SURCOUCHE/src/mode_netcdf.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
index 49d0b1499..0198c2fc8 100644
--- a/src/LIB/SURCOUCHE/src/mode_netcdf.f90
+++ b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
@@ -938,7 +938,7 @@ ELSE
COUNT = 1
TMP => PIOCDF%DIMLIST
DO WHILE(ASSOCIATED(TMP))
- IF (TMP%LEN == KLEN .AND. TMP%NAME /= 'STRLEN') EXIT
+ IF (TMP%LEN == KLEN .AND. TMP%NAME(1:4) /= 'char') EXIT
TMP=>TMP%NEXT
COUNT = COUNT+1
END DO
--
GitLab