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