- Timestamp:
- 2014-06-06T15:12:36+02:00 (10 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_context.f90
r2281 r4660 17 17 USE mod_dependency 18 18 USE mod_time_parameters 19 USE error_msg 19 20 20 21 … … 198 199 CALL context__get(Id,Pt_context) 199 200 IF (.NOT. ASSOCIATED(Pt_context)) THEN 200 !! error message 201 WRITE (message,*) "Error: Unable to get context for Id '<Id>'" 202 CALL error('context__swap_id') 201 203 ENDIF 202 204 -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_error_msg.f90
r2281 r4660 26 26 27 27 IF (PRESENT(sub_name)) THEN 28 PRINT *,"--* WARNING*-- : in subroutine "//sub_name28 PRINT *,"--* ERROR *-- : in subroutine "//sub_name 29 29 ELSE 30 PRINT *,"--* WARNING*-- "30 PRINT *,"--* ERROR *-- " 31 31 ENDIF 32 32
Note: See TracChangeset
for help on using the changeset viewer.