wrfv2_fire/frame/module_comm_dm.F

   1
   2 MODULE module_comm_dm
   3
   4    IMPLICIT NONE
   5
   6    PRIVATE module_comm_dm_dummy
   7
   8 CONTAINS
   9
  10    ! Avoid complaints about empty CONTAINS from some compilers.
  11    SUBROUTINE module_comm_dm_dummy
  12      USE module_domain, ONLY:domain
  13      USE module_configure, ONLY:grid_config_rec_type,in_use_for_config
  14      USE module_state_description, ONLY:PARAM_FIRST_SCALAR
  15      USE module_driver_constants
  16      RETURN
  17    END SUBROUTINE module_comm_dm_dummy
  18
  19 ! Registry-generated communication subroutines.
  20 #ifdef DM_PARALLEL
  21 #include "REGISTRY_COMM_DM_subs.inc"
  22 #endif
  23
  24 END MODULE module_comm_dm
  25