source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame/wrf_shutdown.F @ 1780

Last change on this file since 1780 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.