[Dart-dev] [5747] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: Improved information content in two previously identical error messages relating to invalid

[nancy at ucar.edu]

Revision: 5747
Author:   thoar
Date:     2012-06-06 10:50:51 -0600 (Wed, 06 Jun 2012)
Log Message:
-----------
Improved information content in two previously identical error messages relating to invalid
evaluate_these_obs_types, assimilate_these_obs_types.

Modified Paths:
--------------
    DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2012-06-04 23:14:01 UTC (rev 5746)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2012-06-06 16:50:51 UTC (rev 5747)
@@ -461,8 +461,8 @@
          endif
       end do
       ! Falling off the end is an error
-      write(err_string, *) trim(assimilate_these_obs_types(i)), &
-         ' from obs_kind_nml is not a legal observation kind'
+      write(err_string, *) '"',trim(assimilate_these_obs_types(i)), &
+         '" from obs_kind_nml is not a legal observation kind to assimilate'
       call error_handler(E_ERR, 'initialize_module', err_string, source, revision, revdate)
       44 continue
    end do
@@ -479,8 +479,8 @@
          endif
       end do
       ! Falling off the end is an error
-      write(err_string, *) trim(evaluate_these_obs_types(i)), &
-         ' from obs_kind_nml is not a legal observation kind'
+      write(err_string, *) '"',trim(evaluate_these_obs_types(i)), &
+         '" from obs_kind_nml is not a legal observation kind to evaluate'
       call error_handler(E_ERR, 'initialize_module', err_string, source, revision, revdate)
       55 continue
    end do