<p><b>croesch@ucar.edu</b> 2012-02-02 17:28:54 -0700 (Thu, 02 Feb 2012)</p><p>BRANCH COMMIT - moved dmpar types to a file of their own<br>
<br>
A src/framework/mpas_dmpar_types.F<br>
</p><hr noshade><pre><font color="gray">Added: branches/omp_blocks/new_halo/src/framework/mpas_dmpar_types.F
===================================================================
--- branches/omp_blocks/new_halo/src/framework/mpas_dmpar_types.F         (rev 0)
+++ branches/omp_blocks/new_halo/src/framework/mpas_dmpar_types.F        2012-02-03 00:28:54 UTC (rev 1459)
@@ -0,0 +1,23 @@
+module mpas_dmpar_types
+
+ use mpas_kind_types
+
+
+ type dm_info
+ integer :: nprocs, my_proc_id, comm, info
+ logical :: using_external_comm
+ end type dm_info
+
+
+ type exchange_list
+ integer :: procID
+ integer :: blockID
+ integer :: nlist
+ integer, dimension(:), pointer :: list
+ type (exchange_list), pointer :: next
+ real (kind=RKIND), dimension(:), pointer :: rbuffer
+ integer, dimension(:), pointer :: ibuffer
+ integer :: reqID
+ end type exchange_list
+
+end module mpas_dmpar_types
</font>
</pre>