f_nuopc_realize Subroutine

subroutine f_nuopc_realize(state, field, rc)

Uses

  • proc~~f_nuopc_realize~~UsesGraph proc~f_nuopc_realize f_nuopc_realize module~esmf ESMF proc~f_nuopc_realize->module~esmf module~nuopc NUOPC proc~f_nuopc_realize->module~nuopc

Arguments

Type IntentOptional Attributes Name
type(ESMF_State) :: state
type(ESMF_Field) :: field
integer, intent(out) :: rc

Calls

proc~~f_nuopc_realize~~CallsGraph proc~f_nuopc_realize f_nuopc_realize interface~nuopc_realize NUOPC_Realize proc~f_nuopc_realize->interface~nuopc_realize proc~esmf_logfounderror ESMF_LogFoundError proc~f_nuopc_realize->proc~esmf_logfounderror proc~nuopc_realizecompleteg NUOPC_RealizeCompleteG interface~nuopc_realize->proc~nuopc_realizecompleteg proc~nuopc_realizecompletels NUOPC_RealizeCompleteLS interface~nuopc_realize->proc~nuopc_realizecompletels proc~nuopc_realizecompletem NUOPC_RealizeCompleteM interface~nuopc_realize->proc~nuopc_realizecompletem proc~nuopc_realizefield NUOPC_RealizeField interface~nuopc_realize->proc~nuopc_realizefield proc~nuopc_realizetransfer NUOPC_RealizeTransfer interface~nuopc_realize->proc~nuopc_realizetransfer esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite

Source Code

subroutine f_nuopc_realize(state, field, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_nuopc_realize"
  use ESMF
  use NUOPC
  implicit none

  type(ESMF_State)                        :: state        !in
  type(ESMF_Field)                        :: field        !in
  integer, intent(out)                    :: rc           !out

  integer :: localrc

  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  call NUOPC_Realize(state, field, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU,  &
    ESMF_CONTEXT, rcToReturn=rc)) return

  ! Return successfully
  rc = ESMF_SUCCESS
end subroutine f_nuopc_realize