New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
ctl_stop.h90 in branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/TOOLS/OBSTOOLS/src – NEMO

source: branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/TOOLS/OBSTOOLS/src/ctl_stop.h90 @ 5985

Last change on this file since 5985 was 5985, checked in by timgraham, 8 years ago

Reinstate keywords before upgrading to head of trunk

  • Property svn:keywords set to Id
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.