[Dart-dev] [3270] DART/trunk/utilities/utilities_mod.f90: In adding error checking for the changed inflation namelist variables

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080317/2429d70d/attachment.html
-------------- next part --------------
Modified: DART/trunk/utilities/utilities_mod.f90
===================================================================
--- DART/trunk/utilities/utilities_mod.f90	2008-03-14 22:54:29 UTC (rev 3269)
+++ DART/trunk/utilities/utilities_mod.f90	2008-03-17 15:00:52 UTC (rev 3270)
@@ -1008,11 +1008,13 @@
    else
       ! Didn't fall off end so bad entry in the middle of namelist
       ! TEMP HELP FOR USERS; remove after next release
-      if ((nml_name(1:10) == 'filter_nml') .and. (index(nml_string,'inf_start_from_restart') > 0)) then
-         write(err_string, *) 'inf_start_from_restart obsolete'
-         call error_handler(E_MSG, 'filter_nml: ', err_string, "", "", "")
-         write(err_string, *) 'use inf_initial_from_restart and inf_sd_initial_from_restart'
-         call error_handler(E_MSG, 'filter_nml: ', err_string, "", "", "")
+      if (len(nml_name) >= 10) then
+         if ((nml_name(1:10) == 'filter_nml') .and. (index(nml_string,'inf_start_from_restart') > 0)) then
+            write(err_string, *) 'inf_start_from_restart obsolete'
+            call error_handler(E_MSG, 'filter_nml: ', err_string, "", "", "")
+            write(err_string, *) 'use inf_initial_from_restart and inf_sd_initial_from_restart'
+            call error_handler(E_MSG, 'filter_nml: ', err_string, "", "", "")
+         endif 
       endif 
       write(err_string, *) 'INVALID NAMELIST ENTRY: ', trim(nml_string), ' in namelist ', trim(nml_name)
       if(write_to_logfile) then