fixes error messages

danielpeter · Nov 20, 2024 · 6debda8 · 6debda8
1 parent 2c8947b
commit 6debda8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/shared/read_parameter_file.F90 b/src/shared/read_parameter_file.F90
@@ -245,11 +245,11 @@ subroutine read_parameter_file()
   call read_value_logical(OUTPUT_SEISMOS_SAC_BINARY, 'OUTPUT_SEISMOS_SAC_BINARY', ier)
   if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_SEISMOS_SAC_BINARY'
   call read_value_logical(OUTPUT_SEISMOS_ASDF, 'OUTPUT_SEISMOS_ASDF', ier)
-  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_HDF5'
+  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_SEISMOS_ASDF'
   call read_value_logical(OUTPUT_SEISMOS_3D_ARRAY, 'OUTPUT_SEISMOS_3D_ARRAY', ier)
-  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_ASDF'
+  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_SEISMOS_3D_ARRAY'
   call read_value_logical(OUTPUT_SEISMOS_HDF5, 'OUTPUT_SEISMOS_HDF5', ier)
-  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_3D_ARRAY'
+  if (ier /= 0) stop 'an error occurred while reading the parameter file: OUTPUT_SEISMOS_HDF5'
   call read_value_logical(ROTATE_SEISMOGRAMS_RT, 'ROTATE_SEISMOGRAMS_RT', ier)
   if (ier /= 0) stop 'an error occurred while reading the parameter file: ROTATE_SEISMOGRAMS_RT'
   call read_value_logical(WRITE_SEISMOGRAMS_BY_MAIN, 'WRITE_SEISMOGRAMS_BY_MAIN', ier)