source: lmdz_wrf/trunk/WRFV3/frame/module_comm_nesting_dm.F @ 2367

MODULE module_comm_nesting_dm

   IMPLICIT NONE

   PRIVATE module_comm_nesting_dm_dummy

#ifdef DM_PARALLEL
   INTEGER, PRIVATE :: rsl_sendw_p, rsl_sendbeg_p, rsl_recvw_p, rsl_recvbeg_p
   INTEGER, PRIVATE :: rsl_sendw_m, rsl_sendbeg_m, rsl_recvw_m, rsl_recvbeg_m
   LOGICAL, EXTERNAL :: rsl_comm_iter
#endif

   INTEGER, PRIVATE :: idim1, idim2, idim3, idim4, idim5, idim6, idim7


CONTAINS

   ! Avoid complaints about empty CONTAINS from some compilers.  
   SUBROUTINE module_comm_nesting_dm_dummy
     USE module_domain, ONLY:domain
     USE module_configure, ONLY:grid_config_rec_type,in_use_for_config
     USE module_state_description, ONLY:PARAM_FIRST_SCALAR
     USE module_driver_constants
     RETURN
   END SUBROUTINE module_comm_nesting_dm_dummy

! Registry-generated communication subroutines.  
#ifdef DM_PARALLEL
#include "REGISTRY_COMM_NESTING_DM_subs.inc"
#endif

END MODULE module_comm_nesting_dm