source:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame/wrf_shutdown.F
@
198
| Last change on this file since 198 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.
