From 85b96209e3a43aea264947a456f4517e5c3b00a0 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Thu, 1 Oct 2020 01:51:31 +0200 Subject: [PATCH] use existing error description --- src/IO.f90 | 3 --- src/YAML_types.f90 | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index ee35cf1bc..0542e7a62 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -498,9 +498,6 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg) msg = 'Abrupt end of file' case (708) msg = '--- expected after YAML file header' - case (710) - msg = 'key mismatch' - !------------------------------------------------------------------------------------------------- ! errors related to the grid solver diff --git a/src/YAML_types.f90 b/src/YAML_types.f90 index 86acf05be..09a2d0592 100644 --- a/src/YAML_types.f90 +++ b/src/YAML_types.f90 @@ -952,7 +952,7 @@ function tNode_get_byKey_asIndex(self,key) result(keyIndex) endif enddo - if(keyIndex == -1) call IO_error(710,ext_msg=key) + if(keyIndex == -1) call IO_error(140,ext_msg=key) end function tNode_get_byKey_asIndex