ESMF_StatusString Subroutine

public subroutine ESMF_StatusString(status, string, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Status), intent(in) :: status
character(len=*), intent(out) :: string
integer, intent(out), optional :: rc

Called by

proc~~esmf_statusstring~~CalledByGraph proc~esmf_statusstring ESMF_StatusString proc~esmf_fieldprint ESMF_FieldPrint proc~esmf_fieldprint->proc~esmf_statusstring proc~f_esmf_fieldprint f_esmf_fieldprint proc~f_esmf_fieldprint->proc~esmf_fieldprint proc~myruninfortran~2 myRunInFortran proc~myruninfortran~2->proc~esmf_fieldprint proc~test_regridxg test_regridxg proc~test_regridxg->proc~esmf_fieldprint proc~user_run~22 user_run proc~user_run~22->proc~esmf_fieldprint proc~user_run~51 user_run proc~user_run~51->proc~esmf_fieldprint proc~user_run~68 user_run proc~user_run~68->proc~esmf_fieldprint program~esmf_fieldhaloutest ESMF_FieldHaloUTest program~esmf_fieldhaloutest->proc~esmf_fieldprint program~esmf_fieldioutest ESMF_FieldIOUTest program~esmf_fieldioutest->proc~esmf_fieldprint

Source Code

      subroutine ESMF_StatusString(status, string, rc)
!
! !ARGUMENTS:
      type(ESMF_Status), intent(in) :: status
      character(len=*), intent(out) :: string
      integer, intent(out), optional :: rc  

!
! !DESCRIPTION:
!   Return an {\tt ESMF\_Status} as a string.
!
!     The arguments are:
!     \begin{description}
!     \item[status]
!       The {\tt ESMF\_Status}.
!     \item[string]
!       A printable string.
!     \item[{[rc]}]
!       Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!     \end{description}
!
!
!EOPI

      if (status == ESMF_STATUS_UNINIT) string = "Uninitialized"
      if (status == ESMF_STATUS_READY) string = "Ready"
      if (status == ESMF_STATUS_UNALLOCATED) string = "Unallocated"
      if (status == ESMF_STATUS_ALLOCATED) string = "Allocated"
      if (status == ESMF_STATUS_BUSY) string = "Busy"
      if (status == ESMF_STATUS_INVALID) string = "Invalid"
 
      if (present(rc)) rc = ESMF_SUCCESS

      end subroutine ESMF_StatusString