source: trunk/WRF.COMMON/WRFV3/frame/wrf_shutdown.F @ 3709

Last change on this file since 3709 was 2759, checked in by aslmd, 3 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
File size: 260 bytes
Line 
1!WRF:DRIVER_LAYER:UTIL
2!
3SUBROUTINE 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
14END SUBROUTINE wrf_shutdown
15
Note: See TracBrowser for help on using the repository browser.