source:
branches/UKMO/r5518_INGV1_WAVE-coupling/NEMOGCM/TOOLS/OBSTOOLS/src/ctl_stop.h90
@
7152
Last change on this file since 7152 was 7152, checked in by jcastill, 8 years ago | |
---|---|
File size: 562 bytes |
Rev | Line | |
---|---|---|
[7152] | 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.