prism_error.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! Copyright 2006-2010, SGI Germany, Munich, Germany.
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PRISM_Error
!
! !INTERFACE:

      subroutine prism_error ( ierror, error_message )
!
! !USES:
!
      use PRISM, dummy_interface => prism_error
!
      use PSMILe

      implicit none
!
!
! !INPUT PARAMETERS:
!
      integer, Intent (In)                :: ierror
!
! !OUTPUT PARAMETERS:
!
      character(len=*), Intent (Out)      :: error_message
!
! !DESCRIPTION:
!
!     Subroutine "prism_error" returns a corresponding error string
!
!
! !REVISION HISTORY:
!   Date      Programmer   Description
! ----------  ----------   -----------
! 03.05/03    R. Redler    created
!
!EOP
!----------------------------------------------------------------------
!
! $Id: prism_error.F90 2706 2010-11-04 15:33:32Z hanke $
! $Author: hanke $
!
  Character(len=len_cvs_string), save :: mycvs = 
      '$Id: prism_error.F90 2706 2010-11-04 15:33:32Z hanke $'
!
!----------------------------------------------------------------------
!
      select case ( ierror )

!   Error in an MPI routine

      case ( PRISM_Success )

         error_message = 'No error'

!   Error in an MPI routine

      case ( PRISM_Error_MPI )

         error_message = 'Error in MPI routine called from PSMILe!'

!   Error in a PSMILe routine

      case ( PRISM_Error_Parameter )

         error_message = 'Error in PSMILe: Wrong parameter!'

      case ( PRISM_Error_Initialized )

         error_message = 'PRISM system is not initialized!'

      case ( PRISM_Error_Alloc )

         error_message = 'Error in PSMILe: Unable to allocate memory!'

      case ( PRISM_Error_Dealloc )

         error_message = 'Error in PSMILe: Unable to deallocate memory!'

      case ( PRISM_Error_Arg )

         error_message = 'Error in PSMILe: Wrong Argument!'

      case ( PRISM_Error_Invalid_Arg )

         error_message = 'Error in PSMILe: Invalid Argument!'

      case ( PRISM_Error_App )

         error_message = 'Error in specification of applications!'

      case ( PRISM_Error_Grid )

         error_message = 'Error in PSMILe: Error in Grid definition!'

      case ( PRISM_Error_Gridtype )

         error_message = 'Error in PSMILe: Error in Corner definition!'

      case ( PRISM_Error_Comp_name )

         error_message = 'Error in PSMILe: Error in Component name!'

      case ( PRISM_Error_Mask )

         error_message = 'Error in PSMILe: Error in Mask definition for gridless Grids!'

      case ( PRISM_Error_Arglist )

         error_message = 'Error in PSMILe: Error in Argument list!'

      case ( PRISM_Error_Wrong )

         error_message = 'Error in PSMILe: Wrong message received!'

      case ( PRISM_Error_Date )

         error_message = 'Error in PSMILe: Inconsistent date or data bounds!'

!   Internal PSMILe error

      case (PRISM_Error_Internal )

         error_message = 'Internal PSMILe error!'

      case ( PRISM_Warn_Init )

         error_message = 'Warning in PSMILe: Multiple calls to PRISM_Init.'

      case ( PRISM_Warn_Size )

         error_message = 'Warning in PSMILe: Size of arrays is inconsistent.'

!   Unknown error code

      case default

         error_message = 'Unknown error code!'

      end select

      end subroutine prism_error