source:
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/src/ctl_stop.h90
@
3605
Last change on this file since 3605 was 3000, checked in by djlea, 13 years ago | |
---|---|
File size: 562 bytes |
Rev | Line | |
---|---|---|
[2945] | 1 | SUBROUTINE ctl_stop( cerr ) |
2 | !!--------------------------------------------------------------------- | |
3 | !! | |
4 | !! ** ROUTINE ctl_stop ** | |
5 | !! | |
6 | !! ** Purpose : Stop execution | |
7 | !! | |
8 | !! ** Method : | |
9 | !! | |
10 | !! ** Action : | |
11 | !! | |
[3000] | 12 | !! History : (2008-12) K. Mogensen. NEMOVAR version |
[2945] | 13 | !!---------------------------------------------------------------------- |
14 | CHARACTER(len=*) :: cerr | |
15 | ||
16 | WRITE(*,*)'Error:' | |
17 | WRITE(*,*)TRIM(cerr) | |
18 | CALL abort | |
19 | ||
20 | END SUBROUTINE ctl_stop | |
21 |
Note: See TracBrowser
for help on using the repository browser.