f_esmf_stategetdata Subroutine

   subroutine f_esmf_stategetdata(statep, name, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_esmf_stategetdata"
       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_StateGetData(statep, rc)

   end subroutine f_esmf_stategetdata