source:
trunk/WRF.COMMON/WRFV3/frame/wrf_shutdown.F
| Last change on this file was 2759, checked in by , 2 years ago | |
|---|---|
| File size: 260 bytes | |
| Rev | Line | |
|---|---|---|
| [2759] | 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.
