[Dart-dev] DART/branches Revision: 10996

[dart at ucar.edu]

nancy at ucar.edu
2017-02-03 11:55:21 -0700 (Fri, 03 Feb 2017)
130
for the tool, change the register argument to match
the rest of the system.  for the module, remove a
debugging print statement.




Modified: DART/branches/rma_trunk/utilities/obs_impact_mod.f90
===================================================================
--- DART/branches/rma_trunk/utilities/obs_impact_mod.f90	2017-02-03 18:31:16 UTC (rev 10995)
+++ DART/branches/rma_trunk/utilities/obs_impact_mod.f90	2017-02-03 18:55:21 UTC (rev 10996)
@@ -1743,7 +1743,7 @@
 do j=0, nkinds
    do i=1, ntypes
       if (table(i, j) /= 1.0_r8) then
-print *, i, j, table(i, j)
+!print *, i, j, table(i, j)
          write(funit, '(A34,A34,F18.6)') &
                         trim(get_name_by_value(i, ENTRY_DARTTYPE, toc)), &
                         trim(get_name_by_value(j, ENTRY_DARTKIND, toc)), &

Modified: DART/branches/rma_trunk/utilities/obs_impact_tool.f90
===================================================================
--- DART/branches/rma_trunk/utilities/obs_impact_tool.f90	2017-02-03 18:31:16 UTC (rev 10995)
+++ DART/branches/rma_trunk/utilities/obs_impact_tool.f90	2017-02-03 18:55:21 UTC (rev 10996)
@@ -115,7 +115,7 @@
 ! initialization and setup
 
 call initialize_utilities('obs_impact_tool')
-call register_module(id)
+call register_module(source,revision,revdate)
 
 ! build and output impact_table
 call create_impact_table()