checkerror.F File Reference

#include "cppdefs.h"

Include dependency graph for checkerror.F:

Go to the source code of this file.

Functions/Subroutines
logical function	checkerror (errorflag, source, routine, message)

Function/Subroutine Documentation

checkerror()

logical function checkerror	(	integer, intent(in)	errorflag,
		character (len=*), intent(in)	source,
		character (len=*), intent(in)	routine,
		character (len=*), intent(in)	message )

Definition at line 2 of file checkerror.F.

!
!git $Id$
!================================================== Hernan G. Arango ===
!  Copyright (c) 2002-2025 The ROMS Group                              !
!    Licensed under a MIT/X style license                              !
!    See License_ROMS.md                                               !
!=======================================================================
!                                                                      !
! This function checks an error flag returned by a particular source   !
! code and prints the appropriate error message, if any.               !
!                                                                      !
!=======================================================================
!
#ifdef ESMF_LIB
      USE esmf
#endif
      USE mod_param
      USE mod_parallel
      USE mod_iounits
      USE mod_scalars
!
      implicit none
!
!  Imported variable declarations.
!
      integer, intent(in) :: ErrorFlag
 
      character (len=*), intent(in) :: source
      character (len=*), intent(in) :: routine
      character (len=*), intent(in) :: message
!
!  Local variable declarations.
!
      logical :: CheckError
!
!-----------------------------------------------------------------------
!  Check error flag.
!-----------------------------------------------------------------------
!
!  First, initialize to no error.
!
      checkerror=.false.
!
!  Check error flags according to source.
!
      SELECT CASE (trim(adjustl(source)))
 
        CASE ('ROMS')
          IF (errorflag.ne.noerror) THEN
            checkerror=.true.
          END IF
#ifdef ESMF_LIB
        CASE ('ESMF')
          IF (errorflag.ne.esmf_success) THEN
            checkerror=.true.
          END IF
#endif
        CASE DEFAULT
          checkerror=.false.
 
      END SELECT
!
!  Report error message.
!
      IF (checkerror) THEN
        IF (master) THEN
          WRITE (stdout,10) trim(adjustl(routine)),                     &
     &                      trim(adjustl(source)),                      &
     &                      trim(adjustl(message))
        END IF
 10     FORMAT(/,1x,a,' - ',a,': Error while ',a,'.'/)
      END IF
 
      RETURN

References checkerror(), mod_parallel::master, mod_scalars::noerror, and mod_iounits::stdout.

Referenced by checkerror().

Here is the call graph for this function:

Here is the caller graph for this function: