frame/module_comm_nesting_dm.F

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