Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_SciComp) | :: | comp | ||||
integer | :: | rc |
subroutine f_esmf_scicompprint(comp, rc) use ESMF_UtilTypesMod ! ESMF utility types use ESMF_BaseMod ! ESMF base class use ESMF_CompMod use ESMF_SciCompMod use ESMF_InitMacrosMod implicit none type(ESMF_SciComp) :: comp integer :: rc ! Initialize return code; assume routine not implemented rc = ESMF_RC_NOT_IMPL call ESMF_SciCompPrint(comp, rc=rc) end subroutine f_esmf_scicompprint