f_esmf_stateget Subroutine

   subroutine f_esmf_stateget(statep, name, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_esmf_stateget"
       use ESMF_UtilTypesMod
       use ESMF_BaseMod    ! ESMF base class
       use ESMF_StateMod
       implicit none

       type(ESMF_State), pointer :: statep      
       character(*)              :: name
       integer, intent(out)      :: rc     

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

       !call ESMF_StateGet(statep, rc)

   end subroutine f_esmf_stateget