!WRF:DRIVER_LAYER:UTIL ! SUBROUTINE wrf_shutdown 3,1 #ifdef DM_PARALLEL LOGICAL wrf_dm_on_monitor EXTERNAL wrf_dm_on_monitor EXTERNAL wrf_dm_shutdown #endif #ifdef DM_PARALLEL CALL wrf_dm_shutdown #else #endif END SUBROUTINE wrf_shutdown