checkerror.F

Go to the documentation of this file.

#include "cppdefs.h"
      FUNCTION checkerror (ErrorFlag, source, routine, message)
!
!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
      END FUNCTION checkerror