frame/wrf_shutdown.F

   1 !WRF:DRIVER_LAYER:UTIL
   2 !
   3 SUBROUTINE wrf_shutdown
   4 #ifndef NO_IEEE_MODULE
   5    USE , INTRINSIC :: IEEE_EXCEPTIONS
   6 #endif
   7
   8 #ifdef DM_PARALLEL
   9     LOGICAL wrf_dm_on_monitor
  10     EXTERNAL wrf_dm_on_monitor
  11     EXTERNAL wrf_dm_shutdown
  12 #endif
  13 #ifdef DM_PARALLEL
  14     CALL wrf_dm_shutdown
  15 #else
  16 # ifdef NO_IEEE_MODULE
  17     STOP
  18 # else
  19     CALL IEEE_SET_FLAG(IEEE_INEXACT,.false.)
  20     STOP
  21 # endif
  22 #endif
  23 END SUBROUTINE wrf_shutdown
  24