io_int_stubs.f

! 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(OUT) :: data(*)
  INTEGER ,       INTENT(IN)  :: count
  INTEGER ,       INTENT(OUT) :: outcount
  INTEGER ,       INTENT(OUT) :: status

RETURN
END SUBROUTINE ext_int_get_dom_ti_real 


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

RETURN
END SUBROUTINE ext_int_get_dom_ti_integer 


!--- get_dom_ti_char
SUBROUTINE ext_int_get_dom_ti_char ( DataHandle,Element,   Data,  Status )

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 )

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 )
  RETURN

END SUBROUTINE ext_int_read_field


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

  RETURN
END SUBROUTINE ext_int_ioclose


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

END SUBROUTINE ext_int_ioinit



!--- open_for_read 
SUBROUTINE ext_int_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &
                               datahandle , status )

  RETURN  
END SUBROUTINE ext_int_open_for_read



SUBROUTINE int_get_ti_header_c ( hdrbuf, hdrbufsize, n, itypesize, typesize, &
                           datahandle, Data, count, code )

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 )
 RETURN
END SUBROUTINE int_gen_ti_header_c