! Stubs version of wrf io spi subroutines
!
!--- get_dom_ti_real
SUBROUTINE ext_int_get_dom_ti_real ( DataHandle,Element,   Data, Count, Outcount, Status )
  INTEGER ,       INTENT(IN)  :: DataHandle
  CHARACTER*(*) :: Element
  REAL ,          INTENT(INOUT) :: Data(*)
  INTEGER ,       INTENT(IN)    :: Count
  INTEGER ,       INTENT(INOUT) :: Outcount
  INTEGER ,       INTENT(INOUT) :: Status

  write(6,*) 'Calling dummy 1'
RETURN
END SUBROUTINE ext_int_get_dom_ti_real 


SUBROUTINE ext_int_get_dom_ti_integer ( DataHandle,Element,   Data, Count, Outcount, Status )

  write(6,*) 'Calling dummy 2'
RETURN
END SUBROUTINE ext_int_get_dom_ti_integer 


!--- get_dom_ti_char
SUBROUTINE ext_int_get_dom_ti_char ( DataHandle,Element,   Data,  Status )
  write(6,*) 'Calling dummy 3'

RETURN
END SUBROUTINE ext_int_get_dom_ti_char 


!--- get_var_info
SUBROUTINE ext_int_get_var_info ( DataHandle , VarName , NDim , MemoryOrder , Stagger , &
                              DomainStart , DomainEnd , WrfType, Status )

  write(6,*) 'Calling dummy 4'
RETURN
END SUBROUTINE ext_int_get_var_info


!--- read_field
SUBROUTINE ext_int_read_field ( DataHandle , DateStr , VarName , Field , FieldType , Comm , IOComm, &
                            DomainDesc , MemoryOrder , Stagger , DimNames ,              &
                            DomainStart , DomainEnd ,                                    &
                            MemoryStart , MemoryEnd ,                                    &
                            PatchStart , PatchEnd ,                                      &
                            Status )
  write(6,*) 'Calling dummy 5'
  RETURN

END SUBROUTINE ext_int_read_field


!--- close
SUBROUTINE ext_int_ioclose ( DataHandle, Status )

  write(6,*) 'Calling dummy 6'
  RETURN
END SUBROUTINE ext_int_ioclose


!--- initialize
SUBROUTINE ext_int_ioinit( SysDepInfo, Status )

  write(6,*) 'Calling dummy 7'
END SUBROUTINE ext_int_ioinit



!--- open_for_read 
SUBROUTINE ext_int_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &
                               DataHandle , Status )

  write(6,*) 'Calling dummy 8'
  RETURN  
END SUBROUTINE ext_int_open_for_read



!SUBROUTINE int_get_ti_header_c ( hdrbuf, hdrbufsize, n, itypesize, typesize, &
!                          DataHandle, Data, Count, code )

!  write(6,*) 'Calling dummy 9'
!RETURN
!END SUBROUTINE int_get_ti_header_c	


! NETCDF STUBS
!SUBROUTINE ext_ncd_ioinit(SysDepInfo, Status)

!RETURN
!END SUBROUTINE ext_ncd_ioinit


!subroutine ext_ncd_open_for_read(DatasetName, Comm1, Comm2, SysDepInfo, DataHandle, Status)

!RETURN 
!END subroutine ext_ncd_open_for_read


!subroutine ext_ncd_get_dom_ti_integer(DataHandle,Element,Data,Count,OutCount,Status)

!RETURN
!END subroutine ext_ncd_get_dom_ti_integer


!subroutine ext_ncd_ioclose(DataHandle, Status)

!  return
!end subroutine ext_ncd_ioclose


!subroutine ext_ncd_get_dom_ti_char(DataHandle,Element,Data,Status)

!  return
!end subroutine ext_ncd_get_dom_ti_char


!subroutine ext_ncd_get_dom_ti_real(DataHandle,Element,Data,Count,Status)

!  return
!end subroutine ext_ncd_get_dom_ti_real


!subroutine ext_ncd_get_var_info(DataHandle,Name,NDim,MemoryOrder, &
! Stagger,DomainStart,DomainEnd,WrfType,Status)
 
!   return
!end subroutine ext_ncd_get_var_info


!subroutine ext_ncd_read_field(DataHandle,DateStr,Var,Field,FieldType,Comm,  &
!  IOComm, DomainDesc, MemoryOrdIn, Stagger, DimNames,                       &
!  DomainStart,DomainEnd,MemoryStart,MemoryEnd,PatchStart,PatchEnd,Status)
  
! return
!end subroutine ext_ncd_read_field


!subroutine wrf_error_fatal(massage)

!stop
!end subroutine wrf_error_fatal 


!subroutine int_gen_ti_header_c ( hdrbuf, hdrbufsize, itypesize, typesize, &
!                           DataHandle, Data, Count, code )
! write(6,*) 'Calling dummy 10'
!RETURN
!END SUBROUTINE int_gen_ti_header_c