source:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame/wrf_shutdown.F
@
1780
Last change on this file since 1780 was 11, checked in by , 14 years ago | |
---|---|
File size: 260 bytes |
Line | |
---|---|
1 | !WRF:DRIVER_LAYER:UTIL |
2 | ! |
3 | SUBROUTINE wrf_shutdown |
4 | #ifdef DM_PARALLEL |
5 | LOGICAL wrf_dm_on_monitor |
6 | EXTERNAL wrf_dm_on_monitor |
7 | EXTERNAL wrf_dm_shutdown |
8 | #endif |
9 | #ifdef DM_PARALLEL |
10 | CALL wrf_dm_shutdown |
11 | #else |
12 | STOP |
13 | #endif |
14 | END SUBROUTINE wrf_shutdown |
15 |
Note: See TracBrowser
for help on using the repository browser.