source: lmdz_wrf/WRFV3/frame/module_comm_dm.F @ 2

Last change on this file since 2 was 1, checked in by lfita, 11 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 952 bytes
RevLine 
[1]1
2MODULE 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
22CONTAINS
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
38END MODULE module_comm_dm
39
Note: See TracBrowser for help on using the repository browser.