subroutine f_esmf_frameworkfinalize(rc) use ESMF_CompMod use ESMF_InitMod implicit none integer :: rc call ESMF_Finalize(rc=rc) end subroutine f_esmf_frameworkfinalize