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