Changeset 4660 for branches/2012

Timestamp:

2014-06-06T15:12:36+02:00 (10 years ago)

Author:

timgraham

Message:

Fixes described in ticket #1302 to XMLIO
Added in an error message in subroutine mod_context.f90
Changed mod_error_msg.f90 so that it prints "Error" instead of "Warning" before stopping.

Location:

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO

Files:

• mod_context.f90 (modified) (2 diffs)
• mod_error_msg.f90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_context.f90

@@ -17 +17 @@
   USE mod_dependency
   USE mod_time_parameters
+  USE error_msg
 
 
@@ -198 +199 @@
       CALL context__get(Id,Pt_context)
       IF (.NOT. ASSOCIATED(Pt_context)) THEN
-!!      error message
+          WRITE (message,*) "Error: Unable to get context for Id '<Id>'"
+          CALL error('context__swap_id')
       ENDIF
       

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_error_msg.f90

@@ -26 +26 @@
     
     IF (PRESENT(sub_name)) THEN
-      PRINT *,"--* WARNING *-- : in subroutine "//sub_name
+      PRINT *,"--* ERROR *-- : in subroutine "//sub_name
     ELSE
-      PRINT *,"--* WARNING *-- "
+      PRINT *,"--* ERROR *-- "
     ENDIF