source:
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/ctl_stop.h90
@
2893
Last change on this file since 2893 was 2893, checked in by djlea, 13 years ago | |
---|---|
File size: 560 bytes |
Rev | Line | |
---|---|---|
[2893] | 1 | SUBROUTINE ctl_stop( cerr ) |
2 | !!--------------------------------------------------------------------- | |
3 | !! | |
4 | !! ** ROUTINE ctl_stop ** | |
5 | !! | |
6 | !! ** Purpose : Stop execution | |
7 | !! | |
8 | !! ** Method : | |
9 | !! | |
10 | !! ** Action : | |
11 | !! | |
12 | !! History : (08-12) K. Mogensen. NEMOVAR version | |
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.