var/da/da_tools/da_wrf_interfaces.f90

   1 module da_wrf_interfaces
   2
   3    interface
   4       subroutine disable_quilting
   5       end subroutine disable_quilting
   6    end interface
   7
   8    interface
   9       subroutine wrf_dm_bcast_real (buf, n1)
  10          integer, intent(in) :: n1
  11          real, intent(inout) :: buf(*)
  12       end subroutine wrf_dm_bcast_real
  13    end interface
  14
  15    interface
  16       subroutine wrf_dm_sum_reals (inval, retval)
  17          real, intent(in)  :: inval(:)
  18          real, intent(out) :: retval(:)
  19       end subroutine wrf_dm_sum_reals
  20    end interface
  21
  22    interface
  23       real function wrf_dm_sum_real (inval)
  24          real, intent(in) :: inval
  25       end function wrf_dm_sum_real
  26    end interface
  27
  28    interface
  29       subroutine wrf_dm_bcast_integer(buf, n1)
  30          implicit none
  31          integer, intent(in)    ::  n1
  32          integer, intent(inout) :: buf(*)
  33       end subroutine wrf_dm_bcast_integer
  34    end interface
  35
  36    interface
  37       integer function wrf_dm_sum_integer (inval)
  38          integer, intent(in) :: inval
  39       end function wrf_dm_sum_integer
  40    end interface
  41
  42    interface
  43       subroutine wrf_dm_bcast_string(buf, n1)
  44          implicit none
  45          integer, intent(in)          ::  n1
  46          character*(*), intent(inout) :: buf(*)
  47       end subroutine wrf_dm_bcast_string
  48    end interface
  49
  50    interface
  51       subroutine wrf_dm_bcast_bytes(buf, size)
  52          implicit none
  53          integer, intent(in)    :: size
  54          integer, intent(inout) :: buf(*)
  55       end subroutine wrf_dm_bcast_bytes
  56    end interface
  57
  58    interface
  59       subroutine wrf_patch_to_global_real (buf,globbuf,domdesc,stagger, &
  60          ordering,&
  61          ds1,de1,ds2,de2,ds3,de3,&
  62          ms1,me1,ms2,me2,ms3,me3,&
  63          ps1,pe1,ps2,pe2,ps3,pe3 )
  64
  65          integer, intent(in) ::         ds1,de1,ds2,de2,ds3,de3,&
  66                                           ms1,me1,ms2,me2,ms3,me3,&
  67                                           ps1,pe1,ps2,pe2,ps3,pe3
  68          character *(*), intent(in) :: stagger,ordering
  69          integer, intent(in) :: domdesc
  70          real, intent(inout) :: globbuf(*)
  71          real, intent(in) :: buf(*)
  72       end subroutine wrf_patch_to_global_real
  73    end interface
  74
  75    interface
  76       subroutine wrf_dm_xpose_z2y (domdesc , comms , xpose_id)
  77          integer, intent(inout) :: domdesc
  78          integer, intent(inout) :: comms(*)
  79          integer, intent(in) :: xpose_id
  80       end subroutine wrf_dm_xpose_z2y
  81    end interface
  82
  83    interface
  84       subroutine wrf_dm_xpose_y2z (domdesc , comms , xpose_id)
  85          integer, intent(inout) :: domdesc
  86          integer, intent(inout) :: comms(*)
  87          integer, intent(in) :: xpose_id
  88       end subroutine wrf_dm_xpose_y2z
  89    end interface
  90
  91    interface
  92       subroutine wrf_dm_xpose_y2x (domdesc , comms , xpose_id)
  93          integer, intent(inout) :: domdesc
  94          integer, intent(inout) :: comms(*)
  95          integer, intent(in) :: xpose_id
  96       end subroutine wrf_dm_xpose_y2x
  97    end interface
  98
  99    interface
 100       subroutine wrf_dm_xpose_x2y (domdesc , comms , xpose_id)
 101          integer, intent(inout) :: domdesc
 102          integer, intent(inout) :: comms(*)
 103          integer, intent(in) :: xpose_id
 104       end subroutine wrf_dm_xpose_x2y
 105    end interface
 106
 107    interface
 108       subroutine wrf_dm_xpose_x2z (domdesc , comms , xpose_id)
 109          integer, intent(inout) :: domdesc
 110          integer, intent(inout) :: comms(*)
 111          integer, intent(in) :: xpose_id
 112       end subroutine wrf_dm_xpose_x2z
 113    end interface
 114
 115    interface
 116       subroutine wrf_dm_xpose_z2x (domdesc , comms , xpose_id)
 117          integer, intent(inout) :: domdesc
 118          integer, intent(inout) :: comms(*)
 119          integer, intent(in) :: xpose_id
 120       end subroutine wrf_dm_xpose_z2x
 121    end interface
 122
 123    interface
 124       subroutine set_scalar_indices_from_config (idomain, dummy2, dummy1)
 125         integer, intent(in) :: idomain
 126         integer, intent(in) :: dummy1
 127         integer, intent(in) :: dummy2
 128       end subroutine set_scalar_indices_from_config
 129    end interface
 130
 131    interface
 132       subroutine init_modules(phase)
 133          integer, intent(in) :: phase
 134       end subroutine init_modules
 135    end interface
 136
 137    interface
 138       subroutine init_wrfio
 139       end subroutine init_wrfio
 140    end interface
 141
 142    interface
 143       subroutine wrf_get_dm_communicator (communicator)
 144          integer , intent(out) :: communicator
 145       end subroutine wrf_get_dm_communicator
 146    end interface
 147
 148    interface
 149       subroutine wrf_debug(level , str)
 150          character*(*), intent(in) :: str
 151          integer,          intent(in) :: level
 152       end subroutine wrf_debug
 153    end interface
 154
 155    interface
 156       subroutine setup_timekeeping(grid)
 157         use module_domain, only : domain
 158         type(domain), pointer :: grid
 159       end subroutine setup_timekeeping
 160    end interface
 161
 162    interface
 163       subroutine wrf_message(str)
 164          character(len=*), intent(in) :: str
 165       end subroutine wrf_message
 166    end interface
 167
 168    interface
 169       subroutine wrf_error_fatal (str)
 170          character*(*), intent(in) :: str
 171       end subroutine wrf_error_fatal
 172    end interface
 173
 174    interface
 175       subroutine wrf_error_fatal3 (file_str, line, str)
 176         character(len=*), intent(in) :: file_str
 177         integer,          intent(in) :: line
 178         character(len=*), intent(in) :: str(:)
 179       end subroutine wrf_error_fatal3
 180    end interface
 181
 182    interface
 183       subroutine wrf_check_error(expected, actual, str, file_str, line)
 184         integer,          intent(in) :: expected
 185         integer,          intent(in) :: actual
 186         character(len=*), intent(in) :: str(:)
 187         character(len=*), intent(in) :: file_str(:)
 188         integer,          intent(in) :: line
 189       end subroutine wrf_check_error
 190    end interface
 191
 192    interface
 193       subroutine wrf_abort
 194       end subroutine wrf_abort
 195    end interface
 196
 197    interface
 198       subroutine wrf_shutdown
 199       end subroutine wrf_shutdown
 200    end interface
 201
 202    interface
 203       subroutine med_shutdown_io (grid , config_flags)
 204          use module_domain, only : domain
 205          use module_configure, only : grid_config_rec_type
 206          type (domain),               intent(in) :: grid
 207          type (grid_config_rec_type), intent(in) :: config_flags
 208       end subroutine med_shutdown_io
 209    end interface
 210
 211 end module da_wrf_interfaces