frame/module_comm_dm.F

   1
   2 MODULE module_comm_dm
   3
   4    USE module_comm_dm_0
   5    USE module_comm_dm_1
   6    USE module_comm_dm_2
   7    USE module_comm_dm_3
   8    USE module_comm_dm_4_
   9
  10    IMPLICIT NONE
  11
  12    PRIVATE module_comm_dm_dummy
  13
  14 #ifdef DM_PARALLEL
  15    INTEGER, PRIVATE :: rsl_sendw_p, rsl_sendbeg_p, rsl_recvw_p, rsl_recvbeg_p
  16    INTEGER, PRIVATE :: rsl_sendw_m, rsl_sendbeg_m, rsl_recvw_m, rsl_recvbeg_m
  17 #endif
  18
  19    INTEGER, PRIVATE :: idim1, idim2, idim3, idim4, idim5, idim6, idim7
  20
  21
  22 CONTAINS
  23
  24    ! Avoid complaints about empty CONTAINS from some compilers.
  25    SUBROUTINE module_comm_dm_dummy
  26      USE module_domain, ONLY:domain
  27      USE module_configure, ONLY:grid_config_rec_type,in_use_for_config
  28      USE module_state_description, ONLY:PARAM_FIRST_SCALAR
  29      USE module_driver_constants
  30      RETURN
  31    END SUBROUTINE module_comm_dm_dummy
  32
  33 ! Registry-generated communication subroutines.
  34 #ifdef DM_PARALLEL
  35 #include "REGISTRY_COMM_DM_subs.inc"
  36 #endif
  37
  38 END MODULE module_comm_dm
  39