[Dart-dev] DART/branches Revision: 12940

[dart at ucar.edu]

nancy at ucar.edu
2018-11-27 13:31:41 -0700 (Tue, 27 Nov 2018)
118
correct the subroutine name in the call to the error_handler()
to reflect the actual subroutine reporting the error.




Modified: DART/branches/rma_trunk/assimilation_code/modules/observations/forward_operator_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/observations/forward_operator_mod.f90	2018-11-27 15:34:34 UTC (rev 12939)
+++ DART/branches/rma_trunk/assimilation_code/modules/observations/forward_operator_mod.f90	2018-11-27 20:31:41 UTC (rev 12940)
@@ -520,12 +520,12 @@
    if(istatus(copy) == 0) then
       if ((assimilate_ob .or. evaluate_ob) .and. (expected_obs(copy) == missing_r8)) then
          write(msgstring, *) 'istatus was 0 (OK) but forward operator returned missing value.'
-         call error_handler(E_ERR,'filter_main', msgstring, source, revision, revdate)
+         call error_handler(E_ERR,'check_forward_operator_istatus', msgstring, source, revision, revdate)
       endif
    ! Negative istatus
    else if (istatus(copy) < 0) then
       write(msgstring, *) 'istatus must not be <0 from forward operator. 0=OK, >0 for error'
-      call error_handler(E_ERR,'filter_main', msgstring, source, revision, revdate)
+      call error_handler(E_ERR,'check_forward_operator_istatus', msgstring, source, revision, revdate)
    endif
 
 enddo