source:
branches/2012/dev_NOC_2012_rev3555/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 |
Line | |
---|---|
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 : (2008-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.