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