source: trunk/WRF.COMMON/WRFV2/frame/wrf_shutdown.F @ 3094

Last change on this file since 3094 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien
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.