Last change
on this file since 1465 was
1,
checked in by lfita, 10 years ago
|
- -- --- Opening of the WRF+LMDZ coupling repository --- -- -
WRF: version v3.3
LMDZ: version v1818
More details in:
|
File size:
952 bytes
|
Line | |
---|
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 | 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 | |
---|
22 | CONTAINS |
---|
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 | |
---|
38 | END MODULE module_comm_dm |
---|
39 | |
---|
Note: See
TracBrowser
for help on using the repository browser.