From aa125bac5b0bff09e9ab65997c9807e8835d9c67 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 12 Mar 2015 22:30:24 +0000 Subject: [PATCH] aliases for grid and size not supported any more --- code/mesh.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index dbb583b96..5396ccf00 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -1032,7 +1032,7 @@ function mesh_spectral_getGrid(fileUnit) read(myFileUnit,'(a1024)') line positions = IO_stringPos(line,7_pInt) select case ( IO_lc(IO_StringValue(line,positions,1_pInt,.true.)) ) - case ('resolution','grid') + case ('grid') gotGrid = .true. do j = 2_pInt,6_pInt,2_pInt select case (IO_lc(IO_stringValue(line,positions,j))) @@ -1107,7 +1107,7 @@ function mesh_spectral_getSize(fileUnit) read(myFileUnit,'(a1024)') line positions = IO_stringPos(line,7_pInt) select case ( IO_lc(IO_StringValue(line,positions,1,.true.)) ) - case ('dimension', 'size') + case ('size') gotSize = .true. do j = 2_pInt,6_pInt,2_pInt select case (IO_lc(IO_stringValue(line,positions,j)))