<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_WRF_INTERFACES'><A href='../../html_code/tools/da_wrf_interfaces.f90.html#DA_WRF_INTERFACES' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_wrf_interfaces 11
interface
subroutine disable_quilting
end subroutine disable_quilting
end interface
interface
subroutine wrf_dm_bcast_real (buf, n1)
integer, intent(in) :: n1
real, intent(inout) :: buf(:)
end subroutine wrf_dm_bcast_real
end interface
interface
subroutine wrf_dm_sum_reals (inval, retval)
real, intent(in) :: inval(:)
real, intent(out) :: retval(:)
end subroutine wrf_dm_sum_reals
end interface
interface
real function wrf_dm_sum_real (inval)
real, intent(in) :: inval
end function wrf_dm_sum_real
end interface
interface
integer function wrf_dm_sum_integer (inval)
integer, intent(in) :: inval
end function wrf_dm_sum_integer
end interface
interface
subroutine wrf_patch_to_global_real (buf,globbuf,domdesc,stagger, &
ordering,&
ds1,de1,ds2,de2,ds3,de3,&
ms1,me1,ms2,me2,ms3,me3,&
ps1,pe1,ps2,pe2,ps3,pe3 )
integer, intent(in) :: ds1,de1,ds2,de2,ds3,de3,&
ms1,me1,ms2,me2,ms3,me3,&
ps1,pe1,ps2,pe2,ps3,pe3
character *(*), intent(in) :: stagger,ordering
integer, intent(in) :: domdesc
real, intent(inout) :: globbuf(*)
real, intent(in) :: buf(*)
end subroutine wrf_patch_to_global_real
end interface
interface
subroutine wrf_dm_xpose_z2y (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_z2y
end interface
interface
subroutine wrf_dm_xpose_y2z (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_y2z
end interface
interface
subroutine wrf_dm_xpose_y2x (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_y2x
end interface
interface
subroutine wrf_dm_xpose_x2y (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_x2y
end interface
interface
subroutine wrf_dm_xpose_x2z (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_x2z
end interface
interface
subroutine wrf_dm_xpose_z2x (domdesc , comms , xpose_id)
integer, intent(inout) :: domdesc
integer, intent(inout) :: comms(*)
integer, intent(in) :: xpose_id
end subroutine wrf_dm_xpose_z2x
end interface
interface
subroutine set_scalar_indices_from_config (idomain, dummy2, dummy1)
integer, intent(in) :: idomain
integer, intent(in) :: dummy1
integer, intent(in) :: dummy2
end subroutine set_scalar_indices_from_config
end interface
interface
subroutine init_modules(phase)
integer, intent(in) :: phase
end subroutine init_modules
end interface
interface
subroutine init_wrfio
end subroutine init_wrfio
end interface
interface
subroutine wrf_get_dm_communicator (communicator)
integer , intent(out) :: communicator
end subroutine wrf_get_dm_communicator
end interface
interface
subroutine wrf_debug(level , str)
character*(*), intent(in) :: str
integer, intent(in) :: level
end subroutine wrf_debug
end interface
interface
subroutine wrf_dm_bcast_integer(buf, n1)
implicit none
integer, intent(in) :: n1
integer, intent(inout) :: buf(:)
end subroutine wrf_dm_bcast_integer
end interface
interface
subroutine setup_timekeeping(grid)
use module_domain, only : domain
type(domain), pointer :: grid
end subroutine setup_timekeeping
end interface
interface
subroutine wrf_message(str)
character(len=*), intent(in) :: str
end subroutine wrf_message
end interface
interface
subroutine wrf_error_fatal (str)
character*(*), intent(in) :: str
end subroutine wrf_error_fatal
end interface
interface
subroutine wrf_error_fatal3 (file_str, line, str)
character(len=*), intent(in) :: file_str
integer, intent(in) :: line
character(len=*), intent(in) :: str(:)
end subroutine wrf_error_fatal3
end interface
interface
subroutine wrf_check_error(expected, actual, str, file_str, line)
integer, intent(in) :: expected
integer, intent(in) :: actual
character(len=*), intent(in) :: str(:)
character(len=*), intent(in) :: file_str(:)
integer, intent(in) :: line
end subroutine wrf_check_error
end interface
interface
subroutine wrf_abort
end subroutine wrf_abort
end interface
interface
subroutine wrf_shutdown
end subroutine wrf_shutdown
end interface
interface
subroutine med_shutdown_io (grid , config_flags)
use module_domain, only : domain
use module_configure, only : grid_config_rec_type
type (domain), intent(in) :: grid
type (grid_config_rec_type), intent(in) :: config_flags
end subroutine med_shutdown_io
end interface
end module da_wrf_interfaces